VBA为窗体动态创建的CheckBox复选框绑定点击事件的实现方法

注意：.OnAction是工作表表单控件的专属属性，你在ListaObecnosciForm用户窗体上创建的MSForms.CheckBox不支持该属性，调用会直接报错。动态窗体控件的事件需要通过类模块+WithEvents事件捕获的方案实现，无需为每个复选框单独写事件过程。

步骤1：创建事件处理类模块 #

1. 按Alt+F11打开VBA编辑器，在工程资源管理器右键点击当前项目，选择「插入」-「类模块」
2. 在属性窗口将该类模块的(Name)属性修改为clsCheckBoxHandler
3. 在类模块中粘贴以下代码：

' 声明支持事件的复选框对象
Public WithEvents bindChk As MSForms.CheckBox

' 复选框点击事件响应逻辑
Private Sub bindChk_Click()
    ' 可通过bindChk.Name、bindChk.Caption、bindChk.Value区分触发事件的具体复选框
    MsgBox "Hello World!" & vbCrLf & "当前点击复选框：" & bindChk.Caption
End Sub

步骤2：在窗体模块声明持久化存储容器 #

类实例如果作为局部变量声明，过程执行结束后会被系统回收，事件会直接失效，因此需要在ListaObecnosciForm窗体的代码模块最顶部（所有过程外部）声明模块级集合，存储所有事件处理类的实例，保证实例生命周期和窗体一致：

' 写在ListaObecnosciForm窗体代码的最顶部
Dim chkHandlerCol As Collection

' 窗体初始化时创建集合
Private Sub UserForm_Initialize()
    Set chkHandlerCol = New Collection
End Sub

步骤3：修改复选框创建过程，绑定事件 #

修改原有的WstawCHB过程，在创建完复选框后，实例化事件处理类，完成绑定并存入集合：

Sub WstawCHB(i As Integer, ByVal ws As Worksheet)
    Dim NewCheckBox As MSForms.CheckBox
    Dim newHandler As clsCheckBoxHandler

    Set NewCheckBox = ListaObecnosciForm.Controls.Add("Forms.Checkbox.1", "CB" & i, True)
    With NewCheckBox
        .Top = 20 * i
        .Left = 20
        .Width = 450
        .Height = 24
        .Caption = ws.Cells(2 + i, 27)
        .Value = False
    End With

    ' 绑定事件并存入集合
    Set newHandler = New clsCheckBoxHandler
    Set newHandler.bindChk = NewCheckBox
    chkHandlerCol.Add newHandler
End Sub

步骤4：原有循环逻辑无需修改 #

你原来的DodajCHB循环调用逻辑不需要做任何改动，循环执行时每个新建的复选框会自动绑定点击事件。

扩展说明：如果需要给不同复选框配置差异化的响应逻辑，直接在类模块的bindChk_Click过程中，通过判断bindChk.Name（格式为CB&序号）、bindChk.Caption等属性做分支处理即可。

内容的提问来源于stack exchange，提问作者gilange