excel - 返回 Excel 用户窗体中组中选定的单选按钮

Question

我有一个 Excel 用户窗体，其中有许多组合在一起的单选(选项)按钮。

是否可以引用单选按钮的 GroupName 来识别已选择哪个按钮？

我尝试过 me.myGroup，但 Excel 无法识别它。

如果可能的话，我想写一些类似的东西；

myVar = me.mygroup

这在 Excel 2013 中可行吗？

Answer 1

如果您在选项按钮上设置了 GroupName 属性，如下所示:

然后，您可以在控件的循环中引用该属性，在其中查看控件的 TypeName 为 OptionButton 以及 GroupName 是一个匹配:

Option Explicit

Private Sub CommandButton2_Click()
    Dim opt As MSforms.OptionButton

    Set opt = GetSelectedOptionByGroupName("MyGroup")

    If Not opt Is Nothing Then
        MsgBox opt.Name
    Else
        MsgBox "No option selected"
    End If

End Sub

Function GetSelectedOptionByGroupName(strGroupName As String) As MSforms.OptionButton

    Dim ctrl As Control
    Dim opt As MSforms.OptionButton

    'initialise
    Set ctrl = Nothing
    Set GetSelectedOptionByGroupName = Nothing

    'loop controls looking for option button that is
    'both true and part of input GroupName
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "OptionButton" Then
            If ctrl.GroupName = strGroupName Then 
                Set opt = ctrl
                If opt.Value Then
                    Set GetSelectedOptionByGroupName = opt
                    Exit For
                End If
            End If
        End If
    Next ctrl

End Function