フィルターが適用された場合、Excelで列または列ヘッダーをハイライトするにはどうすればよいですか？

複数の列を持つ表では、フィルターが適用された列には目立つシンボルがないため、どの列がフィルターされているかを一目で見つけるのは簡単ではありません。ただし、 マークがあります。フィルターされた列を目立たせる方法として、この記事で紹介する手法が役立ちます。

VBAコードを使用して、フィルタリングされた場合に列ヘッダーや列全体をハイライトする

VBAコードを使用して、フィルタリングされた場合に列ヘッダーや列全体をハイライトする

以下のスクリーンショットのように、表範囲内でフィルタリングされた列がある場合、その列全体または列ヘッダーのみをハイライトする必要がある場合は、次のVBAコードを適用してください。

1. Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックします。その後、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード: 列がフィルタリングされている場合、列ヘッダーをハイライトする

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

表内でフィルタリングされた場合に列全体をハイライトするには、以下のVBAコードをモジュールウィンドウにコピーして貼り付けてください。

VBAコード: 列がフィルタリングされている場合、列全体をハイライトする

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. F5キーを押してコードを実行します。表示されるKutools for Excelダイアログボックスで、フィルタリングされた列ヘッダーや列全体をハイライトしたい表の最初のセルを選択し、OKボタンをクリックします。

これにより、特定の表内で列がフィルタリングされている場合、列ヘッダーや列全体がすぐにハイライトされます。スクリーンショットをご覧ください：

表内で列がフィルタリングされている場合、列ヘッダーをハイライトする：

表内でフィルタリングされている場合、列全体をハイライトする：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！