介绍Excel中“控件”与VBA的基本知识

　　一、“控件”的基本知识

　　（一）什么是“控件”

    “控件”是“控件工具箱”提供的一系列对象，拥有自己的名称，存储于文档中。

    “控件”具有“属性”、“方法”和“事件”
　　“属性”是描述其所属控件的某个可量化特征的变量，在 VBA 程序中，“属性”是使用点标记引用的：首先写下控件名称，输入小数点，将列出“属性名”和“方法名”清单，然后可以选择或输入“属性”名称，如：TextBox1.Text
　　“方法”是控件“知道”如何执行的某种操作，在 VBA 程序中，“方法”也是使用点标记引用的：首先写下“控件”名称，输入小数点，将列出“属性名”和“方法名”清单，然后可以选择或输入方法“名称”，如：TextBox1.Activate
　　“事件”是一种被对象“意识到”已经发生的操作，用户一般通过“事件”来完成一系列的程序运行，用户在Office中开发VBA应用，主要工作就是编制各种“控件”的各种“事件”对应的VBA程序（如单击“命令按钮”控件对应事件的VBA程序代码）。

　　（二）什么时候使用控件

    如果需要在Microsoft Office中交互地完成某一任务，那么可以编写控件方法对应的VBA程序。
　　例如，编写单击“命令按钮”的“方法”对应的更名保存文件的VBA程序

　　二、Visual Basic编辑器与控件

　　（一）什么是Visual Basic编辑器

    Visual Basic编辑器是一个用于编写和编辑VBA 的功能强大的工具，它使用户得以扩展宏的功能和多用性，而非局限于通过简单的录制就可以完成的任务。

　　要打开该工具，执行“工具／宏／Visual Basic 编辑器”（或按 Alt+F11）。

　　（二）Visual Basic编辑器窗口

    Visual Basic 编辑器可在不同的窗口中显示不同的信息。开始查看与编辑宏时，需要重点了解以下几个窗格。

　　1.“项目资源管理器”窗格

　　（1）作用

    在直接打开 Visual Basic 编辑器时，可以使用“项目资源管理器”窗口来选择要处理的VBA
　　执行“视图／工程资源管理器”命令即可使之显示，
　　右击窗格，“可连接的”选项用于控制该窗格是否可嵌入编辑器窗口

　　（2）结构

    “项目资源管理器”采用树状视图（类似于 Windows® 资源管理器中的树状视图）中显示所有项目的“代码”和“宏”。
　　该树状结构中的根对象（项目）是您所处理的当前工作簿以及其他一些打开的工作簿和外接程序
　　项目使用的主要元素分别存储在每个项目的独立文件夹中，包括：
　　①MicroSoft Excel对象列表（各Sheet、ThisWorkBook) 
　　②模块（如果有的话），用户录制的与工作表相关的宏代码 
　　③类模块（如果有的话），用户为工作簿创建的用户定义对象的定义 
　　④用户窗体（如果有的话），提供了一个可视界面，用户可以在其上放置图形控件，例如按钮、图像和文本区域 

　　2.“代码”窗格

“代码”窗口是 Visual Basic 编辑器中最大的窗口，其顶部有两个下拉框
　　①左侧的下拉框（即“对象”框）选择要处理的对象
　　②右侧的下拉框（即“方法”框）用于选择当前对象中的各种方法

　　3.“属性”窗格

　　作用：用于查看和更改与选定对象相关的各种“属性”。对于控件而言，通常有包括“名称”在内的许多“属性”是可用的。

　　操作：对“属性”窗口中的“属性”的更改通常直接选择相应“属性项”直接更改；此外，也可以通过VBA程序设置或修改。

　　（三）如何手工编写VBA程序

　　在“项目资源管理器”窗格选中要添加“VBA”程序的“项目”
　　单击“代码”窗格左上角“控件”下拉列表框，单击要编写其对应程序的控件；
　　再单击该窗格右上角“方法”下拉列表框，单击要编写其对应程序的控件，即可在代码窗格中输入与编辑VBA程序源代码。

　　三、控件与VBA程序

　　㈠“控件”与“VBA程序”的关系

