VBA互斥复选框实现跨工作表单元格赋值问题求助

首先，我们需要实现三个核心需求：

1. 将计算数据写入隐藏的Sheet2工作表
2. 让两个复选框保持互斥（同一时间仅能勾选一个或都不选）
3. 确保Sheet2默认处于隐藏状态

接下来是完整的代码实现：

1. 工作簿打开时自动隐藏Sheet2 #

双击VBA编辑器中的「ThisWorkbook」，粘贴以下代码：

Private Sub Workbook_Open()
    ' 工作簿打开时隐藏Sheet2
    Sheet2.Visible = xlSheetHidden
End Sub

2. 互斥复选框的逻辑处理 #

假设你的两个ActiveX复选框（CheckBox1和CheckBox2）位于Sheet1，双击Sheet1的代码模块，粘贴以下代码：

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        ' 勾选CheckBox1时，自动取消CheckBox2的勾选（互斥逻辑）
        CheckBox2.Value = False
        ' 向Sheet2的指定单元格写入对应数值（示例为A1，可自行修改）
        Sheet2.Range("A1").Value = -1190
    Else
        ' 取消勾选时，清空Sheet2对应单元格的内容
        Sheet2.Range("A1").Value = ""
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        ' 勾选CheckBox2时，自动取消CheckBox1的勾选（互斥逻辑）
        CheckBox1.Value = False
        ' 向Sheet2的指定单元格写入对应数值（示例为A2，可自行修改）
        Sheet2.Range("A2").Value = 1234 ' 替换为你需要的实际数值
    Else
        ' 取消勾选时，清空Sheet2对应单元格的内容
        Sheet2.Range("A2").Value = ""
    End If
End Sub

关键说明： #

• 互斥逻辑：每次勾选其中一个复选框时，都会强制将另一个复选框的状态设为未勾选，确保同一时间最多只有一个复选框被选中。
• 写入隐藏工作表：直接使用Sheet2.Range操作目标单元格，无需切换或激活Sheet2，完全不干扰用户的正常操作。
• 自定义调整：你可以根据需求修改Sheet2中的目标单元格（如A1、A2），以及CheckBox2对应的写入数值。如果需要在取消勾选时设置特定值（而非清空），只需将""替换为对应的数值即可。
• 临时查看Sheet2：右键点击工作表标签 → 选择「取消隐藏」→ 选中Sheet2即可临时查看或编辑数据。

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