Microsoft Excel에서 VBA를 사용하여 자동 필터 테이블에 헤더 노란색 배경 색상을 설정

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

질문 :

열을 필터링 할 때 헤더 행은 노란색 배경색으로 강조 표시됩니다

답변 :

적절한 모듈에 다음 코드를 삽입하십시오.

아래 코드를 표준 모듈에 넣으십시오.

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