Выберите в меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor).
Создайте новый пустой модуль через меню Insert - Module и скопируйте в него текст функции:
view plaincopy to clipboardprint? Read More 1. Function AutoFilter_Criteria(Header As Range) As String
2. Dim strCri1 As String, strCri2 As String
3.
4. Application.Volatile
5.
6. With Header.Parent.AutoFilter
7. With .Filters(Header.Column - .Range.Column + 1)
8.
9. If Not .On Then Exit Function
10.
11. strCri1 = .Criteria1
12. If .Operator = xlAnd Then
13. strCri2 = " AND " & .Criteria2
14. ElseIf .Operator = xlOr Then
15. strCri2 = " OR " & .Criteria2
16. End If
17.
18. End With
19. End With
20.
21. AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
22. End Function
Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
End Function
Выйдите из редактора Visual Basic, используя команду меню File - Close and return to Microsoft Excel.
Теперь добавьте над шапкой списка, который Вы фильтруете, пару-тройку пустых строк и в пустую ячейку над первым столбцом (в нашем примере это А1) вставьте созданную функцию. Для этого нажмите кнопку fx в строке формул (или выберите в меню Вставка - Функция), далее - категория Определенные пользователем (User defined), функция AutoFilter_Criteria.
В качестве аргумента функции укажите ячейку шапки, над которой вставляется функция:
Отображение условий автофильтра

Выберите в меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor).
Создайте новый пустой модуль через меню Insert - Module и скопируйте в него текст функции:
view plaincopy to clipboardprint? Read More 1. Function AutoFilter_Criteria(Header As Range) As String
2. Dim strCri1 As String, strCri2 As String
3.
4. Application.Volatile
5.
6. With Header.Parent.AutoFilter
7. With .Filters(Header.Column - .Range.Column + 1)
8.
9. If Not .On Then Exit Function
10.
11. strCri1 = .Criteria1
12. If .Operator = xlAnd Then
13. strCri2 = " AND " & .Criteria2
14. ElseIf .Operator = xlOr Then
15. strCri2 = " OR " & .Criteria2
16. End If
17.
18. End With
19. End With
20.
21. AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
22. End Function
Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1 As String, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 = .Criteria1
If .Operator = xlAnd Then
strCri2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
strCri2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2
End Function
Выйдите из редактора Visual Basic, используя команду меню File - Close and return to Microsoft Excel.
Теперь добавьте над шапкой списка, который Вы фильтруете, пару-тройку пустых строк и в пустую ячейку над первым столбцом (в нашем примере это А1) вставьте созданную функцию. Для этого нажмите кнопку fx в строке формул (или выберите в меню Вставка - Функция), далее - категория Определенные пользователем (User defined), функция AutoFilter_Criteria.
В качестве аргумента функции укажите ячейку шапки, над которой вставляется функция:

После нажатия ОК скопируйте функцию вправо в ячейки B1, C1, D1 и т.д. - до последнего столбца таблицы.
Теперь при выборе любых параметров фильтрации (даже с использованием условий) в первой строке будут наглядно отображаться эти критерии отбора:

Главное меню
Сейчас на сайте
Сейчас 14 гостей онлайнПогода