题

对于多个在Excel工作表中的ActiveX控件，可以批量设置其属性？如图，该表为某公司使用的技能培训出题考试系统，所有的题目为单项选择题，并已经在工作表中插入了相应的控件（4个OptionButton控件以及两个CommandButton控件）。当单击“上一题”
和“下一题”按钮时，使程序更改OptionButton的Caption属性以显示题目对应的选项。

码

通过题号查找下一题或上一题，读取题号和题目至单元格中。使用CallByName函数结合循环获取每个OptionButton对象，然后更改其Caption属性为各个选项。

Sheet1码

Option ExplicitPrivate Sub CommandButton1_Click()ChooseData cdPrevious
End SubPrivate Sub CommandButton2_Click()ChooseData cdNext
End Sub

插入模块

Option ExplicitEnum ChooseDirectioncdNext = 1cdPrevious = -1
End EnumSub ChooseData(cddirection As ChooseDirection)Dim dataNumber As LongDim optionNumber As LongDim shtData As WorksheetDim shtTest As WorksheetDim maxData As LongDim minData As LongSet shtTest = Sheet1Set shtData = Sheet2maxData = shtData.Range("A2").CurrentRegion.Rows.Count - 1minData = 1dataNumber = shtTest.Range("A2").Value + cddirectionIf dataNumber <= maxData And dataNumber >= minData ThenshtTest.Range("A2").Value = dataNumbershtTest.Range("B2").Value = shtData.Cells(dataNumber + 1, 1).ValueFor optionNumber = 1 To 4With CallByName(shtTest, "OptionButton" & optionNumber, VbGet).Caption = shtData.Cells(dataNumber + 1, optionNumber + 1).ValueEnd WithNext optionNumberEnd If
End Sub

CaIIByName函数

CallByName函数可以获取或设置某个对象的属性或者子对象，也可以用来执行该对象的指定方法。与通常的点运算(．)不同的是，利用CallByName函数可以使用文本形式访问对象的属性或方法，其语法如下：

CallByName(object, procname, calltype, [args () ] )

参数object为对象变量。
参数procname为object所表示的对象变量的属性名称或者方法名称。
参数calltype为调用方式，即指定procname的类型，可以为VbGet（获取属性）、VbSet（对象赋值）、VbLet（属性赋值）、VbMethod（执行方法）。
参数args为参数列表，当calltype所指定的调用方式需要参数时，可以在本参数位置开始以逗号（,）为分隔符依次填写各个参数。

使用CallByName函数获取子对象

一般地，可以使用以下表达式表示某个对象的子对象：

对象.子对象

该子对象同样可以通过CallByName函数获取，相当于其父对象的一个属性，只需将子对象的名称传递给procname参数，然后calltype参数设置为VbGet，即可使CallByName函数返回该子对象。

使用CaIIByName函数批量修改对象的属性

由于使用CallByName函数可以以文本的形式访问对象，因而可以使用其批量修改对象的属性。使用该方法修改属性必须保证所有的对象名称有规律，并且具有相同的属性。本例中，ActiveX控件插入工作表后，一般以其类型名称＋顺序编号作为其默认的对象名称。由于其具有规律性，因而使用循环对其访问。
本例中所有的OptionButton为工作表对象Sheet1的子对象，使用CallByName函数可以返回各个OptionButton对象，之后可以直接在CallByName函数中对其Caption属性进行赋值。

灵活使用自定义过程

本例中，“下一题”和“上一题”按钮的实质是完成同一个动作：将“题库”中的相关信息写入“考试”工作表中。其唯一的区别在于，单击“下一题”按钮时，选取的题目的题号为当前题号＋1，而上一题则是选取当前题号-1。只要获取新的题号，其取题目的代码是一致的。
为了便于调用，本例中自定义了一个枚举，分别以-1和1表示“上一题”和“下一题”的题号的变化量，并在自定义过程中使用了该枚举类型的参数作为选题的标志。对于程序，只需获取当前的题号，并加上参数传递过来的值，即可得到新的题号，从而进行题目信息的获取。
在大多数使用各类控件的程序中，总是调用自定义过程实现主要的功能，而利用各种事件将逻辑串起来。一般来讲，自定义函数和自定义过程总是可以使用自定义的枚举作为参数的类型，从而方便调用。

Excel 2010 VBA 入门 126 批量设置控件属性相关推荐

Excel 2010 VBA 入门 124 日期选择控件
目录码 DTPicker控件 DTPicker控件的时间和日期的切换 DTPicker控件的日期输入方式 DTPicker控件的Value属性与Change事件使用DTPicker控件实现日期选择 ...
Excel 2010 VBA 入门 031 批量生成上标
目录 Characters对象 Font对象的Superscript属性设置Characters对象Font的注意事项 Characters属性的通用性示例 Characters对象 Charac ...
Excel 2010 VBA 入门 040 批量删除空行
目录示例: 实现代码1: 单元格删除Delete方法单元格删除的通用算法实现代码2 利用Union获取整个单元格区域进行统一操作 Union方法的注意事项单元格插入Insert方法示例: 如 ...
Excel 2010 VBA 入门 033 批量合并相同的单元格
目录 Range的Merge方法合并单元格 VBA运行时关闭警告多行中相同的内容处理示例: Range的Merge方法合并单元格单元格对象的Merge方法可以用来合并相邻的单元格区域,使之成为一 ...
Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)
目录示例: 实现代码 Replace函数单元格对象的Replace方法使用Replace方法实现代码示例: 如图所示,该表为某公司商品编码.由于商品目录升级,现商品编码中以"GXGY ...
Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...
Excel 2010 VBA 入门 139 创建工作簿级的自定义选项卡
目录题码 Excel工作簿的实质 XML简介 customUI.xml 常用的功能区控件及通用属性 tabs控件和tab控件 group控件命令控件内置控件的ID customUI.xml中控 ...
Excel 2010 VBA 入门 103 利用VBA批量插入图片
目录示例代码: Shapes.Shape和 ShapeRange Shapes对象插入图形的方法 Excel的坐标图形大小的调整获取图片的原始大小将图片按比例缩放至单元格图片批量插入的步骤 ...
Excel 2010 VBA 入门 064 按照关键字批量创建超链接
目录示例实现代码 Hyperlink对象创建超链接删除超链接及访问超链接创建超链接打开指定的宏代码示例如图所示,该表为某公司资产负债表以及关于报表的说明.为了方便阅读,现希望能够用VBA ...
Excel 2010 VBA 入门 138 添加选项卡和内置控件
目录题码功能区简介使用Excel选项自定义功能区题在功能区中添加一个选项卡,并在选项卡中添加内置控件码使用Excel选项中的[自定义功能区]添加选项卡和内置控件. 步骤1 选择&qu ...

Excel 2010 VBA 入门 126 批量设置控件属性

题

码

CaIIByName函数

使用CallByName函数获取子对象

使用CaIIByName函数批量修改对象的属性

灵活使用自定义过程

Excel 2010 VBA 入门 126 批量设置控件属性相关推荐

最新文章

热门文章