Excel wird - durch Rücksendung der Beschriftung der ausgewählten option-Taste

Wahrscheinlich eine dumme Frage mit einer einfachen Antwort, aber ich bin ein echter Neuling, wenn es um userforms.

Habe ich "Frame 3" mit 5 verschiedenen Optionsfelder (Ziel1, Ziel2, Dest3, Dest4, Dest5), Nachdem eine option ausgewählt ist, wo ist die Beschriftung mit dem Wert der ausgewählten option gespeichert? Wie kann ich das mit vba.

Danke,
Josh

Bedeutet diese Antwort helfen? stackoverflow.com/q/7624631/2258
Nein, das Beispiel im link hat keine UserForm.
Me.Frame3.ActiveControl.Caption

InformationsquelleAutor Josh | 2014-01-29

Hier nur einige Beispiel-code, den Sie verwenden können. Fügen Sie Ihre Optionsfelder zu Gruppen, und dann können Sie gehen von dort aus. Ich benutzte Gruppen da hattest du mehrere Bilder, und Sie können überprüfen, basierend auf der Gruppe, und mehrere Gruppen haben, und überprüfen Sie, welche der gewählten für die einzelnen Gruppen.

Private Sub CommandButton1_Click()
     Dim x As Control

     ' Loop through ALL the controls on the UserForm.
     For Each x In Me.Controls
         ' Check to see if "Option" is in the Name of each control.
         If InStr(x.Name, "Option") Then
             ' Check Group name.
             If x.GroupName = "Grp1" Then
                 ' Check the status of the OptionButton.
                 If x.Value = True Then
                     MsgBox x.Caption
                     Exit For
                 End If
             End If
         End If
     Next
End Sub

Ich habe den Bildunterschriften. Ich möchte nur den Namen der variable, die speichert den Namen der Beschriftung durch den Benutzer ausgewählt.
Ich habe aktualisiert es.
Ich empfehle die Verwendung TypeName(x) = "OptionButton" anstelle von InStr(x.Name, "Option")
Sehr nützlich, thx!!!

InformationsquelleAutor Alex D

Können Sie auch auf die option Schaltflächen, die über die frame-ojbect, hält Sie (wenn Sie andere frames und Steuerelemente, die Sie nicht wollen, um durch zu gehen):

Option Explicit

Sub Test()
    Dim oCtrl As Control

    '***** Try only controls in Frame3
    For Each oCtrl In Frame3.Controls
        '***** Try only option buttons
        If TypeName(oCtrl) = "OptionButton" Then
            '***** Which one is checked?
            If oCtrl.Value = True Then
                '***** What's the caption?
                Debug.Print "You have checked option " & oCtrl.Caption
                Exit For
            End If
        End If
    Next
End Sub

Sehr nützlich, thx!!!

InformationsquelleAutor Olle Sjögren

Den Label-Text im Zusammenhang mit den Option-Button ist erhältlich durch die Verwendung OptionButton1.Caption

Wenn Sie eine Schleife, ersetzen Sie einfach den OptionButton1 mit deiner variable für die option Tasten, und es wird ziehen Sie durch die, die Sie brauchen, wenn die Bedingungen erfüllt sind. eg:

For xitem = 1 To 5
    xFrm = "OptionButton" & xitem
    For Each fItem In Me.Controls
        If fItem.Name Like xFrm Then
                If fItem.Value Then
                    k = fitem.Caption
                End If
        End If
    Next fItem
Next xitem

InformationsquelleAutor bmgh1985

0

In meinem Fall wollte ich die Beschriftung der Knebel, der ausgewählt wurde, in einer Optionsgruppe übergeben werden, auf ein Unterformular filtern. z.B. für die Auswahl benutzen Sie die "black" - Filter Unterformular alle Autos, in denen strColour = "schwarz".

Landete ich mit diesem:
```
Private Sub OptionGroupName_Click()
    Dim Caption As String
    Caption = OptionGroupName.Controls.Item(OptionGroupName.Value - 1).Caption
    Me.SubformName.Form.Filter = "[SubformField] = """ & Caption & """"
    Me.SubformName.Form.FilterOn = True
End Sub
```
InformationsquelleAutor Dave

Nicht zu hundehäufchen auf allen anderen Optionen, aber ich erstellte eine Funktion, die radio-Gruppe Namen und spuckt die ausgewählten radios jeweiligen Beschriftung. Verwendet wurde es in Access nicht Excel.
Funktioniert nur, sofern Sie die Namen Ihrer Kontrollen ähnlich....
d.h. (lblRadioButton1 & optRadioButton1)

Function GetSelectedRadioButtonCaption(ByVal optionGroupName As OptionGroup) As String
    Dim oCtrl As Control
    Dim oCtrl2 As Control
    Dim optionLabelName As String
    Dim optionLabelObject As Label
    Dim optionButtonObject As OptionButton

    For Each oCtrl In optionGroupName.Controls
        '***** Try only option buttons
        If TypeOf oCtrl Is OptionButton Then
            '***** Which one is checked?
            Set optionButtonObject = oCtrl
            If optionButtonObject.OptionValue = optionGroupName.Value Then
                '***** What's the caption?
                optionLabelName = Replace(oCtrl.Name, "opt", "lbl")
                For Each oCtrl2 In optionGroupName.Controls
                    If oCtrl2.Name = optionLabelName Then
                      Set optionLabelObject = oCtrl2
                      GetSelectedRadioButtonCaption = optionLabelObject.caption
                      Exit For
                    End If
                Next
            End If
            If GetSelectedRadioButtonCaption <> "" Then
                Exit For
            End If
        End If
    Next
Exit_GetSelectedRadioButtonCaption:
End Function

InformationsquelleAutor M. Swartz

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.