Excel 2010 VBA 入门 128 在窗体中插入控件

目录

步骤

控件工具栏

控件的顺序

控件的组合

---

步骤

步骤1  在工作表中插入一个按钮，将其命名为CommandButton1，Caption属性为“显示窗体”。
步骤2  按组合键【Alt＋F11】打开VBE。
步骤3  选择菜单“插入”→“用户窗体”。
步骤4  在“工程资源管理器”中双击之前插入的窗体，在“控件”工具箱中将CommandButton控件拖入窗体中，并调整大小和位置，如所图所示。

步骤5  在“工程资源管理器”中右键单击之前插入的窗体，选择“查看代码”，如图所示，然后在代码编辑窗口中输入以下代码。 

Option Explicit

Private Sub CommandButton1_Click()
    '将活动单元格的填充色改为红色
    ActiveCell.Interior.Color = vbRed
End Sub

 步骤6  在“工程资源管理器”中双击“Sheet1”工作表，并输入以下代码。

Option Explicit

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

步骤7  返回工作表界面，退出设计模式，然后单击按钮“显示窗体”，即可弹出窗体。单击窗体中的按钮，即可将当前活动单元格的填充色改为红色，如图所示。

控件工具栏

    在窗体的控件工具栏中，可以找到各种常用的ActiveX控件，这些控件与工作表中的ActiveX控件相同，可以随意添加至窗体中。当用户需要在该工具栏中添加更多的ActiveX控件时，可以按照右键单击该工具栏→添加控件→选择控件→确定的步骤进行，如图所示。

 当需要将控件工具栏中的控件添加至窗体时，可以使用以下两种方法。

• 鼠标左键单击工具栏中的控件并按住不放，同时移动鼠标将控件拖曳至窗体中，然后释放鼠标左键。
• 鼠标左键单击工具栏中的控件，在窗体中使用鼠标左键画出一个矩形框。

当控件添加至窗体后，可以任意移动或者改变大小，如图所示。

窗体中控件的使用方法和常用属性与工作表中的ActiveX控件几乎相同，其事件也几乎相同，只是个别的名称发生了变化，如：

• 窗体中的控件添加了Enter与Exit事件，工作表ActiveX控件与之对应的是GetFocus和LostFocus事件。
• 窗体中的控件添加了SetFocus方法，工作表ActiveX控件与该方法对应的是Activate。

控件的顺序

    在窗体运行时，用户可以通过按【Tab】键在各个控件中循环切换激活状态。一般情况下，各个控件的顺序是由控件添加的先后顺序决定的。开发者若需要改变该顺序，可以在窗体中右键单击鼠标后参照图所示的步骤进行。

控件的组合

  某些控件是以组为单位使用的，如“选项按钮”OptionButton控件，一般在窗体中插入多个“选项按钮”后，只能同时仅有一个按钮被选中。但通常情况下，“选项按钮”在不同组中都应有一个能够被选中，此时应该使用“框架”控件对窗体中的各个控件进行分组，可以参考以下步骤插入两组各有两个“选项按钮”实现在不同的组中各自选中一个“选项按钮”。
（1）在窗体插入两个“框架”控件Frame。
（2）选中其中一个“框架”控件，在“控件工具箱”中选中“选项按钮”，在窗体的框架控件上画一个“选项按钮”控件，并以此方法在该“框架”控件中插入另一个选项按钮，如图所示。

 （3）选中另一个“框架”控件，在“控件工具箱”中选中“选项按钮”，在窗体的框架控件上画一个“选项按钮”控件，并以此方法在该“框架”控件中插入另一个选项按钮。
（4）运行并显示窗体，可以实现在两个“框架”中的“选项按钮”各自被选中，如图所示。