MS Excel

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

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

Zaslat odpověď >

kp57(8.1.2015 1:07)#023017

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: zip

23017_vyber_vice_listu_3.zip (42kB, staženo 41x)

citovat

kristv(8.1.2015 17:14)#023025

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

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: zip