Bylo mi předem jasné, že další požadavky na listbox budou přibývat. Pokud bys chtěl do listboxu posílat jenom některé sloupce, tak i to jde, ale lze tam poslat celou tabulku, akorát některé sloupce dostanou nulovou šířku, takže v listboxu nebudou vidět. Třeba takhle (jak jsi chtěl, pouze sloupce A;N;O):
With .ListBox1
.ColumnCount = iSloupcu 'urči počet sloupců
.ColumnWidths = "100pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;0pt;100pt;100pt;0pt;0pt;"
.RowSource = rgOblast.Address
End With
Ale počet sloupců máme proměnlivý, kdežto šířky sloupců jsou dány natvrdo - což není zrovna košér. To jen pro ilustraci, správně by se ten řetězec pro šířky musel vytvořit ve smyčce... Ale máš zde odpověď na svojí otázku ohledně šířky sloupců v listboxu.
Spíš jsem očekával, že z povahy listboxu v něm budeš potřebovat zvolit některý řádek (nebo více řádků: podle nastavení vlastnosti MultiSelect) a po kliknutí na nějaký button s tím výběrem pak něco udělat.
citovat