Word中ActiveX复选框动态控制所在单元格填充色的VBA需求

步骤1：打开VBA编辑器 #

• 按下Alt + F11组合键打开Word的VBA编辑器
• 在左侧「工程资源管理器」面板中，找到你的目标文档（如果是新建文档，会显示Normal或当前文档名称），右键点击它，选择「插入」→「模块」，创建一个新的代码模块。

步骤2：粘贴通用控制代码 #

在新建的模块中，粘贴以下代码：

Sub ToggleCellColor(chk As MSForms.CheckBox)
    Dim targetCell As Cell
    ' 动态获取复选框所在的单元格
    Set targetCell = chk.Anchor.Cells(1)
    
    ' 根据勾选状态切换单元格填充色
    If chk.Value = True Then
        ' 勾选时设为绿色
        targetCell.Shading.BackgroundPatternColor = RGB(0, 255, 0)
    Else
        ' 取消勾选时恢复默认底色
        targetCell.Shading.BackgroundPatternColor = wdColorAutomatic
    End If
End Sub

步骤3：给每个复选框绑定点击事件 #

1. 回到Word文档，点击「开发工具」选项卡（如果没看到这个选项卡：右键顶部菜单栏→「自定义功能区」→勾选「开发工具」）
2. 点击「开发工具」→「控件」→「ActiveX控件」里的「复选框（ActiveX控件）」，在需要的单元格内绘制复选框
3. 右键点击刚画好的复选框，选择「查看代码」，VBA编辑器会自动生成该复选框的Click事件过程
4. 在事件过程中添加一行代码，调用上面的通用子程序（把CheckBox1换成你的复选框实际名称）：

Private Sub CheckBox1_Click()
    ToggleCellColor Me.CheckBox1
End Sub

5. 重复上述操作，给所有需要的单元格添加复选框并绑定事件

关键说明 #

• 保存文档时，必须选择.docm格式（启用宏的Word文档），否则宏功能会失效
• 代码通过chk.Anchor动态获取复选框所在的单元格，不管你增删行调整表格结构，复选框始终能正确控制自己所在的单元格，不会出现绑定错位问题
• 如果需要批量添加复选框，可以再用VBA批量生成，但手动操作对新手更直观，先熟悉单个操作后再尝试批量

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