在本节中我们继续学习“宏”的一些知识，好我们点击菜单“工具”—“宏”—“Visual basic 编辑器”，快捷键“ALT+F11”，之后会弹出一个VB编辑器，简称“VBE”，如图（1）所示，在“VBE”编辑器中有“菜单”栏如图（1）中的①所示；“工具栏”如图（1）中的②所示；“工程资源管理器”如图（1）中的③所示；“属性”栏如图（1）中的④所示；“窗体”栏或“模块”栏如图（1）中的⑤所示。

　　我们可以在“VBE”中插入一个或多个“窗体”，方法是点击：菜单“插入”—“用户窗体”，之后在“窗体”窗口中放置一些控件，如“按钮”、“列表”、“单选框”、“复选框”等ActiveX控件，然后我们双击这些控件就可以编写这些控件的程序代码了。我们以36节中曾经使用的“乘法”的宏为例，只要稍作改变就可以变成一个带有“窗体”的“宏”程序。

　　　　　　　　　　　　　　　　　　　　　 图（1）

　　如下代码就是我们在36节中曾经学到的那个“乘法”宏程序。这个宏程序使用了两个INPUTBOX函数，使用户可以输入乘数和被乘数，而乘数值是使用MSGBOX得到。下面这些代码就是我们在36节中学到的“乘法”的VBA代码。

Sub myfirst()
Dim x, y声明两个变体变量一个是X,一个是Y
x = InputBox("请输入一个值", "数值")在这里输入第一个乘数“24”，如图（3）点击“确定”按钮后执行到下一个InptuBox函数对话框。
y = InputBox("再输入一个值", "数值")在这里输入另一个乘数“35”
x1 = x * y让x和y相乘，并把相乘的值付给“X1”这个变量，本例中“X1”没有事先声明，乘号是以“*”表示的。
MsgBox "你的值等于" & x & "×" & y & "＝" & x1, vbInformation, "你好" '得到如图（4）所示的对话框。
End Sub

　　以下我们使用“窗体”的方法来制作一个计算乘法的“宏”程序。

　　好实战开始！首先我们先制作一个“窗体”，进入到如图（1）所示的“VBE”编辑器中，在“VBE”菜单中找到菜单“插入”—“用户窗体”，然后在图（1）的“属性”栏中，即标注为：④的地方，找到“CAPTION”属性，在其后的输入框中输入标题的名称“VBA—乘法”，将“（名称）”属性设置为：“乘法窗体”，由于篇幅的原因我们就不再设置该控件的其它属性了。设置的结果如图（2）框所示。


　　　　　　　　　　　　　　　　　　　　　 图（2）

　　插入“窗体”后，我们就可以看到一个“工具箱”浮动窗口，如图（3）所示，其实这个“工具箱”中的所有控件，就是我们曾经在讲解“工具栏”—“控件工具箱”中讲到过的控件，如果大家忘记了，可以参看以前章节中的内容。好我们在“乘法窗体”中插入两个“标签”控件，方法是：点击图（3）中的“标签”按钮，即①所指的按钮，之后该按钮变为“被按下”状态，将鼠标移动到已经被命名为：“乘法窗体”这个窗体上，然后在合适的位置上点击鼠标左键，不要放开手拖动鼠标到另一个对角线上放手后，一个名为“LABEL1”的标签被画到“乘法窗体”上了，好再使用同样的方法，画一个“标签”这个标签名一定为“LABEL2”，之后我们点击“LABEL1”标签将其选中，在图（1）中的属性对话框中找到“CAPTION”属性，将这个属性改为“数值1”，使用同样的方法将“LABEL2”标签的“CAPTION”属性设为“数值2”。

图（3）

　　我们在图（3）所示的“工具箱”中找到“文字框”按钮，即图（3）中②所指的按钮，在图（1）窗体中合适的位置再画一个“文字框”，画完之后我们使用另一种方法制作一个“文字框”，注意：在刚刚画好的“文字框”上点击鼠标左键不要放开鼠标，将这个“文字框”拖动到一个合适的位置上，之后点击键盘上的“CTRL”键不放，你会看到鼠标的指针发生了变化，变成了一个带有“加号”的箭头，这时我们将按下的鼠标左键放开，然后在将“CTRL”键放开，好窗体上又多出一个“文字框”控件。

　　最后我们在图（1）的窗体中放置一个“按钮”控件，在本节中我们就不具体指出“按钮”控件了，（提示：在图（3）中肯定能找到。）画好“按钮”之后，将“按钮”控件的“CAPTION”属性设为“确定”，然后将这些控件的位置和大小调整得好看一些，最后将窗体的大小也调整为合适的大小，图（4）就是我们制作好的窗体。

图（4）

　　其实大家还可以根据自己的创意和不断的了解各“控件”的属性，作出更加漂亮的窗体。好所有的先期准备都已经搞好了，在下一节中我们来具体学习如何为这些“窗体控件”添加VBA代码。

　　在本节中我们学习了如何制作一个窗体，方法十分简单只需在插入的窗体上，将“控件”画到窗体上就可以了。

待续...