Impostare colore di sfondo giallo per il colpo di testa in una tabella filtro automatico utilizzando VBA in Microsoft Excel

Posted on: 2020年11月12日 2020年11月12日
Tags: general-topics-in-vba

Domanda:

Quando si filtra una colonna, la riga di intestazione deve essere evidenziata con un colore di sfondo giallo

Risposta:

Inserisci il seguente codice nei moduli appropriati.

Inserisci il codice sottostante nel modulo standard.

Private Sub Worksheet_Calculate()

Dim flt As Filter

Dim intCol As Integer

For Each flt In ActiveSheet.AutoFilter.Filters

intCol = intCol + 1

If flt.On Then

Cells(1, intCol).Interior.ColorIndex = 6

Else

Cells(1, intCol).Interior.ColorIndex = xlColorIndexNone

End If

Next flt

End Sub