ActiveX复选框联动与列填充VBA代码问题求助

需求说明 #

• 4个ActiveX复选框CheckBox1-4，CheckBox1-3互斥：选中其中一个时，另外两个禁用，对应列数据填充至E列，同时CheckBox4禁用；
• 当CheckBox1-3均未选中时，CheckBox4自动勾选，E列单元格全部设为0。

当前异常 #

首次运行CheckBox1-3未选中时，CheckBox4可正常勾选；选中CheckBox1-3任意一个时，CheckBox4可正常禁用；但取消CheckBox1-3的勾选后，CheckBox4无法恢复启用和勾选。

现有问题代码 #

Private Sub CheckBox1_Click() 

If CheckBox1.Value = True Then 
    CheckBox2.Value = False 
    CheckBox2.Enabled = False 
    CheckBox3.Value = False 
    CheckBox3.Enabled = False 
    CheckBox4.Value = False 
    CheckBox4.Enabled = False 
    Range("A1:A3").Value = Range("E1:E3").Value ' 注：赋值方向与需求相反

Else: 
    CheckBox2.Enabled = True 
    CheckBox3.Enabled = True

End If 
End Sub 

Private Sub CheckBox2_Click() 

If CheckBox2.Value = True Then 
    CheckBox1.Value = False 
    CheckBox1.Enabled = False 
    CheckBox3.Value = False 
    CheckBox3.Enabled = False
    CheckBox4.Value = False 
    CheckBox4.Enabled = False 
    Range("B1:B3").Value = Range("E1:E3").Value ' 注：赋值方向与需求相反

Else:
    CheckBox1.Enabled = True 
    CheckBox3.Enabled = True

End If 
End Sub 

Private Sub CheckBox3_Click() 

If CheckBox3.Value = True Then 
    CheckBox1.Value = False 
    CheckBox1.Enabled = False 
    CheckBox2.Value = False 
    CheckBox2.Enabled = False 
    CheckBox4.Value = False 
    CheckBox4.Enabled = False 
    Range("A1:A3").Value = Range("E1:E3").Value ' 注：赋值方向与需求相反

Else: 
    CheckBox1.Enabled = True 
    CheckBox2.Enabled = True

End If 
End Sub 

Private Sub CheckBox9_Click() ' 注：CheckBox9为笔误，且逻辑未被触发

If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then 
    CheckBox4.Value = True 
    CheckBox4.Enabled = True 
    Range("E1:E3").Value = 0

Else: 
    CheckBox4.Value = False 
    CheckBox4.Enabled = False

End If 
End Sub 

尝试过的无效方法 #

• 网上找来的循环代码（存在语法错误）：

  Sub CheckboxLoop() 
   Dim objX As OLEObject 
  
  With ActiveSheet 
   For Each objX In .OLEObjects
  End If ' 注：缺少For循环逻辑体与配对的起始语句
   Next 
   End With 
   End Sub 
  

• 删除多处CheckBox4.Enabled = False，问题依旧

修正后的代码 #

' 公共子过程：统一处理复选框状态与E列填充逻辑
Private Sub UpdateCheckBoxStates()
    Dim allUnchecked As Boolean
    
    ' 判断CheckBox1-3是否均未选中
    allUnchecked = (Not CheckBox1.Value) And (Not CheckBox2.Value) And (Not CheckBox3.Value)
    
    If allUnchecked Then
        ' 三个都未选中时，启用并勾选CheckBox4，E列设为0
        CheckBox4.Enabled = True
        CheckBox4.Value = True
        Range("E1:E3").Value = 0
        ' 重新启用CheckBox1-3
        CheckBox1.Enabled = True
        CheckBox2.Enabled = True
        CheckBox3.Enabled = True
    Else
        ' 有任意一个选中时，禁用CheckBox4
        CheckBox4.Enabled = False
        CheckBox4.Value = False
        
        ' 处理CheckBox1-3的互斥逻辑
        If CheckBox1.Value Then
            CheckBox2.Enabled = False
            CheckBox2.Value = False
            CheckBox3.Enabled = False
            CheckBox3.Value = False
            ' 将A列数据填充到E列
            Range("E1:E3").Value = Range("A1:A3").Value
        ElseIf CheckBox2.Value Then
            CheckBox1.Enabled = False
            CheckBox1.Value = False
            CheckBox3.Enabled = False
            CheckBox3.Value = False
            ' 将B列数据填充到E列
            Range("E1:E3").Value = Range("B1:B3").Value
        ElseIf CheckBox3.Value Then
            CheckBox1.Enabled = False
            CheckBox1.Value = False
            CheckBox2.Enabled = False
            CheckBox2.Value = False
            ' 将C列数据填充到E列（原代码此处误用A列，已修正）
            Range("E1:E3").Value = Range("C1:C3").Value
        End If
    End If
End Sub

' CheckBox1点击事件
Private Sub CheckBox1_Click()
    UpdateCheckBoxStates
End Sub

' CheckBox2点击事件
Private Sub CheckBox2_Click()
    UpdateCheckBoxStates
End Sub

' CheckBox3点击事件
Private Sub CheckBox3_Click()
    UpdateCheckBoxStates
End Sub

' 工作表激活时初始化状态
Private Sub Worksheet_Activate()
    UpdateCheckBoxStates
End Sub

修正说明 #

1. 抽离公共逻辑：把所有状态判断和列填充逻辑放到UpdateCheckBoxStates子过程，避免重复代码，确保每次复选框状态变化都能触发统一检查。
2. 修正赋值方向：将原代码中E列赋值到A/B列的逻辑，改为A/B/C列数据填充到E列，符合需求。
3. 修复触发逻辑：取消CheckBox1-3勾选后，自动调用公共过程检查是否全部未选中，从而恢复CheckBox4的状态。
4. 初始化状态：添加Worksheet_Activate事件，确保工作表打开时自动初始化所有复选框状态。
5. 修正笔误与错误：移除无效的CheckBox9_Click过程，修正原代码中CheckBox3对应的填充列错误。

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