Hoppa till huvudinnehåll

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 bra idé3


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:

doc-show-filter-criteria1

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:

doc-show-filter-criteria1

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:

doc-show-filter-criteria1

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:

doc-show-filter-criteria1

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

doc-show-filter-criteria1

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:

doc-show-filter-criteria1


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.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

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:
doc superfilter 1

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

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:
doc superfilter 2

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:
doc superfilter 3

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.
doc kutools superfilter 5

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.
doc kutools superfilter 6


Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations