Excel VBA ピボットテーブル集計値を取得しレポート分析に活用する方法

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

1.特定のピボットテーブル集計結果をVBAコードで取得して、他のシートに出力したり、条件に応じた処理を行ったりする。

2.自動化されたレポートや、特定の値に基づいてアクションを実行する必要がある。

Option Explicit

Sub GetPivotTableValue()
    Dim ws As Worksheet
    Dim pt As pivotTable
    Dim value As Variant

    ' ピボットテーブルがあるシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' ピボットテーブルオブジェクトを取得
    Set pt = ws.PivotTables("MyPivotTable")

    ' 特定の値を取得
    value = pt.GetPivotData("合計 / 金額", "商品", "a").value

    ' 取得した値を表示
    MsgBox "商品の合計 金額: " & value
End Sub

動的な値取得 データフィールドや行ラベルを柔軟に設定することで、さまざまな条件に応じた集計結果を取得できます。エラーハンドリング ピボットテーブルに指定したフィールドが存在しない場合にエラーが発生することがあるので、エラーハンドリングを追加することでコードがより堅牢になります。

この方法を使えば、ピボットテーブルのデータを自動的に取得し、さまざまな分析や処理に活用することができます。