Come evidenziare la colonna o l'intestazione di colonna se è filtrata in Excel?

Per una tabella con più colonne, non è facile scoprire quale colonna è filtrata a colpo d'occhio poiché non esiste un simbolo ovvio per la colonna filtrata ad eccezione di un marchio. Se vuoi rendere la colonna filtrata in sospeso in una tabella, un metodo in questo articolo può aiutarti.

Evidenzia l'intestazione della colonna o l'intera colonna se è filtrata con codice VBA

Evidenzia l'intestazione della colonna o l'intera colonna se è filtrata con codice VBA

Come mostrato nell'immagine sottostante, è necessario evidenziare l'intera colonna o solo l'intestazione della colonna se questa colonna è filtrata in un intervallo di tabelle, applicare i seguenti codici VBA.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nella finestra di Microsoft Visual Basic, Applications Edition, fare clic su inserire > Moduli. Quindi copia il codice VBA sottostante 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 codice VBA sottostante 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 F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare la prima cella della tabella necessaria per evidenziare l'intestazione della colonna filtrata o l'intera colonna filtrata, quindi fare clic su OK pulsante.

Quindi l'intestazione della colonna o l'intera colonna verrà evidenziata immediatamente se la colonna viene filtrata in una determinata tabella. Vedi screenshot:

Evidenzia l'intestazione della colonna se la colonna è filtrata nella tabella:

Evidenzia l'intera colonna se è filtrata nella tabella:

Sblocca Excel Magic con Kutools AI

• Esecuzione intelligente: esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto gestito da semplici comandi.
• Formule personalizzate: genera formule personalizzate per semplificare i flussi di lavoro.
• Codifica VBA: Scrivi e implementa il codice VBA senza sforzo.
• Interpretazione della formula: Comprendere formule complesse con facilità.
• Traduzione di testi: abbatti le barriere linguistiche nei tuoi fogli di calcolo.

Migliora le tue funzionalità di Excel con strumenti basati sull'intelligenza artificiale. Scarica Ora e sperimenta l'efficienza come mai prima d'ora!