AddItem metoda dodaje prazan red u listu, ali kao što si primetio i kako piše u helpu, AddItem upisuje vrednost samo u prvu kolonu. Za ListBox (ComboBox) sa više kolona prvo pozovi AddItem da dobiješ novu stavku, a onda dodeli vrednosti kolonama u listbox-u koristeći svojstva List ili Column. Neka je rw broj reda koji dodaješ u listu, a clLast poslednja kolona iz reda koja treba da se doda u listbox-u
Code:
Me.ListBox1.AddItem sh.Cells(rw, 1).Text ' Nova stavka u listi
For cl = 1 To clLast - 1 ' Popunjavanje ostalih kolona za stavku
Me.ListBox1.Column(cl, Me.ListBox1.ListCount - 1) = sh.Cells(rw, cl + 1).Text
Next cl
rw = rw + 1
Obrati pažnju da indeksi u Listbox kontroli počinju od 0, a ne kao na radnom listu od 1. Zato ovo +1 i -1
Nije to loše Rembrante, samo što ne bi dodao još malo boje?