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

通常、Excelでは、必要に応じてフィルター機能を適用してデータをフィルター処理できます。 ただし、この記事では、セルの値をクリックするだけでデータをフィルタリングする方法について説明します。 次のデータを例にとると、セルA2をダブルクリックすると、このクリックされた値に基づくすべての対応するレコードが、以下のスクリーンショットに示すように一度にフィルタリングされます。

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

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

ここでは、セルをクリックしてデータをフィルタリングするためのVBAコードを提供します。次のようにしてください。

1。 まず、データに範囲名を付けます。範囲名をに入力してください 名前ボックス、プレス 入力します キー、スクリーンショットを参照してください：

2。 セルをクリックしてフィルタリングするシートタブを右クリックし、を選択します コードを表示 コンテキストメニューから、開いた状態で アプリケーション向け Microsoft Visual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。

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

Note：上記のコードでは、 マイデータ はデータ範囲用に作成した範囲名です。必要に応じて変更してください。

3。 次に、コードウィンドウを保存して閉じます。ここで、除外するデータ範囲のセルをダブルクリックすると、対応するレコードが次のスクリーンショットのようにフィルタリングされます。

その他の関連記事：

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

Excelのヘッダーをクリックして列データを並べ替える方法は？