Excel VBA复选框联动：根据复选框状态修改单元格与其他复选框状态

需求场景 #

通过Excel复选框点击事件实现多层级勾选联动，界面效果参考：

目前已实现一级复选框cbx_1对下属所有子复选框的全选/取消全选联动，现有代码如下：

Sub cbxGrp_Click()
    Dim oCbx As CheckBox
    Dim lValue As Long
    Dim sGrp As String
    sGrp = Application.Caller
    lValue = ActiveSheet.CheckBoxes(sGrp).Value
    sGrp = Split(sGrp, "_")(1)
    For Each oCbx In ActiveSheet.CheckBoxes
        If oCbx.Name Like "cbx_" & sGrp & "_*" Then
            oCbx.Value = lValue
        End If
    Next
    
    If lValue <> 1 Then
        Range("b2").Value = CVErr(xlErrNA)
        Range("B3").Value = False
        Range("B5").Value = False
        Range("B6").Value = False
    
    End If
    
End Sub

待实现规则 #

取消勾选二级复选框cbx_1_1时，需同时满足：

• 单元格B2值为#N/A
• 单元格B3、B5、B6值为FALSE
• 其余单元格及控件状态保持不变
• 三级复选框cbx_1_1_1与cbx_1_1_2同步取消勾选
• 二级复选框cbx_1_2实现与cbx_1_1完全一致的联动逻辑

实现方案 #

将原有宏代码替换为以下通用版本，所有层级的复选框都绑定到这个宏即可，不需要单独为每个复选框写事件：

Sub cbxGrp_Click()
    Dim oCbx As CheckBox
    Dim lValue As Long
    Dim callerName As String
    Dim nameParts As Variant
    
    ' 读取触发当前事件的复选框状态
    callerName = Application.Caller
    lValue = ActiveSheet.CheckBoxes(callerName).Value
    nameParts = Split(callerName, "_")
    
    ' 通用子级联动：自动同步当前复选框下所有子复选框的勾选状态
    For Each oCbx In ActiveSheet.CheckBoxes
        If oCbx.Name Like callerName & "_*" Then
            oCbx.Value = lValue
        End If
    Next
    
    ' 一级复选框取消勾选时的单元格赋值逻辑
    If UBound(nameParts) = 1 And lValue <> 1 Then
        Range("B2").Value = CVErr(xlErrNA)
        Range("B3,B5,B6").Value = False
    End If
    
    ' 二级复选框取消勾选时的单元格赋值逻辑，所有二级复选框自动适配
    If UBound(nameParts) = 2 And lValue <> 1 Then
        Range("B2").Value = CVErr(xlErrNA)
        Range("B3,B5,B6").Value = False
    End If
End Sub

代码说明 #

• 联动逻辑做了通用化处理，通过复选框名称的下划线分段判断层级，不管点击哪一级复选框，都会自动同步其所有下级复选框状态，后续新增同级/下级复选框不需要额外修改名称匹配规则
• 单元格赋值部分合并了重复的Range写法，执行效率更高
• 所有二级复选框会自动适配相同的取消勾选规则，不需要单独为cbx_1_2写额外逻辑

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