listbox ile değişkenleri standart boyda getirip alt alta düzgün sıralama nasıl yapılır

[sserdar]

merhaba,
Listbox ile değişkenleri standart boyda getirip alt alta düzgün nasıl yazdırılır

kod: UserForm2.ListBox1.AddItem (SNO & " Firma Adı:" & Sayfa1.Cells(i, 19) & " Alan:" & Sayfa1.Cells(i, 13) & " m2 Klasör No:" & Sayfa1.Cells(i, 21))

0012 Firma Adı: Çokgen AŞ............................ Alan : .......1000 m2 Klasör No: 320
0352 Firma Adı: Doğukan Yatırım Ltd. Şti. Alan : 5230000 m2 Klasör No: 500

gibi;
kolay yolu var mı?

 

[Haluk]

Listbox'a verileri alırken tek sütuna değil, sizin örneğinize göre 4 sütuna alırsanız, düzgünce görüntülenir....

.

 

[sserdar]

Merhaba dostlar,
yukarıdaki listbox da alt alta düzgün yazdırma işlemini yaptım. Ancak başlıktaki kırmızı başlık adlarını yazdıramadım. İnternette de örnek bulamadım.

ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;300;100;50"
ListBox1.ColumnCount = 4
....
....
k=k+1
ListBox1.AddItem
ListBox1.List(K - 1, 0) = SNO
ListBox1.List(K - 1, 1) = Sayfa1.Cells(i, 19)
ListBox1.List(K - 1, 2) = Sayfa1.Cells(i, 13) & " m2"
ListBox1.List(K - 1, 3) = Sayfa1.Cells(i, 21)
Bu konuda yardım bekliyorum.
Estetiğe takıldım. Kaldım

 

[Haluk]

AddItem yöntemiyle yapamazsınız.....

Başlıklar için Label nesnesi kullanın, ya da; başka bir ListBox nesnesini küçültüp öbürünün üstüne koyun onda da ColumnHeads işini ayarlayın.

.

 

[sserdar]

Label ile çözüldü. Başlık kısmına kod ile yazamamak ilginç.

Çok teşekkür ederim Haluk bey.

 

[Haluk]

Kolay gelsin ...

.