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 Sub

Per 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 Sub

3. 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.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!