Excel VBA 实现取消勾选复选框后自动清空指定单元格内容

原代码失效核心原因 #

• 未明确指定复选框所属的工作表对象，VBA无法匹配到Summary页的CheckBox3控件
• 代码存放位置错误：如果用的是ActiveX控件，点击事件代码必须放在对应工作表的代码模块中，放在普通模块会无法识别控件

适配双复选框的实现代码 #

方案1：使用ActiveX控件（最常用场景） #

打开VBA编辑器（快捷键Alt+F11），在左侧工程资源管理器中双击Summary工作表，粘贴以下代码即可：

Private Sub CheckBox3_Click()
    With ThisWorkbook.Sheets("Summary")
        ' 取消勾选时清空对应区域，只清内容用ClearContents，要清格式/批注就换用Clear
        If Not Me.CheckBox3.Value Then
            .Range("C12:C13").ClearContents
        End If
        ' 实现勾选可录入、取消勾选禁止录入的逻辑，需要先给Summary工作表加保护
        .Range("C12:C13").Locked = Not Me.CheckBox3.Value
    End With
End Sub

Private Sub CheckBox4_Click()
    With ThisWorkbook.Sheets("Summary")
        If Not Me.CheckBox4.Value Then
            .Range("C14:C15").ClearContents
        End If
        .Range("C14:C15").Locked = Not Me.CheckBox4.Value
    End With
End Sub

若需要开启「勾选才能录入」的权限控制，提前做以下配置：选中Summary工作表中所有允许自由编辑的普通区域→右键设置单元格格式→切换到「保护」 tab→取消勾选「锁定」→点击「审阅」选项卡→选择「保护工作表」（密码可按需设置）即可。

方案2：使用表单控件 #

如果用的是表单类型的复选框，把以下代码放到普通模块中，再给两个复选框都指定这个宏即可：

Sub CheckBoxClearLogic()
    Dim shp As Shape
    With ThisWorkbook.Sheets("Summary")
        For Each shp In .Shapes
            If shp.Type = msoFormControl And shp.FormControlType = xlCheckBox Then
                Select Case shp.Name
                    ' 此处的复选框名称需和你实际控件的名称保持一致，右键控件可查看名称
                    Case "复选框 3"
                        If shp.ControlFormat.Value = xlOff Then
                            .Range("C12:C13").ClearContents
                        End If
                    Case "复选框 4"
                        If shp.ControlFormat.Value = xlOff Then
                            .Range("C14:C15").ClearContents
                        End If
                End Select
            End If
        Next shp
    End With
End Sub

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