Excel表单控件复选框互斥设置：选中一个自动取消其余两个

由于非ActiveX表单控件没有内置的单选分组功能，结合你已将复选框链接到单元格的情况，可通过VBA代码实现“选中一个时自动取消另外两个”的效果，以下提供两种可行方案：

方案一：使用工作表选择变化事件触发 #

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口中找到目标工作表，双击打开其代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cb16 As Shape, cb17 As Shape, cb18 As Shape
    Set cb16 = Me.Shapes("Check Box 16")
    Set cb17 = Me.Shapes("Check Box 17")
    Set cb18 = Me.Shapes("Check Box 18")
    
    If cb16.ControlFormat.Value = xlOn Then
        cb17.ControlFormat.Value = xlOff
        cb18.ControlFormat.Value = xlOff
    ElseIf cb17.ControlFormat.Value = xlOn Then
        cb16.ControlFormat.Value = xlOff
        cb18.ControlFormat.Value = xlOff
    ElseIf cb18.ControlFormat.Value = xlOn Then
        cb16.ControlFormat.Value = xlOff
        cb17.ControlFormat.Value = xlOff
    End If
End Sub

该代码会在工作表中任意单元格选中状态变化时，检查三个复选框的状态并自动调整，确保同一时间只有一个复选框处于选中状态，且链接单元格会同步更新。

方案二：给复选框绑定专属宏（更精准触发） #

这种方案仅在点击复选框时触发，效率更高：

1. 按Alt+F11打开VBA编辑器，右键工程窗口 -> 插入 -> 模块
2. 在模块中粘贴以下代码：

Sub SingleCheck()
    Dim activeCb As Shape
    Set activeCb = ActiveSheet.Shapes(Application.Caller)
    
    Dim cb16 As Shape, cb17 As Shape, cb18 As Shape
    Set cb16 = ActiveSheet.Shapes("Check Box 16")
    Set cb17 = ActiveSheet.Shapes("Check Box 17")
    Set cb18 = ActiveSheet.Shapes("Check Box 18")
    
    If activeCb.ControlFormat.Value = xlOn Then
        Select Case activeCb.Name
            Case "Check Box 16"
                cb17.ControlFormat.Value = xlOff
                cb18.ControlFormat.Value = xlOff
            Case "Check Box 17"
                cb16.ControlFormat.Value = xlOff
                cb18.ControlFormat.Value = xlOff
            Case "Check Box 18"
                cb16.ControlFormat.Value = xlOff
                cb17.ControlFormat.Value = xlOff
        End Select
    End If
End Sub

3. 返回Excel界面，右键任意一个复选框（如Check Box 16） -> 选择「指定宏」 -> 在弹出窗口中选中SingleCheck并点击确定
4. 重复步骤3，给另外两个复选框也绑定该宏

注意事项 #

• 确保代码中引用的复选框名称与你工作表中的完全一致（区分大小写和空格）
• 设置复选框的ControlFormat.Value时，Excel会自动同步更新其链接的单元格，无需额外手动修改单元格值
• 若需要禁止“全不选”的状态，可在代码中补充逻辑（例如当点击已选中的复选框时，保持其选中状态）

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