Hur visar / visar jag kriterier för autofilter i Excel?

Autofilter är en användbar funktion för Excel-användare, ibland använder vi automatiskt filter för att filtrera data efter flera kriterier och skicka filen till andra. I den här situationen, om de andra användarna vill veta ditt filtrerade kriterium, hur skulle de kunna göra det?

Visa / visa kriterier för automatiskt filter i kalkylblad med användardefinierad funktion

Visa / visa kriterier för automatiskt filter i kalkylblad med VBA-kod

Visa / visa kriterier för automatiskt filter i kalkylblad med Kutools för Excel

Visa / visa kriterier för automatiskt filter i kalkylblad med användardefinierad funktion

Om du antar att du har följande data som har filtrerats efter något kriterium, se skärmdump:

Och nu kan jag skapa en användardefinierad funktion för att visa filterkriteriet i cellerna, gör med följande steg:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationsfönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster:

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. Spara och stäng sedan den här koden, i en tom cell i en tom rad, till exempel cell A1, ange denna formel = AutoFilter_Criteria (A4) (A4 är rubrikcellen för de filtrerade data), se skärmdump:

4. Tryck sedan på ange och välj sedan cell A1, dra fyllningshandtaget till höger celler som du behöver för att innehålla denna formel, och allt kriterium har visats i cellerna, se skärmdump:

Anmärkningar: Om det finns fler än två kriterier i en kolumn, kommer den här användardefinierade funktionen inte att ge rätt resultat.

Visa / visa kriterier för automatiskt filter i kalkylblad med VBA-kod

Här kan jag också prata om en intressant VBA-kod, det kan hjälpa dig att visa filterkriterierna i en cell i arbetsboken.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationsfönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster:

VBA-kod: Visa auto-filterkriterier i kalkylbladet

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. Tryck sedan på F5 nyckel för att köra den här koden kommer en snabbruta att dyka ut för att låta dig välja en tom cell för att sätta kriteriet, se skärmdump:

4. Och klicka sedan på OK, har alla kriterier visats i den valda cellen enligt följande:

Notera:

Med denna VBA-kod, om ditt kriterium mer än två i en kolumn, kommer det inte att visas det detaljerade filterkriteriet utan visas på följande sätt:

Visa / visa kriterier för automatiskt filter i kalkylblad med Kutools för Excel

Om du har Kutools för Excel installerad kan du använda den Superfilter funktion för att filtrera data, och samtidigt kan du se filterkriterierna när som helst.

Efter gratis installation Kutools för Excel, gör så här:

1. klick Kutools Plus > Superfilter för att visa Superfilter fungera. Se skärmdump:

2. I Superfilter fönster, klicka  för att markera det dataintervall du vill filtrera markera sedan kryssrutan Specified för att fixa filterintervallet. Se skärmdump:

3. I Superfilter Klicka på en rad i en filtergrupp och ange sedan filterkriterierna i listrutorna efter behov och klicka sedan på Ok för att slutföra kriterieinställningen. Se skärmdump:

4. klick Filter, och de valda data har filtrerats efter kriterierna, och under tiden kan du se att filterkriterierna visas i Superfilter ruta. Se skärmdump:

Obs! Du kan spara filterkriterierna som ett scenario för nästa användning med verktyget Superfilter.

1. klicka på Spara aktuella filterinställningar -knappen, i poppdialogen, skriv ett filternamn.

2. När du vill använda dessa filerinställningar nästa gång klickar du på menyknappen och väljer sedan scenariot i undermenyn till Öppna ett sparat filterinställningsscenario.

  Visa filtreringskriterier under filtrering