< návrat zpět

MS Excel

Téma: VBA-UserForm-ListBox-z více řádků-select listů rss

Zaslal/a kristv 7.1.2015 19:45

Dobrý den. Sám si už nevím rady, tak prosím o pomoc. V UserFormu v ListBoxu mám nastaven vícenásobný výběr. Výsledkem výběru má být select vybraných listů sešitu a poté náhled vybraných listů. Nedaří se. V příloze je vzor, můj popis je v komentářích, začíná hvězdičkami. Moc děkuji. Vladimír Krist

Příloha: zip23015_vyber_vice_listu_sesitu_z_userform_listbox.zip (34kB, staženo 51x)
Zaslat odpověď >
kp57(8.1.2015 1:07)#023017
avatar
Třeba takto:
Ale já bych spíš dal to záhlaví do Labels a ListBox bych nalil přímo v Initialize bez pomocného Listu.
Příloha: zip23017_vyber_vice_listu_3.zip (42kB, staženo 55x)
citovat
kristv(8.1.2015 17:14)#023025
avatar
Tak to bych bez Vás nedal, to je přesně ono. Díky i za jiný - lepší - způsob nasypání do Userformu. A záhlaví taky udělám, jak píšete.
Velice děkuji.citovat
kp57(8.1.2015 18:40)#023027
avatar
Pak by v tom Initialize bylo něco jako:Label2.Caption = "Název listu"
Label3.Caption = "Číslo"
ii = ThisWorkbook.Sheets.Count
With LB_seznam_listu
.RowSource = ""
.ColumnCount = 2
.ColumnHeads = False
.Height = ii * 13
For i = 1 To ii
.AddItem
.List(i - 1, 0) = Sheets(i).Name
.List(i - 1, 1) = Sheets(i).Cells(2, 1)
Next i
End With
a všechno co se týká toho pomoc Listu dát pryč.
Příloha: zip23027_vyber_vice_listu_4.zip (40kB, staženo 71x)
citovat
kristv(9.1.2015 19:07)#023065
avatar
Zkusil jsem bez "pracovního" listu. Je to bezva. Ještě jednou DÍKY !citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

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.

On-line nástroje