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

構文
Worksheet_PivotTableUpdateイベントのサンプルコード
Worksheet_PivotTableUpdateイベントが実行されない
関連記事

構文

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

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