Jak zobrazit / zobrazit kritéria automatického filtru v aplikaci Excel?

Automatický filtr je užitečná funkce pro uživatele aplikace Excel, někdy použijeme automatický filtr k filtrování dat podle více kritérií a odeslání souboru ostatním. Pokud v této situaci chtějí ostatní uživatelé znát vaše filtrované kritérium, jak by to mohli udělat?

Zobrazit / zobrazit kritéria automatického filtru v listu pomocí funkce definované uživatelem

Zobrazit / zobrazit kritéria automatického filtru v listu s kódem VBA

Zobrazit / zobrazit kritéria automatického filtru v listu s programem Kutools pro Excel

Zobrazit / zobrazit kritéria automatického filtru v listu pomocí funkce definované uživatelem

Předpokládejme, že máte následující data, která byla filtrována podle nějakého kritéria, viz screenshot:

A teď můžu vytvořit funkci definovanou uživatelem pro zobrazení kritéria filtru do buněk, proveďte následující kroky:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu:

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. Poté tento kód uložte a zavřete, do prázdné buňky prázdného řádku, například buňky A1, zadejte tento vzorec = AutoFilter_Criteria (A4) (A4 je buňka záhlaví filtrovaných dat), viz screenshot:

4. Pak stiskněte tlačítko vstoupit klíč a poté vyberte buňku A1, přetáhněte úchyt výplně doprava do buněk, které potřebujete, aby obsahoval tento vzorec, a všechna kritéria se zobrazila do buněk, viz screenshot:

Pozor: Pokud jsou ve sloupci více než dvě kritéria, tato funkce definovaná uživatelem neposkytne správný výsledek.

Zobrazit / zobrazit kritéria automatického filtru v listu s kódem VBA

Tady mohu také mluvit o zajímavém kódu VBA, může vám pomoci zobrazit kritéria filtru v buňce sešitu.

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu:

Kód VBA: Zobrazit kritéria automatického filtru v listu

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, vyskočí okno s výzvou, které vám umožní vybrat prázdnou buňku pro vložení kritéria, viz screenshot:

4. A pak klikněte na tlačítko OK, všechna kritéria byla ve vybrané buňce zobrazena následovně:

Poznámka:

S tímto kódem VBA, pokud je vaším kritériem více než dva ve sloupci, nebude zobrazeno podrobné kritérium filtru, ale zobrazí se takto:

Zobrazit / zobrazit kritéria automatického filtru v listu s programem Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován, můžete použít jeho Super filtr funkce filtrování dat a zároveň můžete kdykoli zobrazit kritéria filtru.

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Super filtr pro zobrazení Super filtr funkce. Viz screenshot:

2. V Super filtr podokno, klepněte na tlačítko  vyberte rozsah dat, který chcete filtrovat, a poté zaškrtnutím políčka Specifikováno opravte rozsah filtru. Viz snímek obrazovky:

3. V Super filtr v podokně klikněte na řádek ve skupině filtrů, poté podle potřeby určete kritéria filtru v rozevíracích seznamech a poté kliknutím na OK dokončete nastavení kritérií. Viz snímek obrazovky:

4. cvaknutí Filtra vybraná data byla filtrována podle kritérií a v průměru můžete zobrazit, že kritéria filtru jsou zobrazena v Super filtr podokno. Viz screenshot:

Poznámka: Kritéria filtru můžete uložit jako scénář pro další použití pomocí nástroje Super filtr.

1. klikněte na Uložit aktuální nastavení filtru tlačítko, v rozbalovacím dialogovém okně zadejte název filtru.

2. Chcete-li toto nastavení filtru použít příště, klikněte na tlačítko nabídky a potom vyberte scénář v podnabídce Otevřete scénář nastavení uloženého filtru.

  Zobrazit kritéria filtrování při filtrování