Jim vuole un modo per dire rapidamente quali criteri di filtro sono stati applicati in un filtro automatico. Ha difficoltà a dire anche a quali colonne è applicato il filtro (il leggero cambiamento nel colore della freccia a discesa dal nero al blu è appena percettibile), quindi un altro metodo per dire dove è applicato un filtro sarebbe carino.

La mancanza di contrasto tra le frecce a discesa nere e blu in una colonna filtrata non è una lamentela insolita. In effetti, proprio questo problema è stato affrontato in un altro numero di ExcelTips. (Puoi cercare nel sito Web ExcelTips la frase “colori delle frecce a discesa” per un suggerimento utile a questo proposito.)

Se in realtà vuoi sapere quali criteri vengono applicati a una colonna, allora ti interesserà una piccola macro che inserirà i criteri in un’altra cella:

Function DispCriteria(Rng As Range) As String     Dim Filter As String

Filter = ""

On Error GoTo Done     With Rng.Parent.AutoFilter         If Intersect(Rng, .Range) Is Nothing Then GoTo Done         With .Filters(Rng.Column - .Range.Column + 1)

If Not .On Then GoTo Done             Filter = .Criteria1             Select Case .Operator                 Case xlAnd                     Filter = Filter & " AND " & .Criteria2                 Case xlOr                     Filter = Filter & " OR " & .Criteria2             End Select         End With     End With Done:

DispCriteria = Filter End Function

Questa è in realtà una funzione definita dall’utente che puoi utilizzare nel tuo foglio di lavoro. Ad esempio, se volessi conoscere i criteri di filtraggio applicati alla colonna C, potresti usare quanto segue in una cella:

=DispCriteria(C:C)

Se preferisci, puoi semplicemente fare riferimento alla cella di intestazione per la colonna da filtrare. Ad esempio, se l’intestazione (quella a cui AutoFilter aggiunge la freccia a discesa) è la cella C3, potresti usare quanto segue:

=DispCriteria(C3)

I criteri visualizzati dalla funzione sono quelli effettivamente utilizzati da AutoFilter. Ad esempio, se utilizzi un criterio di filtro che dice “Top 10”, Excel lo traduce nel momento in cui viene applicato in qualcosa come “> = 214.3281932” (il valore varia a seconda dei dati). È il filtro della formula restituito dalla funzione DispCriteria, non la dicitura “Top 10”.

La funzione si basa su quella creata da Microsoft MVP Stephen Bullen.

La macro è stata pubblicata in vari punti, e puoi trovarla sul sito Web di John Walkenbach, qui:

http://www.j-walk.com/ss/excel/usertips/tip044.htm

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2891) si applica a Microsoft Excel 97, 2000, 2002 e 2003.