Всем привет!
В приложенном файле - пример таблицы, в которой при помощи макроса реализован быстрый расширенный фильтр.
Для того, чтобы данный фильтр находил совпадения в середине текста внутри ячеек, в условии поиска необходимо каждый раз вначале добавлять звездочку (перед самим условием поиска).
Вопрос к знатокам: возможно ли доработать этот макрос таким образом, чтобы вручную каждый раз вводить звездочку не требовалось, чтобы она как-бы добавлялась автоматически к условию поиска по нажатии Enter перед запуском самого макроса быстрого фильтра?
Вобщем чтобы макрос быстрого фильтра всегда понимал, что искать нужно в том числе и в середине текста, а не только с начала строки.
Код самого макроса для быстрого фильтра в приложенном файле-примере следующий:
Код |
---|
'БЫСТРЫЙ ФИЛЬТР
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:M4")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End If
End Sub
|