Gå til hovedindhold

Hvordan vises / viser kriterier for automatisk filter i Excel?

Autofilter er en nyttig funktion for Excel-brugere. Nogle gange anvender vi automatisk filter for at filtrere dataene efter flere kriterier og sende filen til andre. I denne situation, hvis de andre brugere vil kende dit filtrerede kriterium, hvordan kunne de gøre det?

Vis / vis kriterier for automatisk filter i regneark med brugerdefineret funktion

Vis / vis kriterier for automatisk filter i regneark med VBA-kode

Vis / vis kriterier for automatisk filter i regneark med Kutools til Excel god idé3


Vis / vis kriterier for automatisk filter i regneark med brugerdefineret funktion

Antag at du har følgende data, der er filtreret efter et eller andet kriterium, se skærmbillede:

doc-show-filter-kriterier1

Og nu kan jeg oprette en brugerdefineret funktion til at vise filterkriteriet i cellerne. Gør venligst med følgende trin:

1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modul vindue:

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. Gem derefter og luk denne kode i en tom celle i en tom række, for eksempel celle A1, indtast denne formel = AutoFilter_Criteria (A4) (A4 er headercellen for de filtrerede data), se skærmbillede:

doc-show-filter-kriterier1

4. Tryk derefter på Indtast nøgle, og vælg derefter celle A1, træk udfyldningshåndtaget over til højre celler, som du skal indeholde denne formel, og alt kriteriet er vist i cellerne, se skærmbillede:

doc-show-filter-kriterier1

Bemærk: Hvis der er mere end to kriterier i en kolonne, giver denne brugerdefinerede funktion ikke det rigtige resultat.


Vis / vis kriterier for automatisk filter i regneark med VBA-kode

Her kan jeg også tale om en interessant VBA-kode, det kan hjælpe dig med at vise filterkriterierne i en celle i projektmappen.

1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modul vindue:

VBA-kode: Vis automatisk filterkriterier i regnearket

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. Tryk derefter på F5 nøgle til at køre denne kode, vises en hurtigboks, der giver dig mulighed for at vælge en tom celle for at sætte kriteriet, se skærmbillede:

doc-show-filter-kriterier1

4. Og klik derefter på OK, er alt kriteriet vist i den valgte celle som følger:

doc-show-filter-kriterier1

Bemærk:

Med dette VBA-kode, hvis dit kriterium mere end to i en kolonne, vises det ikke det detaljerede filterkriterium, men vises som følger:

doc-show-filter-kriterier1


Vis / vis kriterier for automatisk filter i regneark med Kutools til Excel

Hvis du har Kutools til Excel installeret, kan du anvende dens Superfilter funktion til at filtrere data, og på samme tid kan du se filterkriterierne når som helst.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools Plus > Superfilter for at vise Superfilter fungere. Se skærmbillede:
doc superfilter 1

2. i Superfilter rude, klik knap til valg af doc for at vælge det dataområde, du vil filtrere, og markér derefter afkrydsningsfeltet Specificeret for at rette filterområdet. Se skærmbillede:
doc superfilter 2

3. i Superfilter skal du klikke på en linje i en filtergruppe og derefter angive filterkriterierne i rullelisterne efter behov, og derefter klikke på Ok for at afslutte kriterieindstillingen. Se skærmbillede:
doc superfilter 2

4. klik filtre, og de valgte data er filtreret efter kriterierne, og i mellemtiden kan du se, at filterkriterierne er vist i Superfilter rude. Se skærmbillede:
doc superfilter 3

Bemærk: Du kan gemme filterkriterierne som et scenarie til næste brug med hjælpeprogrammet Superfilter.

1. Klik på Gem aktuelle filterindstillinger knappen, i pop op-dialogboksen, skriv et filternavn.
doc kutools superfilter 5

2. Når du vil bruge denne filindstilling næste gang, skal du klikke på menuknappen og derefter vælge scenariet i undermenuen til Åbn scenariet for gemte filterindstillinger.
doc kutools superfilter 6


Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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