VBA　ピボットテーブルの削除

今回は、VBAでピボットテーブルの削除について、見ていきましょう。

 

 

VBAでピボットテーブルを作成

 

Sub test()

    ' ピボットテーブル初期化　フィールドが消された


    ActiveSheet.PivotTables(1).ClearTable


End Sub

 

　

Sub test2()

    '　ピボットテーブル削除 シートがまっさらになる


    ActiveSheet.PivotTables(1).TableRange1.ClearContents


End Sub

 

Sub test3()
    '　シートごと消す
    
    Application.DisplayAlerts = False  '　削除警告画面非表示
    ActiveSheet.Delete
End Sub

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

参考記事