整合ActiveX复选框Change事件的VBA过程报错求助

1. 原有重复代码示例（推测典型结构） #

假设你之前的单个复选框事件逻辑是重复的，类似这样：

Private Sub CheckBox1_Change()
    CalculateSelectedTotal ' 重复执行的核心逻辑，比如统计选中项
End Sub

Private Sub CheckBox2_Change()
    CalculateSelectedTotal
End Sub
' ... 依次重复到CheckBox15_Change

2. 常见错误原因 #

• 混淆了ActiveX控件与表单控件的引用集合：ActiveX控件属于OLEObjects集合，而非普通Controls集合
• 直接修改OLEObject的Value属性：需通过OLEObject.Object.Value访问复选框的实际选中状态
• 未过滤非复选框控件：遍历控件时未判断类型，导致操作非目标控件报错

3. 正确的整合实现 #

方式一：直接遍历控件的通用处理过程 #

Sub SumPgChk()
    Dim oleCtrl As OLEObject
    Dim selectedCount As Integer
    selectedCount = 0
    
    ' 遍历当前工作表所有ActiveX控件
    For Each oleCtrl In Me.OLEObjects
        ' 仅处理复选框类型控件
        If TypeName(oleCtrl.Object) = "CheckBox" Then
            ' 读取复选框选中状态，累加计数（可替换为你的业务逻辑）
            If oleCtrl.Object.Value = True Then
                selectedCount = selectedCount + 1
            End If
        End If
    Next oleCtrl
    
    ' 将结果写入指定单元格（示例：写入A1单元格）
    Me.Range("A1").Value = "已选中：" & selectedCount & "个选项"
End Sub

方式二：统一绑定所有复选框的Change事件 #

如果需要每个复选框触发Change时自动调用SumPgChk，无需写15个重复事件：

1. 插入类模块，命名为clsChkEventHandler，添加代码：

Public WithEvents TargetChk As MSForms.CheckBox

Private Sub TargetChk_Change()
    ' 调用通用处理过程，Sheet1替换为你的工作表名称
    Sheet1.SumPgChk
End Sub

2. 在工作表模块中添加绑定逻辑：

Private chkHandlers As Collection

Private Sub Worksheet_Activate()
    Dim oleCtrl As OLEObject
    Dim handler As clsChkEventHandler
    
    Set chkHandlers = New Collection
    
    ' 遍历并绑定所有ActiveX复选框
    For Each oleCtrl In Me.OLEObjects
        If TypeName(oleCtrl.Object) = "CheckBox" Then
            Set handler = New clsChkEventHandler
            Set handler.TargetChk = oleCtrl.Object
            chkHandlers.Add handler
        End If
    Next oleCtrl
End Sub

4. 关键错误修复点 #

• 修改复选框状态时，必须用oleCtrl.Object.Value = True/False，而非直接oleCtrl.Value
• 遍历ActiveX控件必须使用Me.OLEObjects集合，表单控件才用Me.Controls
• 若事件不触发，检查类模块中WithEvents变量的类型是否为MSForms.CheckBox，且绑定逻辑在工作表激活时执行

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