MS Excel

Téma: Volání Comboboxu parametrem

Zaslal/a Vanitas 2.11.2016 23:06

Zdravím,
potřeboval bych volat comboboxy a userformy paramatrem, například něco takového:
for i=1 to 5
formular="Userform" & i
for j=1 to 5
okno="ComboBox" & j
hodnota=formular.okno.value
next j
next i

Děkuji za každou radu.

Zaslat odpověď >

Pavlus(3.11.2016 11:37)#033278

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

Vanitas(3.11.2016 14:04)#033283

Díky moc, to je přesně ono :)citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.