Перейти к основному содержанию

Как отобразить / показать критерии автоматической фильтрации в Excel?

Автофильтр - полезная функция для пользователей Excel, иногда мы применяем автофильтр для фильтрации данных по нескольким критериям и отправки файла другим пользователям. В этой ситуации, если другие пользователи хотят знать ваш отфильтрованный критерий, как они могут это сделать?

Отображение / отображение критериев автоматической фильтрации на листе с функцией, определяемой пользователем

Отображение / отображение критериев автоматической фильтрации на листе с кодом VBA

Отображение / отображение критериев автоматической фильтрации на листе с помощью Kutools for Excel хорошая идея3


Отображение / отображение критериев автоматической фильтрации на листе с функцией, определяемой пользователем

Предположим, у вас есть следующие данные, которые были отфильтрованы по некоторому критерию, см. Снимок экрана:

док-шоу-фильтр-критерии1

И теперь я могу создать определяемую пользователем функцию для отображения критерия фильтрации в ячейках, выполните следующие действия:

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 является ячейкой заголовка отфильтрованных данных), см. снимок экрана:

док-шоу-фильтр-критерии1

4, Затем нажмите Enter ключ, а затем выберите ячейку A1, перетащите маркер заполнения в правые ячейки, которые должны содержать эту формулу, и все критерии были отображены в ячейках, см. снимок экрана:

док-шоу-фильтр-критерии1

Внимание: Если в столбце более двух критериев, эта функция, определяемая пользователем, не даст правильного результата.


Отображение / отображение критериев автоматической фильтрации на листе с кодом 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 нажмите клавишу для запуска этого кода, появится окно подсказки, позволяющее выбрать пустую ячейку для ввода критерия, см. снимок экрана:

док-шоу-фильтр-критерии1

4, Затем нажмите OK, все критерии были показаны в выбранной ячейке следующим образом:

док-шоу-фильтр-критерии1

Примечание:

С помощью этого кода VBA, если ваш критерий более двух в столбце, он не будет отображаться подробный критерий фильтра, а будет отображаться следующим образом:

док-шоу-фильтр-критерии1


Отображение / отображение критериев автоматической фильтрации на листе с помощью Kutools for Excel

Если вы только что Kutools for Excel установлен, вы можете применить его Суперфильтр функция фильтрации данных, и в то же время вы можете просмотреть критерии фильтрации в любое время.

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Нажмите Кутулс Плюс > Суперфильтр для отображения Суперфильтр функция. Смотрите скриншот:
документ супер фильтр 1

2. в Суперфильтр панели, нажмите кнопка выбора документа чтобы выбрать диапазон данных, который вы хотите отфильтровать, затем установите флажок Указано, чтобы исправить диапазон фильтрации. Смотрите скриншот:
документ супер фильтр 2

3. в Суперфильтр щелкните строку в группе фильтров, затем укажите необходимые критерии фильтрации в раскрывающихся списках, затем щелкните ОК, чтобы завершить настройку критериев. Смотрите скриншот:
документ супер фильтр 2

4. Нажмите ФИЛЬТР, и выбранные данные были отфильтрованы по критериям, и в то же время вы можете просмотреть критерии фильтрации, отображаемые в Суперфильтр панель. Смотрите скриншот:
документ супер фильтр 3

Примечание. Вы можете сохранить критерии фильтра в качестве сценария для следующего использования с утилитой Super Filter.

1. нажмите Сохранить текущие настройки фильтра Нажмите кнопку, во всплывающем диалоговом окне введите имя фильтра.
doc kutools супер фильтр 5

2. Если вы захотите использовать настройки этого фильтра в следующий раз, нажмите кнопку меню, затем выберите сценарий в подменю Открыть сценарий сохраненных настроек фильтра.
doc kutools супер фильтр 6


Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations