Как отобразить автоматические условия фильтрации в Excel?
Автоматический фильтр — удобная функция для пользователей Excel. Иногда мы используем автофильтр, чтобы отфильтровать данные по нескольким критериям, и отправляем файл другим пользователям. Как в таком случае другие пользователи могут узнать, какие критерии фильтрации вы применили?
Отображение / показ автоматического Условия фильтрации на листе с помощью пользовательской функции
Отображение / показ автоматического Условия фильтрации на листе с помощью кода VBA
Отображение / показ автоматического Условия фильтрации на листе с помощью Kutools для Excel 
Отображение / показ автоматического Условия фильтрации на листе с помощью пользовательской функции
Предположим, у вас есть следующие данные, отфильтрованные по определённым критериям (см. снимок экрана):
Теперь вы можете создать пользовательскую функцию для отображения критериев фильтрации прямо в ячейках. Выполните следующие шаги:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий макрос в окно Модуля:
Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Exit Function
str1 = .Criteria1
If .Operator = xlAnd Then
str2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
str2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function
3. Затем сохраните и закройте этот код: в пустую ячейку (например, A1) введите формулу =AutoFilter_Criteria(A4) (A4 — это ячейка с заголовком отфильтрованных данных). См. снимок экрана:
4. Нажмите клавишу Enter, затем выделите ячейку A1 и перетащите маркер заполнения в нужные ячейки — все критерии отобразятся автоматически. См. снимок экрана:
Примечание: если в одном столбце задано более двух критериев, эта пользовательская функция не сможет выдать корректный результат.
Отображение / показ автоматического Условия фильтрации на листе с помощью кода VBA
Здесь я также поделюсь интересным кодом VBA, который позволит отобразить условия фильтрации прямо в ячейке книги.
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка>Модульи вставьте следующий макрос в окно Модуля:
Код VBA: отображение автоматического Условия фильтрации на листе
Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
Application.StatusBar = False
Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
TargetField = xFilter.Range.Cells(1, i).Value
Set TargetFilter = xFilter.Filters(i)
If TargetFilter.On Then
On Error GoTo OutNext
xOut = xOut & TargetField & TargetFilter.Criteria1
Select Case TargetFilter.Operator
Case xlAnd
xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
Case xlOr
xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
Case xlBottom10Items
xOut = xOut & " (bottom 10 items)"
Case xlBottom10Percent
xOut = xOut & " (bottom 10%)"
Case xlTop10Items
xOut = xOut & " (top 10 items)"
Case xlTop10Percent
xOut = xOut & " (top 10%)"
End Select
End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с предложением выбрать пустую ячейку для размещения критериев. См. снимок экрана:
4. Затем нажмите кнопку ОК, и все критерии отобразятся в выбранной ячейке следующим образом:
Примечание:
С помощью этого кода VBA, если в столбце задано более двух критериев, подробные условия фильтрации не будут показаны, а вместо этого отобразится следующее:
Отображение / показ автоматического Условия фильтрации на листе с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете использовать его функцию Супер фильтр для фильтрации данных и в любое время видеть условия фильтрации.
1. Нажмите KUTOOLS PLUS → Супер фильтр, чтобы открыть функцию Супер фильтр. См. снимок экрана:
2. В области Супер фильтр щёлкните, чтобы выбрать нужный диапазон данных для фильтрации, затем установите флажок «Указано», чтобы зафиксировать диапазон фильтрации. См. снимок экрана: 
3. В области Супер фильтр щёлкните строку в группе фильтров, выберите нужные условия фильтрации в раскрывающемся списке и нажмите «ОК», чтобы завершить настройку критериев. См. снимок экрана:
4. Нажмите кнопку Фильтр, и данные в разделе «Выбрать данные» будут отфильтрованы по заданным критериям. При этом вы увидите, что условия фильтрации отображаются в области Супер фильтр. См. снимок экрана:
Примечание: вы можете сохранить Условия фильтрации как сценарий для последующего использования с помощью утилиты Супер фильтр.
1. Нажмите кнопку Сохранить текущий сценарий, и во всплывающем диалоговом окне введите имя фильтра.
2. Когда вы захотите использовать эти настройки фильтра в следующий раз, нажмите кнопку меню и выберите нужный сценарий в подменю Загрузить существующий сценарий.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: отображение Условия фильтрации при фильтрации с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек