如何在 Excel 中仅允许选中一个组中的一个复选框？

如下面的屏幕截图所示，对于第 2 行中列出的一组复选框，当选择或选中一个复选框时，所有其他复选框都会自动禁用。如何实现？本文中的 VBA 代码可以帮助您。

仅使用VBA代码选中一个复选框

仅使用VBA代码选中一个复选框

您可以运行以下VBA代码，每次仅选择一个复选框组中的一个复选框。 请执行以下操作。

1.首先，请根据需要插入复选框。 在这里，您应该插入 ActiveX控件复选框 如下图所示：

2.然后按 其他 + F11键同时打开 Microsoft Visual Basic应用程序 窗口。

3.在开幕 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 类模块.

4.将班级名称更改为 香港中文大学 在里面 （姓名）的盒子 查看房源 窗格，然后将下面的VBA代码复制并粘贴到相应的 代码 窗口。 看截图：

VBA代码1：每次仅选择一个复选框

Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub

Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then

    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Value = False
        xObj.Object.Enabled = False
      End If
    Next
Else
    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Enabled = True
      End If
    Next
End If
End Sub

5.现在点击 插页 > 模块，然后将下面的VBA代码复制并粘贴到 模块 窗口。

VBA代码2：每次仅选择一个复选框

Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
   Set xSht = ActiveSheet
   Set xCollection = Nothing
    For Each xObj In xSht.OLEObjects
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
            xCollection.Add xChk
        End If
    Next
    Set xChk = Nothing
End Sub

6。 按 F5 键来运行代码。

从现在开始，当选中工作表中的任何一个复选框时，所有其他复选框都会自动禁用，您可以取消选中它以再次激活所有复选框。

备注：如果将新复选框添加到复选框组，请重新运行VBA代码以再次激活所有复选框。 从复选框组中删除复选框也需要重新运行代码。

相关文章:

• 如何根据Excel中的复选框过滤数据？
• 在Excel中隐藏行时如何隐藏复选框？
• 如何在Excel中使用复选框突出显示单元格或行？
• 如何在Excel中创建带有多个复选框的下拉列表？
• 如果在Excel中选中复选框，如何在单元格中插入日期戳？