动态创建含复选框的Multipage控件，如何触发CheckBox1_Change()事件？

因为你是通过复制粘贴创建的动态复选框，常规控件事件无法直接捕获，用类模块+集合的方式可以实现实时监听复选框状态变化，是最简洁的触发方案，具体步骤如下：

1. 创建类模块 #

插入一个类模块（菜单→插入→类模块），将其命名为clsCheckboxHandler，然后写入以下代码：

Private WithEvents chk As MSForms.CheckBox

' 初始化类，绑定复选框控件并标记所属页面
Public Sub Init(targetChk As MSForms.CheckBox, pageIndex As Integer)
    Set chk = targetChk
    chk.Tag = pageIndex ' 用Tag存储页面索引，方便后续定位记录位置
End Sub

' 实时捕获复选框状态变化
Private Sub chk_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的目标工作表名") ' 替换为实际工作表名称
    
    ' 示例：将状态写入对应行的B列（可根据你的需求调整单元格位置）
    ws.Cells(CLng(chk.Tag) + 2, 2).Value = chk.Value ' +2是跳过表头，按需修改
End Sub

2. 修改用户窗体代码 #

在用户窗体的代码模块中，先声明一个集合保存类实例（防止实例被自动回收）：

Private colCheckboxHandlers As New Collection

然后在UserForm_Initialize事件中，完成Multipage页面创建、控件粘贴后，遍历所有页面的复选框绑定事件：

Private Sub UserForm_Initialize()
    Dim p As Integer
    Dim ctrl As MSForms.Control
    Dim chkHandler As clsCheckboxHandler
    
    ' 保留你原有代码：创建Multipage页面、复制粘贴模板控件、填充标签/列表框数据
    ' ...
    
    ' 遍历所有页面，绑定复选框事件
    For p = 0 To Me.MP.Pages.Count - 1
        For Each ctrl In Me.MP.Pages(p).Controls
            If TypeName(ctrl) = "CheckBox" Then
                Set chkHandler = New clsCheckboxHandler
                chkHandler.Init ctrl, p
                colCheckboxHandlers.Add chkHandler
            End If
        Next ctrl
    Next p
End Sub

3. 补充说明 #

• 这种方式会在复选框状态改变的瞬间触发事件，实时更新工作表数据，无需依赖页面切换或窗体关闭操作。
• 模板页面里的多个复选框会被自动绑定，无需额外修改代码。
• 若Multipage页面数量为0，遍历逻辑会自动跳过，不会报错。

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