Jak wyświetlić / pokazać kryteria automatycznego filtrowania w programie Excel?
Filtr automatyczny to przydatna funkcja dla użytkowników programu Excel, czasami stosujemy filtr automatyczny do filtrowania danych według wielu kryteriów i wysyłania pliku do innych osób. W takiej sytuacji, jeśli inni użytkownicy chcą poznać Twoje filtrowane kryterium, jak mogliby to zrobić?
Wyświetl / pokaż kryteria automatycznego filtrowania w arkuszu z kodem VBA
Wyświetl / pokaż kryteria automatycznego filtrowania w arkuszu z Kutools for Excel 
Wyświetl / pokaż kryteria automatycznego filtrowania w arkuszu z funkcją zdefiniowaną przez użytkownika
Przypuśćmy, że masz następujące dane, które zostały przefiltrowane według jakiegoś kryterium, zobacz zrzut ekranu:
A teraz mogę utworzyć funkcję zdefiniowaną przez użytkownika, aby wyświetlić kryterium filtru w komórkach, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu:
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. Następnie zapisz i zamknij ten kod, w pustej komórce pustego wiersza, na przykład komórce A1, wprowadź tę formułę = AutoFilter_Criteria (A4) (A4 jest komórką nagłówkową przefiltrowanych danych), zobacz zrzut ekranu:
4. Następnie naciśnij Wchodzę klucz, a następnie wybierz komórkę A1, przeciągnij uchwyt wypełniania do odpowiednich komórek, które chcesz zawrzeć w tej formule, a wszystkie kryteria zostały wyświetlone w komórkach, patrz zrzut ekranu:
Note: Jeśli w kolumnie są więcej niż dwa kryteria, ta funkcja zdefiniowana przez użytkownika nie da prawidłowego wyniku.
Wyświetl / pokaż kryteria automatycznego filtrowania w arkuszu z kodem VBA
Tutaj mogę również mówić o ciekawym kodzie VBA, może pomóc w wyświetleniu kryteriów filtrowania w komórce skoroszytu.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu:
Kod VBA: wyświetlaj kryteria automatycznego filtrowania w arkuszu
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, pojawi się okienko zachęty umożliwiające wybranie pustej komórki w celu umieszczenia kryterium, patrz zrzut ekranu:
4. A następnie kliknij OK, wszystkie kryteria zostały pokazane w wybranej komórce w następujący sposób:
Uwaga:
W przypadku tego kodu VBA, jeśli Twoje kryterium zawiera więcej niż dwa w kolumnie, nie zostanie wyświetlone szczegółowe kryterium filtru, ale zostanie wyświetlone w następujący sposób:
Wyświetl / pokaż kryteria automatycznego filtrowania w arkuszu z Kutools for Excel
Jeśli Kutools dla programu Excel zainstalowany, możesz zastosować jego Super filtr funkcję filtrowania danych, a jednocześnie możesz w dowolnym momencie wyświetlić kryteria filtrowania.
| Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. kliknij Kutools Plus > Super filtr wyświetlić Super filtr funkcjonować. Zobacz zrzut ekranu:
2. w Super filtr okienko, kliknij 
aby wybrać zakres danych, który chcesz filtrować, a następnie zaznacz pole wyboru Określony, aby ustalić zakres filtru. Zobacz zrzut ekranu:
3. w Super filtr okienku, kliknij linię w grupie filtrów, a następnie określ kryteria filtrowania na listach rozwijanych według potrzeb, a następnie kliknij OK, aby zakończyć ustawianie kryteriów. Zobacz zrzut ekranu:
4. kliknij FILTRY, a wybrane dane zostały przefiltrowane przez kryteria, a w międzyczasie możesz zobaczyć, że kryteria filtru są wyświetlane w Super filtr szkło. Zobacz zrzut ekranu:
Uwaga: Możesz zapisać kryteria filtrowania jako scenariusz do następnego użycia z narzędziem Super Filter.
1. kliknij Zapisz aktualne ustawienia filtra W wyświetlanym oknie dialogowym wpisz nazwę filtru.
2. Jeśli chcesz użyć tych ustawień filtra następnym razem, kliknij przycisk menu, a następnie wybierz scenariusz z podmenu Otwórz zapisany scenariusz ustawień filtra.
Wyświetl kryteria filtra podczas filtrowania
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
