Excel 2016：复选框勾选时复制单元格值的实现求助

方案1：公式实现（仅支持取消勾选时清空H36） #

公式无法保留历史值，取消勾选会自动清空H36，适合接受该逻辑的场景：

• 右键复选框 → 设置控件格式 → 切换到「控制」选项卡 → 「单元格链接」选择一个空白单元格（如I36），确定后勾选复选框时该单元格显示TRUE，取消则为FALSE
• 在H36单元格输入公式：

  =IF(I36=TRUE,G36,"")
  

方案2：VBA宏实现（完全匹配需求） #

该方案可实现「勾选时复制值，取消勾选不改变H36现有内容」的要求：

1. 右键复选框 → 指定宏 → 输入宏名（如CopyValueWhenChecked） → 点击「新建」
2. 在弹出的VBA编辑器中，替换默认代码为对应控件类型的代码：
   • 若为表单控件复选框：

     Sub CopyValueWhenChecked()
         ' 替换"Check Box 1"为你的复选框实际名称（右键复选框→查看属性可查看）
         If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
             Range("H36").Value = Range("G36").Value
         End If
     End Sub
     

   • 若为ActiveX控件复选框：

     Sub CopyValueWhenChecked()
         ' 替换"CheckBox1"为你的复选框实际名称（右键复选框→查看属性可查看Name属性）
         If ActiveSheet.CheckBox1.Value = True Then
             Range("H36").Value = Range("G36").Value
         End If
     End Sub
     

3. 保存文件时选择「Excel 启用宏的工作簿（*.xlsm）」格式，否则宏无法运行
4. 测试：勾选复选框，H36自动同步G36的值；取消勾选，H36保持当前内容不变

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