ExcelVBA ピボットテーブルのデータが変更されたときに自動更新する方法

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

1.データの入力や編集が頻繁に行われるシートを使用している。

2.レポート作成や分析において、正確な集計が必要

3.毎回手動で更新するのが面倒な場合、自動化をして作業効率を向上させたい。

Excel VBA ピボットテーブル自動更新｜使い方とポイント

Option Explicit

Sub UpdatePivotTable()
    Dim ws As Worksheet
    Dim pivotTable As pivotTable

    ' ピボットテーブルがあるシートを指定
    Set ws = ThisWorkbook.Sheets("ピボットシート")
    ' ピボットテーブルを指定
    Set pivotTable = ws.PivotTables("SamplePivotTable")

    ' ピボットテーブルを更新
    pivotTable.RefreshTable

    MsgBox "ピボットテーブルが更新されました！"
End Sub

このコードを自動化することで、たとえばワークブックを開いたときに自動で更新するように設定することも可能です。データが大きい場合は、複数のピボットテーブルを一度に更新するコードを書くこともできます。