Hoe automatische filtercriteria weergeven in Excel?

Automatisch Filteren is een handige functie voor Excel-gebruikers. Soms passen we het Automatisch Filter toe om gegevens te filteren op basis van meerdere criteria en sturen het bestand naar anderen. In deze situatie, als andere gebruikers uw gefilterde criteria willen weten, hoe kunnen ze dat dan doen?

Automatische filtercriteria weergeven in werkblad met door de gebruiker gedefinieerde functie

Automatische filtercriteria weergeven in werkblad met VBA-code

Automatische filtercriteria weergeven in werkblad met Kutools voor Excel

Automatische filtercriteria weergeven in werkblad met door de gebruiker gedefinieerde functie

Stel dat u de volgende gegevens hebt die al zijn gefilterd op basis van bepaalde criteria, zie onderstaande schermafbeelding:

En nu kan ik een door de gebruiker gedefinieerde functie maken om de filtercriteria in de cellen weer te geven. Volg hiervoor de volgende stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster:

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 daarna de code op en sluit deze. Voer in een lege cel van een lege rij, bijvoorbeeld cel A1, deze formule in: =AutoFilter_Criteria(A4) (A4 is de koptekstcel van de gefilterde gegevens), zie onderstaande schermafbeelding:

4. Druk vervolgens op Enter en selecteer cel A1. Sleep de vulgreep naar de rechtercellen waarin u deze formule wilt opnemen, en alle criteria worden weergegeven in de cellen, zie onderstaande schermafbeelding:

Opmerking: Als er meer dan twee criteria in een kolom zijn, zal deze door de gebruiker gedefinieerde functie geen juist resultaat geven.

Automatische filtercriteria weergeven in werkblad met VBA-code

Hier kan ik ook een interessante VBA-code bespreken, die u kan helpen om de filtercriteria in een cel van het werkboek weer te geven.

1. Houd de ALT + F11 toetsen ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het Modulevenster:

VBA-code: Automatische filtercriteria weergeven in 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 om deze code uit te voeren. Er verschijnt een pop-upvenster waarin u wordt gevraagd een lege cel te selecteren om de criteria in te plaatsen, zie onderstaande schermafbeelding:

4. Klik vervolgens op OK, en alle criteria worden weergegeven in de geselecteerde cel zoals hieronder:

Opmerking:

Met deze VBA-code, als u meer dan twee criteria in een kolom heeft, zullen de gedetailleerde filtercriteria niet worden weergegeven, maar als volgt worden getoond:

Automatische filtercriteria weergeven in werkblad met Kutools voor Excel

Als u Kutools voor Excel hebt geïnstalleerd, kunt u de Superfilterfunctie gebruiken om gegevens te filteren en tegelijkertijd de filtercriteria altijd bekijken.

1. Klik Kutools Plus > Superfilter om de Superfilter functie weer te geven. Zie onderstaande schermafbeelding:

2. In het Superfilter paneel, klik  om het gegevensbereik te selecteren dat u wilt filteren en vink het vakje Specifiek aan om het filterbereik vast te zetten. Zie onderstaande schermafbeelding:

3. In het Superfilter paneel, klik op een regel in een filtergroep en specificeer de filtercriteria in de keuzelijsten zoals u nodig hebt, en klik op Ok om de criteriainstelling te voltooien. Zie onderstaande schermafbeelding:

4. Klik Filteren, en de geselecteerde gegevens zijn gefilterd op basis van de criteria, en tegelijkertijd kunt u de filtercriteria zien die worden weergegeven in het Superfilter paneel. Zie onderstaande schermafbeelding:

Opmerking: U kunt de filtercriteria opslaan als een scenario voor later gebruik met het hulpprogramma Superfilter.

1. Klik op de Het huidige scenario opslaan knop, typ in het pop-upvenster een filternaam.

2. Wanneer u deze filterinstellingen de volgende keer wilt gebruiken, klikt u op de menubutton en kiest u het scenario in het submenu van Scenario laden.

Demo: Filtercriteria weergeven tijdens het filteren met behulp van Kutools voor Excel