Excelでセルの内容をクリックするだけでデータをフィルタリングするにはどうすればよいですか？

通常、Excelでは、必要に応じてデータをフィルタリングするために「フィルター」機能を使用できます。しかし、この記事では、セルの値をクリックするだけでデータをフィルタリングする方法について説明します。以下のデータを例にとると、セルA2をダブルクリックすると、そのクリックされた値に基づいてすべての対応するレコードが一度にフィルタリングされます（下のスクリーンショット参照）。

VBAコードを使用してセルの値をクリックするだけでデータをフィルタリングする

VBAコードを使用してセルの値をクリックするだけでデータをフィルタリングする

ここでは、セルをクリックしてデータをフィルタリングするためのVBAコードを提供しますので、次の手順を行ってください：

1. まず、データに範囲名を付けます。「 名前ボックス」に範囲名を入力し、 Enterキーを押してください。以下のスクリーンショットをご覧ください：

2. フィルタリングしたいシートのタブを右クリックし、「コードの表示」を選択します。開かれた Microsoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード: セルの値をクリックしてデータをフィルタリングする：

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

注: 上記のコードでは、mydataはデータ範囲のために作成した範囲名です。必要に応じて変更してください。

3. その後、コードウィンドウを保存して閉じます。これで、フィルタリングしたいデータ範囲内の任意のセルをダブルクリックすると、その対応するレコードが以下のスクリーンショットのようにフィルタリングされます：

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

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

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

関連記事：

セルをクリックすることでセルの値を変更するにはどうすればよいですか？

Excelでヘッダーをクリックして列データを並べ替えるにはどうすればよいですか？