Як відобразити / показати критерії автоматичного фільтрування в Excel?

Автофільтр - корисна функція для користувачів Excel, іноді ми застосовуємо автоматичний фільтр, щоб фільтрувати дані за кількома критеріями та надсилати файл іншим. У цій ситуації, якщо інші користувачі хочуть знати ваш відфільтрований критерій, як вони можуть це зробити?

Відобразити / Показати критерії автоматичного фільтрування на робочому аркуші з визначеною користувачем функцією

Відобразити / Показати критерії автоматичного фільтрування на аркуші з кодом VBA

Відобразити / Показати критерії автоматичного фільтрування на робочому аркуші за допомогою Kutools для Excel

Відобразити / Показати критерії автоматичного фільтрування на робочому аркуші з визначеною користувачем функцією

Припустимо, що у вас є такі дані, які були відфільтровані за певним критерієм, див. Знімок екрана:

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

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля:

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. Потім збережіть і закрийте цей код, в пусту комірку порожнього рядка, наприклад комірку А1, введіть цю формулу = Критерії автофільтра (A4) (A4 є коміркою заголовка відфільтрованих даних), див. знімок екрана:

4. Потім натисніть Що натомість? Створіть віртуальну версію себе у клавіші, а потім виберіть комірку A1, перетягніть маркер заповнення вправо до комірок, які вам потрібні, щоб містити цю формулу, і всі критерії відображаються в клітинках, див. знімок екрана:

примітки: Якщо в стовпці є більше двох критеріїв, ця визначена користувачем функція не дасть правильного результату.

Відобразити / Показати критерії автоматичного фільтрування на аркуші з кодом VBA

Тут я також можу поговорити про цікавий код VBA, він може допомогти вам відобразити критерії фільтру в комірці книги.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля:

Код 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. А потім клацніть OK, весь критерій був показаний у вибраній комірці наступним чином:

Примітка:

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

Відобразити / Показати критерії автоматичного фільтрування на робочому аркуші за допомогою Kutools для Excel

Якщо у вас є Kutools для Excel встановлений, ви можете застосувати його Супер фільтр функція для фільтрування даних, і в той же час ви можете переглядати критерії фільтру в будь-який час.

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

1. клацання Kutools Plus > Супер фільтр щоб відобразити Супер фільтр функція. Дивіться знімок екрана:

2 В Супер фільтр панель, клацніть  щоб вибрати діапазон даних, який потрібно відфільтрувати, а потім встановіть прапорець "Вказаний", щоб виправити діапазон фільтра. Дивіться знімок екрана:

3 В Супер фільтр клацніть рядок у групі фільтрів, а потім вкажіть критерії фільтрування у випадаючих списках, як вам потрібно, а потім натисніть кнопку Ok, щоб завершити налаштування критеріїв. Дивіться знімок екрана:

4. клацання Фільтр, а вибрані дані були відфільтровані за критеріями, і в середньому поки ви можете переглянути критерії фільтру, Супер фільтр панелі. Дивіться знімок екрана:

Примітка: Ви можете зберегти критерії фільтра як сценарій для подальшого використання за допомогою утиліти Super Filter.

1. клацніть на Зберегти поточні налаштування фільтра кнопку, у діалоговому вікні, що з’являється, введіть назву фільтра.

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

  Показувати критерії фільтра під час фільтрації