第4章 使用窗体与控件.pdfVIP

《Excel 公式与函数大辞典》配套光盘附赠电子书——Excel VBA 篇 第4章 使用窗体和控件 为了便于程序与用户间的交互，可以在 Excel 中创建独立的窗体，在其中添加一些控 件，这样就可以让用户像使用 Excel 内置对话框一样，来使用窗体。不但减少了数据输入 的麻烦，而且也使操作界面更加友好。本章将介绍窗体和控件的知识。 4.1 Excel 中的两类窗体  为了简化输入，可以在 Excel 工作表中通过添加控件的方式，制作一个交互性极强的 表单系统。如图 4-1所示的工作表也许您以前曾经看到过，它就是一个工作表窗体，其中放 置了一些控件，使得输入与选择数据变得非常简单。这非常适合于开发人员给客户提供的 最终 Excel 应用程序。 在 Excel 中进行各种操作时，经常会遇到在一个弹出的对话框中选择某个选项或输入 某些内容而得到设置结果。如果希望自己定制对话框的外观及可用选项，那么就需要创建 用户窗体。如图 4-2所示为一个根据用户选择的选项来查询图书的一个查询窗体。 图4-1 一个工作表窗体的例子 图4-2 一个用户窗体的例子 本章剩下的部分将先介绍创建用户窗体的步骤和方法，然后介绍在工作表中使用控件 的方法和技巧。 4.2 使用InputBox 和MsgBox 函数代替窗体  在前几章中，我们已经多次用到了 InputBox 和 MsgBox 函数。使用这两个函数可以显 76 《Excel 公式与函数大辞典》配套光盘附赠电子书——Excel VBA 篇 示简单的对话框。因此，如果不需要特别定制复杂的窗体，而只是获取用户的输入或返回 一条信息，那么就可以使用 InputBox 和 MsgBox 函数来完成。 4.2.1 InputBox InputBox 函数分为两种，一种是VB 程序中的 InputBox 函数，另一种是 Excel 中Appl ication 对象的 InputBox 方法。它们都可以显示一个输入框，用于获取用户的输入信息，然 后将返回结果赋值给一个变量以进行其他操作。Excel 中的Application 对象的 InputBox 方 法比 VB 程序中的 InputBox 函数有更强大的功能。 VB 程序中的 InputBox 函数的语法如下： InputBox(prompt, title, default, xpos, ypos, helpfile, contex t) InputBox 函数中各参数的作用如下： prompt ：显示在输入对话框中的文本（必选）。 title ：显示在输入对话框标题栏中的文本（可选）。 default ：显示在输入对话框的文本框中的默认值（可选）。 xpos 和ypos ：窗口左上角的屏幕坐标值（可选）。 helpfile ：输入对话框中的帮助文件（可选）。 context ：输入对话框中的帮助主题（可选）。 在使用 InputBox 函数时，通常只会使用前 3 个参数或者只使用前两个参数，得到如下 的简化版本： InputBox(prompt, title, default) 例如，下面的代码将根据用户输入的内容返回一条信息： Sub GetInfo() Dim Ans As String Ans = InputBox(请输入, 输入信息) MsgBox 您输入的信息是： Ans End Sub 运行上面的代码，将显示如图 4-3所示的对话框。当用户输入一个内容并单击【确定】 按钮，将在一个对话框中显示所输入的内容。 图4-3 使用 VB 的InputBox 函数打开的输入对话框 如果在上个例子中用户未输入任何内容或单击【取消】按钮，那么 InputBox 函数都将 返回一个空字符串。为了强制要求用户输入内容，可以设置一个 Do While 循环，只要输