MS Excel

Téma: naplnění listboxu

Zaslal/a ji026441 23.1.2014 19:07

Prosím o pomoc jak naplnit listbox daty z listu1.

Příloha: zip

17439_listbox.zip (16kB, staženo 37x)

Zaslat odpověď >

cmuch(23.1.2014 19:29)#017440

Třeba takto při inicializacaci

Private Sub UserForm_Initialize()

For radek = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ListBox1.AddItem Cells(radek, 1).Value
ListBox1.Column(ListBox1.ColumnCount - 3, ListBox1.ListCount - 1) = Cells(radek, 2).Value
ListBox1.Column(ListBox1.ColumnCount - 2, ListBox1.ListCount - 1) = Cells(radek, 3).Value
Next radek
End Sub

Stačí nastavit počet sloupců v listboxu a pohrát si s šířkou sloupců.citovat