панель поиска для списка EXCEL

Question

У меня есть пользовательская форма со списком, которая автоматически заполняется строками таблицы Excel при открытии формы,

lstDisplay.ColumnCount = 11
lstDisplay.RowSource = "A1:L65356"

Мне нужно добавить панель поиска, которая обновляет список и отображает толькострока / строки, которые содержат значение, которое я искал.Теперь я добавил текстовое поле Textfind и кнопку найти.и, честно говоря, я понятия не имею, как это сделать.

я пробовал что-то вроде:

Private Sub find_Click()
Dim ws As Worksheet
Dim numRow As Integer
Dim found As Boolean
Set ws = ThisWorkbook.Worksheets("resdata")
For numRow = (ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
        If nameTxtBox.Value = 

    (NO IDEA WHAT I CAN USE HERE )

            found = True
            Exit For
        End If
Next numRow
If found = False Then
    MsgBox "No Match Found!", vbCritical
    lstDisplay.Clear

End If

End Sub

Спасибо всем.

Answer 1

Вы можете попробовать что-то вроде этого:

   Private Sub find_Click()
Dim ws As Worksheet
Dim numRow As Integer
Dim found As Boolean

Dim MyRng As Range

Set MyRng = Range("A1:A" & Sheets("resdata").Cells(Sheets("resdata").Rows.Count, "A").End(xlUp).Row)


Set ws = ThisWorkbook.Worksheets("resdata")

        For Each C In MyRng
          If C.Value Like nameTxtBox.Value Then

            found = True
            Exit For
          End If
        Next

If found = False Then
    MsgBox "No Match Found!", vbCritical
    lstDisplay.Clear

End If

End Sub