VBA TextBox’a Göre Listbox İçinde Arama Yapmak (Searchable Listbox)

Private Sub TextBox1_Change()
 
Dim strText As String
Dim i As Long
 
Me.TextBox1.Text = UCase(Me.TextBox1.Text)
 
strText = Me.TextBox1.Text
 
With Me.ListBox1
For i = 0 To .ListCount - 1
If UCase(Left$(.List(i), Len(strText))) = strText Then Exit For
Next
If i = .ListCount Then
.ListIndex = -1
Else
.ListIndex = i
End If
End With
 
End Sub

Listbox’ın içinde binlerce veri olabilir. Bu durumda scrollbar’ı aşağı yukarı kaydırarak Listbox içinde arama yapmak bir hayli zahmetli olacaktır. Yukarıda ki kodları incelerseniz, bu zahmetten sizi kurtaracak bir yöntem öğrenmiş olacaksınız. Textbox nesnesi içine girdiğiniz değerlere göre Listbox içinde arama yapar.

Kolay gele…

VBA TextBox’a Göre Listbox İçinde Arama Yapmak (Searchable Listbox)

İlk Yorumu Siz Yapın

Bir yanıt yazın Yanıtı iptal et