Sütunları ListBox ta satır olarak gösterebilir miyim?

[dEdE]

Merhabalar,
2 sütun ve 10 satırdan oluşan bir listbox üzerinde;
*A1 ve B1 birinci satırda
*C1 ve D1 ikinci satırda
.......
.......
*S1 ve T1 onuncu satırda görünsün istiyorum.
Bunun için
ListBox1.RowSource = ????
Satırını nasıl düzenlemeliyim.
Saygılar

 

[Haluk]

ListBox' da 2 adet sutun mu olacak ?

 

[dEdE]

Evet 2 adet sutun olacak.
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;800"
ListBox1.RowSource = ???

 

[Haluk]

Private Sub UserForm_Initialize()
    Dim MyArray(9, 2)
    Dim i As Single, j As Single
    ListBox1.ColumnCount = 2
    ListBox1.RowSource = ""
    ListBox1.ColumnWidths = "80;800"
    For i = 0 To 9
        j = i * 2 + 1
        MyArray(i, 0) = Cells(1, j)
        MyArray(i, 1) = Cells(1, j + 1)
    Next i
    ListBox1.List() = MyArray
End Sub

 

[dEdE]

Teşekkürler, deneyeceğim.

 

[dEdE]

Teşekkürler, gayet güzel çalışıyor.
Ancak, daha önce
ListBox1.RowSource = ""
komutuyla ListBox u temizliyordum. Þimdi bu mümkün değil.
Listeyi nasıl temizlerim.

 

[Levent Menteşoğlu]

listbox1.clear komutunu deneyin.

 

[dEdE]

:dua2:

 

[dEdE]

Merhaba,
Her zaman olduğu gibi, cevaplar yeni sorunları ve yeni soruları da beraberinde getiriyor.
1 - Yukarıdaki kodlar üzerinde küçük bir değişiklik yaparak 2. satırı(A2) listeliyorum. Birinci satırı da sütun başlığı (col.heads) olarak düşünmüştüm ama olmadı.
2 - Tarihler sayfada 28.02.2001şeklinde olmasına karşın, ListBox ta 2/28/2001 oluyor. Bunu nasıl düzeltebilirim.
3 - "ListBox1.ListIndex = ListBox1.ListCount - 1" dolu olan komutuyla son satırı seçmek istedim ama olmadı. Bunu nasıl başarabilirim.
Saygılar.