Excel多个单选框分组

Question

Excel里的6个ActiveX控件（单选框），可以分成两组吗，每一组的3个互斥，两组之间不互斥，这6个单选框用ActiveX控件还是表单控件？VBA代码怎么取得哪个单选框被选中了？

Answer 1

下午好🌅🌅🌅
本答案参考ChatGPT-3.5

是的，你可以将6个ActiveX控件（单选框）分成两组，每组包含3个互斥的单选框。两组之间不会互斥。

为了实现这一点，你需要进行以下步骤：

1. 在Excel中插入6个ActiveX单选框控件。
2. 选择第一组的三个单选框，右键单击其中一个单选框，选择"Group"，然后选择"Group Box 1"。这样会创建一个分组框。
3. 选择第二组的三个单选框，右键单击其中一个单选框，选择"Group"，然后选择"Group Box 2"。这样也会创建一个分组框。
4. 重命名各个分组框和单选框的名称，以便在VBA代码中引用它们。
5. 使用VBA代码来获取被选中的单选框。您可以使用以下代码来获取当前选定的单选框：

Sub GetSelectedRadioButton()
    Dim Group1 As Variant
    Dim Group2 As Variant
    
    ' 获取第一组的选中单选框
    With Sheet1
        Set Group1 = .OLEObjects("Group Box 1").Object
        If Group1.OptionButton1.Value = True Then
            ' 执行选中单选框1的操作
        ElseIf Group1.OptionButton2.Value = True Then
            ' 执行选中单选框2的操作
        ElseIf Group1.OptionButton3.Value = True Then
            ' 执行选中单选框3的操作
        End If
    End With
    
    ' 获取第二组的选中单选框
    With Sheet1
        Set Group2 = .OLEObjects("Group Box 2").Object
        If Group2.OptionButton1.Value = True Then
            ' 执行选中单选框1的操作
        ElseIf Group2.OptionButton2.Value = True Then
            ' 执行选中单选框2的操作
        ElseIf Group2.OptionButton3.Value = True Then
            ' 执行选中单选框3的操作
        End If
    End With
End Sub

需要注意的是，你需要将Sheet1更改为你存放控件的工作表名称。

希望这可以帮助到你！