Microsoft ExcelでVBAを使用してオートフィルタテーブルにヘッダの黄色の背景色を設定し

投稿日: 2020年10月22日 2020年11月12日
タグ: 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