関数・メソッド

ピボットテーブルが更新された時に処理実行する【PivotTableUpdate】【ExcelVBA】

構文

Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

Target・・・・ 更新されたピボットテーブルを取得
ピボットテーブルが更新された際に実行されるイベントです。
ピボットテーブルが更新されたのを明示的に取得するケースで使用します。

Worksheet_PivotTableUpdateイベントのサンプルコード

標準モジュールではなく、WorkSheetモジュール(Microsoft_Excel_Objects_Sheet1等)に記載します。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    
    '■シートが顧客名簿の場合、印刷させないサンプルコード
    If ActiveSheet.Name = "顧客名簿" Then
        Cancel = True
    End If

    '■セルのA1が空白(未入力)の場合、印刷させないサンプルコード
    If Cells(1, 1) = "" Then
        Cancel = True
    End If

End Sub

 

★注意★
・サンプルでは「顧客名簿」とコード内に直打ちしていますが、本来は定数化が望ましいです。

Worksheet_PivotTableUpdateイベントが実行されない

  • 標準モジュールに記載している。
    →WorkSheetモジュール(Sheet1やSheet2)に記載をしましょう。

関連記事

ブック保存する前に処理実行する【Workbook_BeforeSave】【ExcelVBA】
ブックを閉じる時に処理実行する【Workbook_BeforeClose】【auto_close】【ExcelVBA】
セルクリックした場合に処理を実行する【SelectionChange】【ExcelVBA】
特定のセル範囲で値が変更された時に処理を実行【ExcelVBA】

コメント

タイトルとURLをコピーしました