ExcelVBA ピボットテーブルフィルター設定で特定条件の集計を自動化する方法

以下のようなシーンで利用されます。

1.月次レポート作成で特定の月や期間にフィルターを設定する

2.商品カテゴリ別や地域別など、特定の条件でデータを絞り込みたい

3.特定の担当者のデータだけを表示して分析する必要がある

Option Explicit

Sub FilterPivotTable()
    Dim ws As Worksheet
    Dim pivotTable As pivotTable
    Dim pivotField As pivotField

    ' ピボットテーブルが存在するシートを指定
    Set ws = ThisWorkbook.Sheets("ピボットシート")
    ' ピボットテーブルを指定
    Set pivotTable = ws.PivotTables("SamplePivotTable")
    ' フィルターをかけるフィールドを指定
    Set pivotField = pivotTable.PivotFields("商品")

    ' すべてのアイテムを一度非表示にする
    pivotField.ClearAllFilters

    ' 特定のアイテムを表示（例: "a" という商品）
    pivotField.CurrentPage = "a"

    ' 更新を行う
    pivotTable.RefreshTable
End Sub

※シート名（ピボットシート）、テーブル名（SamplePivotTable）、フィルター項目は環境に合わせて修正してご利用ください。

このコードは、ピボットテーブルの「商品」フィールドに「a」という条件を設定するシンプルな例です。他のフィールドに対してフィルターを設定したい場合は、 pivotField の指定を変更してください。 フィルター条件を柔軟に変更できるように、変数を使って操作すると便利です。