Userform' da Frame adını değişken olarak tanımlamak

[tamer42]

Merhaba,
Aşağıdaki kodda

Frame8 ifadesini değişken olarak tanımlamak istiyorum, buradaki düzenlemeyi nasıl yapabiliriz?


teşekkürler, iyi pazarlar.

Sub xlFrame()
xlOptionButton ("Frame8")

End Sub

Sub xlOptionBtn(Frm as control)
Dim ctl As Control
For Each ctl In UserForm1.Frame8.Controls
    If TypeName(ctl) = "OptionButton" Then
    
        If ctl.Value = True Then
        
            Select Case ctl.Caption
                Case "OptionButton1"
                    MsgBox "do something"
                Case "OptionButton2"
                    MsgBox "do something else"
            End Select
            
        End If
        
    End If
    
Next ctl


End Sub

 

[tamer42]

Merhaba,
Aşağıdaki kodda

Frame8 ifadesini değişken olarak tanımlamak istiyorum, buradaki düzenlemeyi nasıl yapabiliriz?


teşekkürler, iyi pazarlar.

Sub xlFrame()
xlOptionButton ("Frame8")

End Sub

Sub xlOptionBtn(Frm as control)
Dim ctl As Control
For Each ctl In UserForm1.Frame8.Controls
    If TypeName(ctl) = "OptionButton" Then
   
        If ctl.Value = True Then
       
            Select Case ctl.Caption
                Case "OptionButton1"
                    MsgBox "do something"
                Case "OptionButton2"
                    MsgBox "do something else"
            End Select
           
        End If
       
    End If
   
Next ctl


End Sub

bu şekilde bir çözüm ürettim, farklı yöntemlerde olabilir.

For Each ctl In UserForm1.Controls(Frm).Controls

iyi geceler.