Come visualizzare / mostrare i criteri del filtro automatico in Excel?

Il Filtro Automatico è una funzionalità utile per gli utenti di Excel. A volte, applichiamo il Filtro Automatico per filtrare i dati in base a più criteri e inviamo il file ad altri. In questa situazione, se gli altri utenti vogliono conoscere i criteri di filtro che hai utilizzato, come possono fare?

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con una Funzione Definita dall'Utente

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con il codice VBA

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con Kutools per Excel

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con una Funzione Definita dall'Utente

Supponendo di avere i seguenti dati che sono stati filtrati in base a determinati criteri, vedi screenshot:

Ora posso creare una Funzione Definita dall'Utente per visualizzare i criteri del filtro nelle celle; procedi seguendo questi passaggi:

1. Tieni premuti i tasti ALT + F11 per aprire la Finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla la seguente macro nella Finestra del Modulo:

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. Poi salva e chiudi questo codice, in una cella vuota di una riga vuota, ad esempio la cella A1, inserisci questa formula =AutoFilter_Criteria(A4) (A4 è la cella di intestazione dei dati filtrati), vedi screenshot:

4. Premi il tasto Invio, quindi seleziona la cella A1, trascina la maniglia di riempimento sulle celle a destra dove desideri includere questa formula, e tutti i criteri verranno visualizzati nelle celle, vedi screenshot:

Nota: Se ci sono più di due criteri in una colonna, questa Funzione Definita dall'Utente non fornirà il risultato corretto.

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con il codice VBA

Qui posso anche parlare di un interessante codice VBA, che può aiutarti a visualizzare i criteri del filtro in una cella della cartella di lavoro.

1. Tieni premuti i tasti ALT + F11 per aprire la Finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla la seguente macro nella Finestra del Modulo:

Codice VBA: Visualizza i criteri del filtro automatico nel foglio di lavoro

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. Premi il tasto F5 per eseguire questo codice, apparirà una finestra di dialogo che ti chiederà di selezionare una cella vuota in cui inserire i criteri, vedi screenshot:

4. Quindi clicca su OK, e tutti i criteri verranno mostrati nella cella selezionata come segue:

Nota:

Con questo codice VBA, se ci sono più di due criteri in una colonna, non verranno mostrati i dettagli dei criteri di filtro ma verranno visualizzati come segue:

Visualizza / Mostra i criteri del filtro automatico nel foglio di lavoro con Kutools per Excel

Se hai installato Kutools per Excel, puoi applicare la sua funzione Super Filtri per filtrare i dati e allo stesso tempo puoi visualizzare i criteri di filtro in qualsiasi momento.

1. Clicca Kutools Plus > Super Filtri per visualizzare la funzione Super Filtri. Vedi screenshot: Funzione Super Filtri. Vedi screenshot:

2. Nel riquadro Super Filtri clicca  per selezionare l'intervallo di dati che desideri filtrare, quindi spunta la casella Specificato per fissare l'intervallo di filtro. Vedi screenshot:

3. Nel riquadro Super Filtri clicca su una riga in un gruppo di filtri, quindi specifica i criteri di filtro negli elenchi a discesa come necessario, quindi clicca su Ok per completare l'impostazione dei criteri. Vedi screenshot:

4. Clicca Filtra, e i dati selezionati verranno filtrati in base ai criteri, e nel frattempo, puoi visualizzare i criteri di filtro mostrati nel riquadro Super Filtri . Vedi screenshot:

Nota: Puoi salvare i criteri di filtro come uno scenario per usarlo successivamente con l'utilità Super Filtri.

1. Clicca sul pulsante Salva lo Scenario Corrente nella finestra di dialogo che appare, digita un nome per il filtro.

2. Quando vorrai usare nuovamente queste impostazioni di filtro, clicca sul pulsante del menu, poi scegli lo scenario nel sottomenu di Carica Scenario.

Demo: Visualizza i Criteri di Filtro Durante il Filtraggio usando Kutools per Excel