UserForm Üzerindeki ListView Nesnesine Veri Ekleme

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.

1. Excel’i açın ve Alt + F11 tuş kombinasyonuyla VBA geliştirme ortamını açın.
2. Menüden Insert > UserForm seçeneğini seçin.
3. Toolbox’tan ListView kontrolünü seçin ve UserForm üzerine yerleştirin.

Not: Eğer Toolbox’ta ListView kontrolünü göremiyorsanız, aşağıdaki adımları izleyerek ekleyebilirsiniz:

• 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:

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 Sub

Bu kod, UserForm başlatıldığında ListView nesnesine “Ad”, “Yaş” ve “Şehir” başlıkları ile birlikte örnek veriler ekler.

Adım 3: UserForm’u Çalıştırma​

UserForm’u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz:

Sub ShowUserForm()
    UserForm1.Show
End Sub

Bu kodu bir modüle ekleyin ve çalıştırın. Sonuçlar tam olarak istenilen şekilde gelmelidir.

UserForm Üzerindeki ListView Nesnesine Veri Ekleme – Sonuç​

Bu sayede UserForm açılacak ve ListView nesnesine verilerin eklendiğini göreceksiniz. Böylece, istenen sonuç elde edilmektedir.

Dosyayı indirerek, hazır haline ulaşabilirsiniz.

ExcelDepo Üyeliği ile İndir

Bu dosyayı indirmek için, ExcelDepo kullanıcı hesabınız ile giriş yapmanız ve bir VIP Üyeliğe sahip olmanız gerekmektedir.