返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

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

时间:2017-11-08 22:29来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):excel excel2007
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