Impostare colore di sfondo giallo per il colpo di testa in una tabella filtro automatico utilizzando VBA in Microsoft Excel
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