　　控件的“方法”通过其对应的VBA程序实现；当在Excel中添加”控件”后，可以通过编写该“控件”某一“事件”对应的VBA程序。

　　㈡Excel中的“控件”工具栏

　　右击Excel的工具栏，选择“控件工具栏”即可使之“显示｜消隐”。

　　Excel的控件工具栏从左至少右依次为：
　　设计模式｜退出设计模式、属性、查看代码、复选框、文本框、按钮、选项按钮、列表框、组合框、切换按钮、滚动条、微调项、标签、图像、其他控件。

　　⒈“标签”和“文本框”

　　⑴标签

　　用于显示文本信息，本身不具有可输入功能；标签的默认属性是Caption属性，标签的默认事件是Click事件。

　　标签的基本属性包括：
　　名称
　　Caption：标签文本内容
　　BackColor：背景色
　　ForColor：前景色
　　WordWrap：词绕转
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　⑵文本框

　　用于交互输入与显示文本信息，本身具有交互性；文本框的默认属性是Value属性，文本框的默认事件是Change事件。

　　文本框的基本属性包括：
　　名称
　　Text：文本
　　Value：数据
　　ScrollBars：滚动条
　　BackColor：背景色
　　ForColor：前景色
　　WordWrap：词绕转
　　MultiLine：多行
　　MaxLength：最大长度
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　⒉ “选项按钮”和“复选框”

　　⑴选择按钮

　　用于显示组中的某一项是否被选中，请注意框架中的各个选项按钮是互斥的；选项按钮默认属性是 Value 属性，选项按钮默认事件是 Click 事件。

　　选择按钮的基本属性包括：
　　名称
　　Value：选中否
　　Caption：显示选项文本信息
　　BackColor：背景色
　　ForColor：前景色
　　GroupName：组名
　　WordWrap：词绕转
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　⑵复选框

　　可以允许用户从两个值中选择一个，例如从 Yes/No、True/False 或 On/Off 中进行选择；复选框的默认属性是 Value 属性，复选框的默认事件是 Click 事件。

　　复选框的基本属性包括：
　　名称
　　Caption：显示选项文本信息
　　Value：选中否
　　BackColor：背景色
　　ForColor：前景色
　　GroupName：组名
　　WordWrap：词绕转
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　⒊“命令按钮”

　　通过选用其某种事件对应的VBA程序来启动、结束或中断一项操作或一系列操作；在命令按钮上可以显示文本或图片，或者二者同时显示；命令按钮的默认属性是AutoSize属性，命令按钮的默认事件是Click事件。

“命令按钮”的基本属性包括：
　　名称
　　Picture：显示的图像
　　Caption：显示的文本
　　BackColor：背景色
　　ForColor：前景色
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　⒋“列表框”和“组合框”

　　⑴列表框

　　用于显示若干个值的列表，用户可以从中选择一个或多个值；列表框的默认属性是 Value 属性，列表框的默认事件是 Click 事件。
　　注意：不能在下拉列表框中放入文本。主要用于列出多项供选择（单项选择或多项选择均可）的文本信息。

　　列表框的基本属性包括：
　　名称：ListBox
　　Text：文本
　　Value：数据
　　TopIndex：顶部选项索引值
　　BackColor：背景色
　　ForColor：前景色
　　MultiSelect：多选
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　列表框的赋值方法
　　①用AddItem属性加载单列数据到ListBox1，并取值到文本框与标签
　　②用AddItem、List属性加载双列数据到ListBox1，并取值到标签 
　　③用数组、List属性或Column属性赋值ListBox1和2

　　⑵组合框

　　主要用于列出多项供选择（单项选择）的文本信息；组合框将列表框和文本框的特性结合在一起，用户可以像在文本框中那样输入新值，也可以像在列表框中那样选择已有的值；组合框的默认属性是Value属性，组合框的默认事件是 Change 事件。
　　注意：如果希望在任何时候都将列表中的各行数据显示出来，那么可以使用列表框代替组合框；如果希望在使用组合框时，只使用列表中列出的值，可设置组合框的 Style 属性，以使该控件看上去像下拉列表框

　　组合框的基本属性包括：
　　名称：ComboBox
　　Text：文本
　　Value：数据
　　TopIndex：顶部选项索引值
　　BackColor：背景色
　　ForColor：前景色
　　Width：宽度
　　Height：高度
　　Font：字体
　　……

