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

通常、下のスクリーンショットに示すように、ドロップダウンリストで項目を選択することにより、ピボットテーブルのデータをフィルタリングしています。 実際には、特定のセルの値に基づいてピボットテーブルをフィルタリングできます。 この記事のVBAメソッドは、問題の解決に役立ちます。

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

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

次のVBAコードは、Excelの特定のセル値に基づいてピボットテーブルをフィルタリングするのに役立ちます。 次のようにしてください。

1.事前に、ピボットテーブルをフィルタリングする値をセルに入力してください（ここではセルH6を選択します）。

2.セル値でフィルタリングするピボットテーブルが含まれているワークシートを開きます。 次に、シートタブを右クリックし、コンテキストメニューから[コードの表示]を選択します。 スクリーンショットを参照してください：

3.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウで、以下の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。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

次に、以下のスクリーンショットに示すように、ピボットテーブルはセルH6の値に基づいてフィルタリングしています。

必要に応じて、セルの値を他のセルの値に変更できます。

Note：セルH6に入力する値は、ピボットテーブルの[カテゴリ]ドロップダウンリストの値と完全に一致する必要があります。

関連記事：

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