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

最新推荐文章于 2021-12-23 15:35:07 发布

ngbshzhn

最新推荐文章于 2021-12-23 15:35:07 发布

阅读量1.8k

点赞数

分类专栏： # Excel 2010 VBA 入门文章标签： Excel VBA

本文链接：https://blog.csdn.net/ngbshzhn/article/details/121033892

版权

本文介绍如何在Excel 2010中使用VBA的CallByName函数批量设置ActiveX控件属性，例如在考试系统中，批量修改OptionButton的Caption属性来显示题目选项。通过CallByName函数可以灵活获取和修改对象及其子对象，同时通过自定义过程实现功能复用，提高代码效率。

摘要由CSDN通过智能技术生成

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

灵活使用自定义过程

题

对于多个在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