UserForm Üzerindeki ListView Nesnesine Veri Ekleme, ilgili işlemin nasıl yapılacağına dair detayları ve örnek bir dosyayı içermektedir.
ListView Nesnesi Kullanma
Adım 1: ListView Nesnesini Kullanıma Hazırlama
Öncelikle, Excel'de VBA geliştirme ortamını kullanarak bir UserForm oluşturmanız gerekiyor.- Excel'i açın ve Alt + F11 tuş kombinasyonuyla VBA geliştirme ortamını açın.
- Menüden Insert > UserForm seçeneğini seçin.
- Toolbox'tan ListView kontrolünü seçin ve UserForm üzerine yerleştirin.
- Toolbox üzerinde sağ tıklayın ve "Ek Denetimler" seçeneğini seçin.
- Açılan listeden "Microsoft ListView Control, version 6.0" kutucuğunu işaretleyin ve "Tamam" düğmesine basın.
Adım 2: ListView Nesnesine Veri Ekleme
Aşağıdaki VBA kodu ile ListView nesnesine veri ekleyebilirsiniz. Bu kod, UserForm üzerindeki ListView nesnesine bazı örnek veriler ekleyecektir.UserForm'a çift tıklayın ve aşağıdaki kodu ekleyin:
VBA:
Private Sub UserForm_Initialize() ' ListView nesnesi başlıklarını belirleme
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Add , , "Ad", 100
.ColumnHeaders.Add , , "Yaş", 50
.ColumnHeaders.Add , , "Şehir", 100
' Örnek veri ekleme
.ListItems.Add , , "Ahmet"
.ListItems(1).ListSubItems.Add , , "25"
.ListItems(1).ListSubItems.Add , , "İstanbul"
.ListItems.Add , , "Ayşe"
.ListItems(2).ListSubItems.Add , , "30"
.ListItems(2).ListSubItems.Add , , "Ankara"
.ListItems.Add , , "Mehmet"
.ListItems(3).ListSubItems.Add , , "35"
.ListItems(3).ListSubItems.Add , , "İzmir"
End With
End SubAdım 3: UserForm'u Çalıştırma
UserForm'u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz:
VBA:
Sub ShowUserForm()
UserForm1.Show
End SubSonuç
Bu sayede UserForm açılacak ve ListView nesnesine verilerin eklendiğini göreceksiniz.Dosyayı indirerek, hazır haline ulaşabilirsiniz.
Animasyonlu Grafik ve ComboBox
2024-04-29
