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
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:
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:
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:
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:
4. Og klik derefter på OK, er alt kriteriet vist i den valgte celle som følger:
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:
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:
2. i Superfilter rude, klik for at vælge det dataområde, du vil filtrere, og markér derefter afkrydsningsfeltet Specificeret for at rette filterområdet. Se skærmbillede:
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:
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:
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.
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.
Vis filtreringskriterier under filtrering
Bedste kontorproduktivitetsværktøjer
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...
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!