ListView ile Filtreleme ve Arama İşlevi isimli içerikte, ilgili işlemlerin nasıl yapılacağı detaylıca ele alınmaktadır.
UserForm ve ListView 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.Filtreleme ve Arama İşlevini Ekleyin
ListView'de filtreleme ve arama işlevi eklemek için bir TextBox (Metin Kutusu) ve bir CommandButton (Komut Düğmesi) ekleyeceğiz. Kullanıcı arama kriterini TextBox'a girecek ve CommandButton'a tıklayarak arama yapacaktır.Adımlar:
- UserForm üzerine bir TextBox (Metin Kutusu) ve bir CommandButton (Komut Düğmesi) ekleyin.
- CommandButton'un adını "Ara" 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 rng As Range
Dim cell As Range
Dim itm As ListItem
Dim searchValue As String
' Arama değerini al
searchValue = TextBox1.Value
' Veri kaynağını belirleyin
Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng = ws.Range("A2:C10") ' Veri aralığı
' ListView'i temizle
ListView1.ListItems.Clear
' Veri aralığındaki her satırı kontrol edin ve filtreye uygun olanları ekleyin
For Each cell In rng.Rows
If InStr(1, cell.Cells(1, 1).Value, searchValue, vbTextCompare) > 0 Then
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
End If
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
