ListView Nesnesindeki Verileri Excel Sayfasına Yazdırma isimli içerikte, ilgili işlemlerin nasıl yapılacağı detaylıca ele alınmaktadır.
ListView ve UserForm Nesnelerini Hazırlama
Öncelikle, daha önce oluşturduğunuz UserForm ve ListView nesnelerinin mevcut olduğundan emin olun. Eğer henüz oluşturmadıysanız, bir UserForm ekleyin ve ListView nesnesini Toolbox'tan seçerek UserForm üzerine yerleştirin.Veri Yazdırma İşlevini Ekleyin
ListView'deki verileri Excel sayfasına yazdırmak için bir buton ekleyeceğiz ve bu butona tıklanınca çalışacak olan VBA kodunu yazacağız.Adımlar:
- UserForm üzerinde bir CommandButton (Komut Düğmesi) ekleyin ve adını "Yazdır" olarak değiştirin.
- CommandButton'a çift tıklayın ve aşağıdaki VBA kodunu ekleyin.
VBA Kodu:
VBA:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim i As Integer
Dim itm As ListItem
' Hedef sayfayı belirleyin
Set ws = ThisWorkbook.Sheets("Sheet2")
' Başlıkları ekleyin
ws.Range("A1").Value = "Ad"
ws.Range("B1").Value = "Yaş"
ws.Range("C1").Value = "Şehir"
' ListView'deki her öğeyi Excel'e aktarın
For i = 1 To ListView1.ListItems.Count
Set itm = ListView1.ListItems(i)
ws.Cells(i + 1, 1).Value = itm.Text
ws.Cells(i + 1, 2).Value = itm.SubItems(1)
ws.Cells(i + 1, 3).Value = itm.SubItems(2)
Next i
End SubUserForm'u Çalıştırma
Oluşturduğunuz UserForm'u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz. Bu kod, UserForm'u görüntüler ve ListView'e verilerin eklenmesini sağlar.VBA Kodu:
VBA:
Sub ShowUserForm()
UserForm1.Show
End SubSonuç:
Bu adımları izleyerek, ListView nesnesindeki verileri Excel sayfasına başarıyla yazdırabilirsiniz. Bu yöntem, ListView üzerinde yapılan düzenlemelerin veya eklenen yeni verilerin Excel sayfasında kaydedilmesini ve daha sonra kullanılmak üzere saklanmasını sağlar.
ListView ile Filtreleme ve Arama İşlemi
2024-05-16
