Skip to main content

AccessTr.neT


liste kutusu hakkınfa yardım

liste kutusu hakkınfa yardım

Çözüldü #13
evet Excel de yapılmış teşekkür ederim liste kutusu hakkında çözüm önerinizi alabilirmiyim yani nasıl yapıldığı hakkında
Cevapla
Çözüldü #14
1. Yöntem ListBox.RowSource
Bu yöntemle bir sayfadaki alanı olduğu gibi listboxta görüntüleyebiliriz.
Kod:
Dim Sons As Long
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
ListBox1.RowSource = "Veri!A2:B" & Sons

2. Yöntem AddItem
AddItem komutu ListBoxun sonuna boş bir satır ekleyecektir.
Bu metodla listboxa veriyi tek tek ekleriz ki bu sebeble yükleme işlemi biraz hantal olur

ListBox1.AddItem Değişken

ListBox1.AddItem
ListBox1.List(0,0)=Değişken

Dim Sons, Satir As Long
ListBox1.Clear
ListBox1.ColumnWidths = "30;55"
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
For Satir = 2 To Sons
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(Satir, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets(1).Cells(Satir, 2)
Next Satir
3. Yöntem Diziden veya Alandan (Range) den ListBox Doldurmak.
[code]
Dim Sons, Satir As Long
ListBox1.Clear
ListBox1.ColumnWidths = "30;55"
ListBox1.ColumnCount = 2
Sons = Sheets(1).Range("A65536").End(xlUp).Row
ReDim Dizi(Sons - 2, 2)
For Satir = 2 To Sons
Dizi(Satir - 2, 0) = Sheets(1).Cells(Satir, 1)
Dizi(Satir - 2, 1) = Format(Sheets(1).Cells(Satir, 2), "dd.mm.yyyy")
Next Satir
ListBox1.List() = Dizi()
Bu yöntemlerden birini uygulayabilirsin.
Cevapla
Çözüldü #15
teşekkür ederim ilgilendiğiniz için
Cevapla
Çözüldü #16
Rica ederim sorununuz çözüme kavuştumu.
Cevapla
Çözüldü #17
evet çözülmüştür teşekkürler ne kadar zormuş bu Access le program yapmak yaa
Son Düzenleme: 01/05/2011, 16:50, Düzenleyen: loveislie.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task