ExcelVBA ピボットテーブルのデータが変更されたとき、手動で「更新」ボタンを押さずに、VBAを使って自動でピボットテーブルを更新することができます。効率的に正確なデータを分析できるようになります。
使い方や注意点など、サンプルコードをもとに具体的に解説します。
以下のようなシーンで利用されます。
1.データの入力や編集が頻繁に行われるシートを使用している。
2.レポート作成や分析において、正確な集計が必要
3.毎回手動で更新するのが面倒な場合、自動化をして作業効率を向上させたい。
pivotTable.RefreshTable でピボットテーブルの更新処理を入れます。
1.ピボットテーブルの名前やシート名は、環境に応じて変更する必要があります。
2.ピボットテーブルのデータソースが変更された場合は、データソース範囲も自動で更新するコードが必要です。
3.ピボットテーブルを頻繁に更新する場合、パフォーマンスに影響が出ることがあります。
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 Sub1.シートとピボットテーブルの指定
Set ws = ThisWorkbook.Sheets("Sheet1") で、ピボットテーブルがあるシートを指定します。
Set pivotTable = ws.PivotTables("PivotTable1") で、更新するピボットテーブルを指定します。
2.ピボットテーブルの更新
pivotTable.RefreshTable でピボットテーブルを更新します。
3.通知メッセージ
更新が完了した後にメッセージボックスを表示して、ユーザーに通知します。
このコードを自動化することで、たとえばワークブックを開いたときに自動で更新するように設定することも可能です。データが大きい場合は、複数のピボットテーブルを一度に更新するコードを書くこともできます。
操作方法：1.●●●をクリック（スマホはタップ）で答え表示。2.答えをクリック（スマホはタップ）で●●●表示。1⇔2を繰り返すことで、記憶を定着できます。
1.シートとピボットテーブルの指定
Set ws = ThisWorkbook.Sheets("Sheet1") で、ピボットテーブルがあるシートを指定します。
Set pivotTable = ws.●●●("PivotTable1") で、更新するピボットテーブルを指定します。
2.ピボットテーブルの更新
pivotTable.●●● でピボットテーブルを更新します。
3.通知メッセージ
更新が完了した後にメッセージボックスを表示して、ユーザーに通知します。
Excel VBAで自動化するコードのベースを習得したい方におすすめ！
VBAエキスパート資格は、日常業務でExcelを多用し、手動作業を減らしたいと考えている方には価値あるものです。
ExcelVBAエキスパートベーシック
仕事の効率をあげるためにExcelVBAを利用する人が対象の問題集です。
ExcelVBAエキスパートスタンダード
ExcelVBAの開発を仕事にする人が対象の問題集です。
Excel VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。
