Excel 中的互斥复选框（切换）

Question

我的电子表格包含表单工具栏中的 50 多个复选框。在某些情况下，您只能选中一组中的 1 个复选框，即选中从复选框 1 到复选框 5 中的一个复选框。

如果可能的话，我尝试在不使用任何代码的情况下实现这一目标。选项按钮不是首选，因为我想要统一的电子表格。

如何将 checkbox1 到 checkbox5 分组，以便它们在一个组中互斥。

谢谢

Answer 1

您可能需要使用单选按钮，组之间可能有分隔符，因为这也向最终用户表明这些字段是互斥的。

根据定义，单选按钮在组内是互斥的。

请记住，在应该使用单选框的地方使用复选框会让最终用户感到困惑，因为他们想知道为什么该复选框突然停用，而使用单选按钮时，混淆因素不存在。

Answer 2

如果您无法使用选项按钮，请尝试此代码

Private Sub CheckBox1_Change()

    With Me.CheckBox1
        If .Value Then ClearGroup .GroupName, .Name
    End With

End Sub

Private Sub CheckBox2_Change()

    With Me.CheckBox2
        If .Value Then ClearGroup .GroupName, .Name
    End With

End Sub

Private Sub CheckBox3_Change()

    With Me.CheckBox3
        If .Value Then ClearGroup .GroupName, .Name
    End With

End Sub

Private Sub ClearGroup(sGroup As String, sName As String)

    Dim ole As OLEObject

    For Each ole In Me.OLEObjects
        If TypeName(ole.Object) = "CheckBox" Then
            If ole.Object.GroupName = sGroup And ole.Name <> sName Then
                ole.Object.Value = False
            End If
        End If
    Next ole

End Sub

Answer 3

为什么您认为选项（单选）按钮是互斥的？我有两个人在一组。当我点击其中一个时，另一个就会打开。并且没有办法取消选择它们。它们最初按预期工作，但是当我为不相关的控件创建第二个组并使用带有两个选项按钮的不同链接框时，奇怪的行为开始了。到目前为止，我能做的最好的事情就是为每个控件组合和无组设置一个单独的单选按钮。