需求：VBA实现复选框超27个时取消最后勾选的复选框

• 当前存在2个表格（后续计划新增更多），每个表格包含4列：D列（复选框）、E列（商品编码）、F列（描述）、G列（数量）
• 已清除所有复选框的链接单元格属性，且拥有可将复选框链接到对应单元格的代码
• 核心需求：最多允许勾选27个复选框，当勾选第28个时，自动取消刚勾选的该复选框（无论位于哪个表格），并弹出警告提示框

你提供的ChatGPT生成代码存在逻辑缺陷：通过Worksheet_Calculate事件触发后，会遍历所有复选框收集已勾选项，但最终取消的是集合中第一个被勾选的复选框（checkedCheckboxes(1).Value = xlOff），无法定位到刚操作的那个复选框，因此不符合需求。

原代码（中文注释版）：

Private Sub Worksheet_Calculate()
Dim checkbox As checkbox
Dim checkedCheckboxes As Collection
Dim maxChecked As Integer
Dim totalChecked As Integer

' 允许勾选的最大复选框数量
maxChecked = 27

' 初始化集合存储已勾选的复选框
Set checkedCheckboxes = New Collection

' 遍历工作表中所有复选框
For Each checkbox In Me.CheckBoxes
    ' 检查复选框是否被勾选
    If checkbox.Value = xlOn Then
        ' 将已勾选的复选框添加到集合
        checkedCheckboxes.Add checkbox
    End If
Next checkbox

' 计算已勾选复选框的总数
totalChecked = checkedCheckboxes.Count

' 检查总数是否超过最大值
If totalChecked > maxChecked Then
    ' 取消第一个被勾选的复选框（此处为问题核心，无法定位最后勾选的项）
    checkedCheckboxes(1).Value = xlOff
    checkedCheckboxes.Remove 1

    ' 显示提示信息
    MsgBox "SAP预留仅支持27行，请先传输数据并清除复选框后再继续！", vbInformation, "结果检查"
End If
End Sub

要实现精准取消刚勾选的复选框，需通过类模块捕获每个复选框的点击事件，以下是完整实现步骤：

步骤1：创建类模块 #

1. 打开VBA编辑器，插入类模块，将其命名为clsCheckboxHandler
2. 在类模块中粘贴以下代码：

Public WithEvents chk As MSForms.CheckBox
Private maxAllowed As Integer

Private Sub Class_Initialize()
    maxAllowed = 27 ' 设置最大允许勾选数量
End Sub

Private Sub chk_Click()
    Dim totalChecked As Integer
    Dim ws As Worksheet
    Set ws = chk.Parent
    
    ' 统计当前已勾选的复选框总数
    totalChecked = CountCheckedCheckboxes(ws)
    
    ' 若勾选后超出上限，取消当前复选框并提示
    If chk.Value = xlOn And totalChecked > maxAllowed Then
        chk.Value = xlOff
        MsgBox "SAP预留仅支持27行，请先传输数据并清除复选框后再继续！", vbInformation, "结果检查"
    End If
End Sub

' 辅助函数：计算工作表内已勾选复选框数量
Private Function CountCheckedCheckboxes(ws As Worksheet) As Integer
    Dim cb As checkbox
    Dim count As Integer
    count = 0
    For Each cb In ws.CheckBoxes
        If cb.Value = xlOn Then
            count = count + 1
        End If
    Next cb
    CountCheckedCheckboxes = count
End Function

步骤2：在工作表模块中初始化事件绑定 #

打开目标工作表的代码模块（如Sheet1），粘贴以下代码：

Private checkboxHandlers As Collection

Private Sub Worksheet_Activate()
    Dim cb As checkbox
    Dim handler As clsCheckboxHandler
    
    Set checkboxHandlers = New Collection
    
    ' 为工作表内所有复选框绑定事件处理
    For Each cb In Me.CheckBoxes
        Set handler = New clsCheckboxHandler
        Set handler.chk = cb
        checkboxHandlers.Add handler
    Next cb
End Sub

• 类模块clsCheckboxHandler通过WithEvents捕获每个复选框的点击事件，能精准定位到刚操作的复选框
• 点击复选框时，先统计当前已勾选总数，若勾选后超过27，直接取消当前复选框并弹出提示
• 工作表激活时自动为所有复选框绑定事件，后续新增表格或复选框后，重新激活工作表即可完成自动绑定

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