U formuláře si asi budeš muset pomoci s proměnnou typu Object. ComboBox pak lze zavolat klasicky přes "Controls.Item".
P.
Např.:
Sub Formulare_s_promennou()
Dim i As Integer
Dim j As Integer
Dim promenny_nazev_formulare As Object
Dim hodnota As Long
For i = 1 To 5
Set promenny_nazev_formulare = UserForms.Add("UserForm" & i)
For j = 1 To 5
hodnota = promenny_nazev_formulare.Controls.Item("ComboBox" & j).Value
Next j
Next i
End Subcitovat
P.
Např.:
Sub Formulare_s_promennou()
Dim i As Integer
Dim j As Integer
Dim promenny_nazev_formulare As Object
Dim hodnota As Long
For i = 1 To 5
Set promenny_nazev_formulare = UserForms.Add("UserForm" & i)
For j = 1 To 5
hodnota = promenny_nazev_formulare.Controls.Item("ComboBox" & j).Value
Next j
Next i
End Subcitovat
RSS nejnovější články