目录
题
对于多个在Excel工作表中的ActiveX控件,可以批量设置其属性?如图,该表为某公司使用的技能培训出题考试系统,所有的题目为单项选择题,并已经在工作表中插入了相应的控件(4个OptionButton控件以及两个CommandButton控件)。当单击“上一题”
和“下一题”按钮时,使程序更改OptionButton的Caption属性以显示题目对应的选项。
码
通过题号查找下一题或上一题,读取题号和题目至单元格中。使用CallByName函数结合 循环获取每个OptionButton对象,然后更改其Caption属性为各个选项。
Sheet1码
Option Explicit
Private Sub CommandButton1_Click()
ChooseData cdPrevious
End Sub
Private Sub CommandButton2_Click()
ChooseData cdNext
End Sub
插入模块
Option Explicit
Enum ChooseDirection
cdNext = 1
cdPrevious = -1
End Enum
Sub ChooseData(cddirection As ChooseDirection)
Dim dataNumber As Long
Dim optionNumber As Long