Все привет. Подскажите можно как-то доработать фильтр чтобы он подсветил найденные результаты которые которые были введены в TextBox1
Код
Private Sub TextBox1_Change() If TextBox1.Value <> "" Then
Selection.AutoFilter Field:=6, Criteria1:="*" & TextBox1.Value & "*", Operator:=xlAnd
Else
Selection.AutoFilter Field:=6
End If
End Sub
fedsum, здравствуйте Фильтр лишь является причиной скрытия части ячеек столбца и источником поисковой маски. Если я правильно понял и вам нужно выделить цветом часть текста в ячейке, которая была введена в маску TextBox'а "*часть текста в ячейке*" для фильтра, то нужен цикл по всем видимым ячейкам полученного диапазона и правка Charactersкак метод или как класс.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
а можно еще чтобы после ввода значения в TextBox1 сработал скрол вверх чтобы были видны верхние значения, и значение который было в TextBox1 через 5 минут отключилось, то есть выключился фильтр