如何为Excel工作表所有复选框添加背景色切换宏

不用给每个复选框单独写宏，用类模块可以一次性搞定所有复选框的点击变色需求，步骤如下：

第一步：插入类模块 #

• 打开VBA编辑器（按Alt+F11快捷键）
• 右键点击项目窗口中的工作簿名称 → 插入 → 类模块
• 按F4调出属性窗口，把类模块的名称修改为clsCheckBox

第二步：编写类模块代码 #

将以下代码粘贴到clsCheckBox模块中：

Public WithEvents chkBox As MSForms.CheckBox

Private Sub chkBox_Click()
    ' 勾选时设置背景为红色，取消勾选时恢复白色
    chkBox.BackColor = IIf(chkBox.Value, RGB(255, 0, 0), RGB(255, 255, 255))
End Sub

第三步：在目标工作表中初始化控件 #

双击打开存放复选框的工作表对应的模块（比如Sheet1），粘贴以下代码：

Dim colCheckboxes As New Collection

Private Sub Worksheet_Activate()
    Dim ctrl As Object
    Dim chkObj As clsCheckBox
    
    ' 清空集合，避免重复绑定
    Set colCheckboxes = New Collection
    
    ' 遍历工作表内所有OLE控件
    For Each ctrl In Me.OLEObjects
        ' 判断是否为复选框
        If TypeName(ctrl.Object) = "CheckBox" Then
            Set chkObj = New clsCheckBox
            Set chkObj.chkBox = ctrl.Object
            colCheckboxes.Add chkObj
        End If
    Next ctrl
End Sub

注意事项 #

• 切换到目标工作表时，代码会自动绑定所有复选框；新增复选框后，只需重新激活工作表（切到其他表再切回来）即可生效
• 代码中RGB(255,0,0)是红色，你可以替换成任意喜欢的RGB值来更改勾选后的背景色

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