Come evidenziare una colonna o l'intestazione di una colonna se è filtrata in Excel?
Per una tabella con più colonne, non è facile capire a colpo d'occhio quale colonna è stata filtrata, poiché non c'è alcun simbolo evidente per la colonna filtrata, tranne per un 
segnalino. Se desideri rendere la colonna filtrata più evidente in una tabella, un metodo descritto in questo articolo può aiutarti.
Evidenzia l'intestazione della colonna o l'intera colonna se filtrata con il codice VBA
Evidenzia l'intestazione della colonna o l'intera colonna se filtrata con il codice VBA
Come mostrato nello screenshot sottostante, devi evidenziare l'intera colonna o solo l'intestazione della colonna se questa colonna è filtrata in un intervallo di tabella. Applica i seguenti codici VBA.
1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Poi copia il seguente codice VBA nella finestra del Modulo.
Codice VBA: Evidenzia l'intestazione della colonna se la colonna è filtrata
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End SubPer evidenziare l'intera colonna se è filtrata in una tabella, copia e incolla il seguente codice VBA nella finestra del Modulo.
Codice VBA: Evidenzia l'intera colonna se è filtrata
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range：", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel che appare, seleziona la prima cella della tabella in cui desideri evidenziare l'intestazione della colonna filtrata o l'intera colonna filtrata, quindi fai clic sul pulsante OK.
Quindi, l'intestazione della colonna o l'intera colonna verrà immediatamente evidenziata se la colonna è filtrata in una determinata tabella. Vedi gli screenshot:
Evidenzia l'intestazione della colonna se la colonna è filtrata nella tabella:
Evidenzia l'intera colonna se è filtrata nella tabella:
Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in