Değerli Arkadaşlar
Herkese iyi akşamalar
ListView uygulamasına bir örnek olarak; User Form üzerine ListView1'i ekledim ve aşağıdaki kodu çalıştırdım. Ancak hata veriyor. Neden ve nasıl düzenlemek gerekir ekteki dosyanın verilerini Listview a almak için?
Sub Düğme1_Tıklat()
UserForm1.Show
End Sub
Private Sub Userform_initialize()
With ListView1
.View = lvwReporlRowSelect = True 'listview'deki herhangi bir elemana tıkladığınızda tüm satırın seçili görünmesini sağlar
.Gridt 'yukarıda bahsedilen görünüm şekli (ayrıntılı görünüm)
.Fullines = True 'Excel sayfalarındaki gibi çizgilerin çıkmasını sağlar
With .ColumnHeaders 'Kolon başlıklarını oluşturuyoruz.
.Add , , Cells(1, 1), 30 'buradaki 30 sütunun genişliği ifade eder.
.Add , , Cells(1, 2), 100
End With
son = Cells(65536, 1).End(xlUp).Row 'Sayfada verinin olduğu son satırı buluyoruz.
For i = 2 To son 'Yukarıda temel yapısını oluşturduğumuz listview'e verileri aktarmaya başlıyoruz
'NOt : Listview'e veriler satır satır ilave edilir.
.ListItems.Add , , Cells(i, 1) '1.sütunun İlk elemanını ilave ediyoruz.
.ListItems.Item(i - 1).SubItems(1) = sh.Cells(i, 2) '1.sütunun 2.Elamanını (yani ayrıntıyı) ilave ediyoruz.
Next i
End With
End Sub
Herkese iyi akşamalar
ListView uygulamasına bir örnek olarak; User Form üzerine ListView1'i ekledim ve aşağıdaki kodu çalıştırdım. Ancak hata veriyor. Neden ve nasıl düzenlemek gerekir ekteki dosyanın verilerini Listview a almak için?
Sub Düğme1_Tıklat()
UserForm1.Show
End Sub
Private Sub Userform_initialize()
With ListView1
.View = lvwReporlRowSelect = True 'listview'deki herhangi bir elemana tıkladığınızda tüm satırın seçili görünmesini sağlar
.Gridt 'yukarıda bahsedilen görünüm şekli (ayrıntılı görünüm)
.Fullines = True 'Excel sayfalarındaki gibi çizgilerin çıkmasını sağlar
With .ColumnHeaders 'Kolon başlıklarını oluşturuyoruz.
.Add , , Cells(1, 1), 30 'buradaki 30 sütunun genişliği ifade eder.
.Add , , Cells(1, 2), 100
End With
son = Cells(65536, 1).End(xlUp).Row 'Sayfada verinin olduğu son satırı buluyoruz.
For i = 2 To son 'Yukarıda temel yapısını oluşturduğumuz listview'e verileri aktarmaya başlıyoruz
'NOt : Listview'e veriler satır satır ilave edilir.
.ListItems.Add , , Cells(i, 1) '1.sütunun İlk elemanını ilave ediyoruz.
.ListItems.Item(i - 1).SubItems(1) = sh.Cells(i, 2) '1.sütunun 2.Elamanını (yani ayrıntıyı) ilave ediyoruz.
Next i
End With
End Sub