Excel Sayfasından ListView Nesnesine Veri Ekleme isimli içerikte, ilgili işlemlerin nasıl yapılacağı detaylıca ele alınmaktadır.
UserForm ve ListView Nesneleri
UserForm Üzerindeki ListView Nesnesine Veri Ekleme içeriğinde, UserForm üzerinde bulunan bir ListView nesnesine nasıl veri alınacağı ele alınmıştı. Bu içerikte de, bir Çalışm Sayfası üzerindeki bulunan verilerin nasıl alınacağı öğretilmektedir.Bu örnekte, Excel'deki bir veri aralığından ListView nesnesine dinamik olarak veri eklemeyi öğreneceksiniz. Excel sayfanızda yer alan bir veri tablosundan, UserForm üzerindeki ListView nesnesine veri aktarmak için VBA kullanacağız. Bu işlem, verilerinizin UserForm üzerinde görselleştirilmesini ve kullanıcıların daha etkileşimli bir arayüzle çalışmasını sağlarmaktadır. Aşağıdaki adımları takip ederek, Excel'deki verileri nasıl dinamik olarak ListView'e aktaracağınızı öğrenebilirsiniz.
İlk olarak, bir UserForm oluşturacak ve ListView kontrolünü ekleyeceksiniz. Ardından, VBA kodu ile belirli bir veri aralığındaki verileri ListView'e ekleyeceğiz.
ListView'e Dinamik Veri Ekleme
UserForm ve ListView Nesnesini Kullanıma Hazırlama
Excel VBA geliştirme ortamını kullanarak UserForm ve ListView nesnesini nasıl kullanıma hazırlayacağınızı adım adım anlatacağım.Adımlar:
- 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.
ListView Nesnesine Veri Ekleme
Excel'deki belirli bir veri aralığından ListView'e veri eklemek için aşağıdaki VBA kodunu kullanabilirsiniz. Bu kod, UserForm başlatıldığında belirlenen veri aralığından verileri alarak ListView nesnesine ekleyecektir.VBA Kodu:
VBA:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim itm As ListItem
' Veri kaynağını belirleyin
Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng = ws.Range("A2:C10") ' Veri aralığı
' ListView başlıklarını ayarlayın
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
.ColumnHeaders.Add , , "Ad", 100
.ColumnHeaders.Add , , "Yaş", 50
.ColumnHeaders.Add , , "Şehir", 100
End With
' Veri aralığındaki her satırı ListView'e ekleyin
For Each cell In rng.Rows
Set itm = ListView1.ListItems.Add(, , cell.Cells(1, 1).Value)
itm.ListSubItems.Add , , cell.Cells(1, 2).Value
itm.ListSubItems.Add , , cell.Cells(1, 3).Value
Next cell
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 Sub
