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

ピボットテーブルフィルターを特定のセルにリンクし、セル値に基づいてピボットテーブルをフィルター処理する場合は、この記事の方法が役立ちます。

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

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

フィルタ関数をセル値にリンクするピボットテーブルには、フィルタフィールドを含める必要があります（フィルタフィールドの名前は、次のVBAコードで重要な役割を果たします）。

以下のピボットテーブルを例として取り上げます。ピボットテーブルのフィルターフィールドは次のように呼び出されます。 カテゴリー、およびXNUMXつの値が含まれています。経費"と"営業」。 ピボットテーブルフィルターをセルにリンクした後、ピボットテーブルのフィルターに適用するセル値は「経費」と「売上」になります。

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

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")) 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にリンクされました。

セルH6を更新すると、ピボットテーブルの対応するデータが既存の値に基づいて除外されます。 スクリーンショットを参照してください：

セルの値を変更すると、ピボットテーブルでフィルタリングされたデータが自動的に変更されます。 スクリーンショットを参照してください：

関連記事：

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