Получить заголовок опции кнопки и флажок при включении

Question

Я хочу получить заголовок опции и флажка, когда значение равно true.

У меня есть этот код. Я получаю сообщение об ошибке ниже.

    Dim c As Control, str As String
    Dim d As Control, ctr As String

    For each c in Userform1.Controls
        For each d in Userform1.Controls
            If TypeName(c) ="OptionButton" Then 
                If TypeName(d) = "CheckBox" Then
                    str = str & IIf(c = True, c.Caption & vbCrLf, "")
                    ctr = ctr & IIf(d= True, d.Caption & vbCrLf, "")
                End If
            End If
        Next c
    Next d
    TextBox2.Value = "PV:" & str & ctr
End sub

Answer 1

Попробуйте следующий подпункт.Надеюсь, это поможет вам.

Private Sub CommandButton1_Click()
Dim c As Control, str As String, ctr As String

    For Each c In UserForm1.Controls
        If TypeName(c) = "OptionButton" Then
            If c = True Then
                str = str & c.Caption & vbCrLf
            End If
        End If

        If TypeName(c) = "CheckBox" Then
            If c = True Then
                ctr = ctr & c.Caption & vbCrLf
            End If
        End If
    Next c
    'TextBox2.Value = "PV:" & str & ctr
    MsgBox "PV: " & str & ctr
End Sub