利用类模块对工作表中的ActiveX控件批量设定的注意事项

最新推荐文章于 2023-01-09 19:49:27 发布

amulee

最新推荐文章于 2023-01-09 19:49:27 发布

阅读量1.3k

点赞数 1

分类专栏： VBA程序开发文章标签：工作 shapes

本文链接：https://blog.youkuaiyun.com/amulee/article/details/6431958

版权

VBA程序开发专栏收录该内容

23 篇文章

订阅专栏

本文介绍如何使用VBA中的类模块批量设置Excel窗体及工作表中复选框的Change事件，通过实例展示了如何绑定类模块与复选框，并提供了在工作表中访问复选框内部MSForms.CheckBox控件的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

利用类模块可以减少许多重复的代码。
以给控件设定批量的Click事件为例，在工作簿中定义了以下名为clsChe的类模块：
Public WithEvents Chkbox As MSForms.CheckBox Private Sub Chkbox_Change() MsgBox Chkbox.Value End Sub

利用该类模块，可以轻松实现对复选框进行批量设置 Change事件。

在窗体中，只需要绑定窗体中的复选框即可，代码如下：

Dim Chk(1 To 4) As clsChe Private Sub UserForm_Activate() For i = 1 To 4 Set Chk(i) = New clsChe Set Chk(i).Chkbox = Me.Controls("CheckBox" & i) Next i End Sub

但是在工作表中似乎不太容易实现，很多人试过Shapes集合，试过CheckBoxes集合，甚至改变类模块中的定义为
Public WithEvents Chkbox As CheckBox

但会发现，这个CheckBox类型并不支持事件。

因而会给人造成工作表中的复选框控件不是MSForms.CheckBox的错觉，其实不然。
在工作表中插入的复选框和窗体中的其实是一样的。
但是在工作表中插入的复选框增加了一层Shape外衣，使用户无法直接访问到内层的MSForms.CheckBox控件。
必须脱去层层外衣才能访问到其核心控件，其实这个真正的复选框控件在这里

Shapes(i).OLEFormat.Object.Object

我们还可以利用CALLBYNAME函数来直接访问

CallByName(Sheet1, "CheckBox" & i, VbGet)

其余代码同窗体中是一致的。

请查看附件：http://www.exceltip.net/thread-21327-1-1-11314.html