　　组合框的赋值方法
　　①AddItem方法对组合框赋值
　　②用数组和List属性对组合框赋值 

　　⒌ “切换按钮”

　　显示项目的选中状态。
　　说明：用切换按钮显示某个项目是否被选中；也可在框架中使用切换按钮，以在一组相关项目中选择一个或多个项目；切换按钮的默认属性是 Value 属性，切换按钮的默认事件是Click事件。

　　“切换按钮”的基本属性包括：
　　名称：ToggleButton1（默认）
　　BackColor：背景颜色
　　Caption：显示的文本内容
　　ForeColor：前景颜色
　　Value：True和False
　　AutoSize：自动调整大小（True和False）
　　Enable：使能（True和False）
　　WordWrap：词绕转
　　Height：高度
　　Width：宽度
　　Font：字型
　　……

　　⒍“数值调节钮”和“滚动条”

　　⑴数值调节钮

　　主要用于增加及减少数值。
　　说明：单击数值调节钮只会更改数值调节钮的值。可以编写代码来用数值调节钮更新其他控件的显示值，例如标签控件的Caption属性或文本框的Text属性。若要创建横向或纵向的数值调节钮，请在窗体中沿横向或纵向拖动数值调节钮的尺寸控点；数值调节钮的默认属性是 Value 属性，数值调节钮的默认事件是 Change 事件。

    数值调节钮的基本属性包括：
　　名称：SpinButton1
　　Delay：50
　　Max：100
　　Min：0
　　SmallChange：1
　　BackColor：背景色
　　ForColor：前景色
　　Value：值
　　Width：宽度
　　Height：高度
　　Font：字体 
　　……

　　数值调节钮的赋值：“直接赋值”与“数组赋值”。

　　⑵滚动条

根据滚动块的位置，返回或设置另一控件的值；滚动条是可放置在窗体中的独立控件。
　　为了用滚动条设置或读取其他控件的值，必须为滚动条的事件和方法编写代码。例如，为了用滚动条更新文本框的值，可编写代码读取滚动条的Value属性，然后设置文本框的Value属性；滚动条的默认属性是 Value 属性，滚动条的默认事件是 Change 事件。

　　滚动条的基本属性包括：
　　名称：ScrollBar
　　Max：2767
　　Min：0
　　SmallChange：1
　　BackColor：背景色
　　ForColor：前景色
　　Value：值
　　Width：宽度
　　Height：高度
　　Font：字体
　　…… 

　　滚动条的赋值：“直接赋值”与“数组赋值”。

　　四、进一步学习需要的预备知识

　　㈠激活工作表时发生的事件

　　Private Sub Worksheet_Activate()
　　 ……
　　End Sub

　　㈡选中“组合框”时发生的事件

　　Private Sub ComboBoxClass_GotFocus()
　　 ……
　　End Sub

　　㈢“组合框（ComboBox2_1～ComboBox2_12）”的典型循环赋值程序代码

　　Dim ComboBox As Object
　　Dim i As Integer
　　Dim c(1 To 3) As String
　　c(1) = ""
　　c(2) = "正确"
　　c(3) = "错误"
　　For i = 1 To 12    '循环对12个“是非题组合框”赋值
　　 Set ComboBox = Sheets("基于控件的自测练习").Shapes.Item("ComboBox2_" & i).OLEFormat.Object.Object
　　 ComboBox.List() = c()
　　Next i

　　㈣两个工作表之间数据的转换

　　⒈基本语句

　　Sheets("A工作表名").Cells(行序号, 列序号) = Sheets("B工作表").Cells(列序号, 行序号2)
　　作用：把“B工作表”中指定单元格的数据赋值给“A工作表”的指定单元格。

　　⒉案例

　　由“参考答案”工作表向“基于控件的试卷”工作表复制参考答案的典型语句如下：

　　'获取“单选题”参考答案
　　 For i = 2 To 15
　　  Sheets("基于控件的自测练习").Cells(i + 5 * (i - 1) - i + 5, 3) = Sheets("参考答案").Cells(i, 2)
　　 Next i