特定のセルの値に基づいてExcelでピボットテーブルをフィルタリングするにはどうすればよいですか？

ピボットテーブルでのデータのフィルタリングは、通常、ドロップダウンリストから項目を選択することで行われます。しかし、特定のセルの値に基づいてピボットテーブルが動的にフィルタリングされるようにしたい場合もあります。このチュートリアルでは、このプロセスを自動化するためのシンプルなVBAソリューションを提供し、データを効率的に管理・分析することを容易にします。

VBAコードを使用して特定のセルの値に基づいてピボットテーブルをフィルタリングする

VBAコードを使用して特定のセルの値に基づいてピボットテーブルをフィルタリングする

次のVBAコードは、Excelで特定のセルの値に基づいてピボットテーブルを動的にフィルタリングするのに役立ちます。以下の手順を行ってください。

1. あらかじめピボットテーブルのフィルタリングに使用する値をセルに入力してください（ここではセルH6を選択します）。

2. ピボットテーブルが含まれているワークシートを開き、シートタブを右クリックしてコンテキストメニューから「コードの表示」を選択します。スクリーンショットをご覧ください：

3. 開いたMicrosoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコードウィンドウにコピーします。

VBAコード: セルの値に基づいてピボットテーブルをフィルタリングする

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

注意: コード内では、

4. Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

これでピボットテーブルは、下のスクリーンショットに示すように、セルH6の値に基づいて動的にフィルタリングされます：

必要に応じて、異なるフィルターを適用するためにセルの値を更新できます。

注意: セルH6に入力する値は、ピボットテーブルのカテゴリドロップダウンリストの値と正確に一致している必要があります。

関連記事：

• Excelで複数のシートをピボットテーブルに結合するにはどうすればよいですか？
• Excelでテキストファイルからピボットテーブルを作成するにはどうすればよいですか？
• Excelでピボットテーブルフィルタを特定のセルにリンクするにはどうすればよいですか？