Как искать строку текста в листе

Question

Я фильтрую результаты поиска для листа с помощью простых командных кнопок и пытаюсь скрыть все строки, которые не содержат текст, предоставленный в ячейке.

У меня есть код, чтобы скрыть все строки, которые содержат точные данные в ячейке, но я пытаюсь также включить частичные значения.

For a = 2 To 200
    If Worksheets("Purchase Log").Cells(a, 2 Or 6).Value = Cells(1, 35) Then 
        Worksheets("Purchase Log").Rows(a).Hidden = False
    Else
        Worksheets("Purchase Log").Rows(a).Hidden = True
    End If

Например, я бы хотел, чтобы поиск "cat" также включал любые строки с "Bobcat", но текущий код может генерировать "Bobcat", только если текст в поле точно соответствует "Bobcat"

Answer 1

Дайте этому шанс.Для захвата используется Like с подстановочными знаками спереди и сзади, например, "theDog", "Dog" или "Doggie" с поисковым термином "Dog".

With Worksheets("Purchase Log")

    Dim theMatch as String
    theMatch = .cells(1,35).Value

    For a = 2 to 200 

        If .Cells(a,2).Value Like "*" & theMatch & "*" Or _
            .Cells(a,6).Value Like "*" & theMatch & "*" Then
                .Rows(a).Hidden = False
        Else
            .Rows(a).Hidden = True
        End If

   Next

End With