Як відобразити / показати критерії автоматичного фільтрування в 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, з більш ніж 300 зручні функції, полегшує вам роботу. |
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. клацання Kutools Plus > Супер фільтр щоб відобразити Супер фільтр функція. Дивіться знімок екрана:
2 В Супер фільтр панель, клацніть 
щоб вибрати діапазон даних, який потрібно відфільтрувати, а потім встановіть прапорець "Вказаний", щоб виправити діапазон фільтра. Дивіться знімок екрана:
3 В Супер фільтр клацніть рядок у групі фільтрів, а потім вкажіть критерії фільтрування у випадаючих списках, як вам потрібно, а потім натисніть кнопку Ok, щоб завершити налаштування критеріїв. Дивіться знімок екрана:
4. клацання фільтр, а вибрані дані були відфільтровані за критеріями, і в середньому поки ви можете переглянути критерії фільтру, Супер фільтр панелі. Дивіться знімок екрана:
Примітка: Ви можете зберегти критерії фільтра як сценарій для подальшого використання за допомогою утиліти Super Filter.
1. клацніть на Зберегти поточні налаштування фільтра кнопку, у діалоговому вікні, що з’являється, введіть назву фільтра.
2. Коли ви захочете використати ці налаштування файлу наступного разу, натисніть кнопку меню, а потім виберіть сценарій у підменю Відкрити сценарій збережених налаштувань фільтра.
Показувати критерії фільтра під час фільтрації
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
