Hoe autofiltercriteria in Excel weergeven / weergeven?
Autofilter is een handige functie voor Excel-gebruikers, soms passen we het autofilter toe om de gegevens op meerdere criteria te filteren en het bestand naar anderen te verzenden. Als de andere gebruikers in deze situatie uw gefilterde criterium willen weten, hoe kunnen ze dat dan doen?
Toon / toon autofiltercriteria in werkblad met door de gebruiker gedefinieerde functie
Toon / toon autofiltercriteria in werkblad met VBA-code
Toon / toon autofiltercriteria in werkblad met Kutools voor Excel
Toon / toon autofiltercriteria in werkblad met door de gebruiker gedefinieerde functie
Stel dat u de volgende gegevens heeft die op een bepaald criterium zijn gefilterd, zie screenshot:
En nu kan ik een door de gebruiker gedefinieerde functie maken om het filtercriterium in de cellen weer te geven, doe dit met de volgende stappen:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster:
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. Sla vervolgens deze code op en sluit deze, voer deze formule in een lege cel van een lege rij in, bijvoorbeeld cel A1 = AutoFilter_Criteria (A4) (A4 is de koptekstcel van de gefilterde gegevens), zie screenshot:
4. Druk vervolgens op Enter toets, en selecteer vervolgens cel A1, sleep de vulgreep naar de juiste cellen die u nodig hebt om deze formule te bevatten, en al het criterium is in de cellen weergegeven, zie screenshot:
Note: Als een kolom meer dan twee criteria bevat, geeft deze door de gebruiker gedefinieerde functie niet het juiste resultaat.
Toon / toon autofiltercriteria in werkblad met VBA-code
Hier kan ik ook praten over een interessante VBA-code, het kan u helpen om de filtercriteria in een cel van de werkmap weer te geven.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster:
VBA-code: geef autofiltercriteria weer in het werkblad
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, verschijnt er een promptvenster waarin u een lege cel kunt selecteren om het criterium te plaatsen, zie screenshot:
4. En klik vervolgens op OK, is alle criterium als volgt in de geselecteerde cel weergegeven:
Opmerking:
Met deze VBA-code, als uw criterium meer dan twee in een kolom bevat, wordt het gedetailleerde filtercriterium niet getoond, maar als volgt weergegeven:
Toon / toon autofiltercriteria in werkblad met Kutools voor Excel
Als je Kutools for Excel ge茂nstalleerd, kunt u zijn Super filter functie om gegevens te filteren en tegelijkertijd kunt u de filtercriteria op elk moment bekijken.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Koetools Plus > Super filter om de Super filter functie. Zie screenshot:
2. In de Super filter venster, klik op om het gegevensbereik te selecteren dat u wilt filteren, vinkt u het selectievakje Opgegeven aan om het filterbereik vast te leggen. Zie screenshot:
3. In de Super filter klik op een regel in een filtergroep en specificeer vervolgens de filtercriteria in de vervolgkeuzelijsten zoals u nodig hebt, en klik vervolgens op Ok om het instellen van de criteria te voltooien. Zie screenshot:
4. klikken FILTER, en de geselecteerde gegevens zijn gefilterd op basis van de criteria, en ondertussen kunt u zien dat de filtercriteria worden weergegeven in de Super filter paneel. Zie screenshot:
Opmerking: u kunt de filtercriteria opslaan als een scenario voor het volgende gebruik met het hulpprogramma Super Filter.
1. klik op de Sla de huidige filterinstellingen op knop, typ in het popping-dialoogvenster een filternaam.
2. Als u de volgende keer deze filerinstellingen wilt gebruiken, klikt u op de menuknop en kiest u het scenario in het submenu van Open het scenario met opgeslagen filterinstellingen.
Filter Ctriteria weergeven tijdens het filteren
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!