Pivot : Menghapus Pivot Table

Jika materi sebelumnya kita belajar bagaimana membuat Pivot Table dengan VBA, kali ini yang akan dibahas adalah cara menghapus Pivot Table dengan VBA.

Ada beberapa cara yang bisa dilakukan untuk menghapus Pivot Table dengan VBA.

Cara pertama dengan menggunakan TableRange2.Clear. Untuk menggunakan cara ini, kita harus tentukan terlebih dahulu dimana sheet Pivot Table berada dan juga nama dari Pivot Table yang akan dihapus.

Misalnya jika Pivot Table berada di Sheet4 dan Nama pivot table nya adalah “PivotPenjualan” maka notasi script bisa ditulis seperti dibawah ini.

Sub HapusPivot()
Sheet4.PivotTables("PivotPenjualan").TableRange2.clear
End Sub

Cara lainnya untuk menghapus Pivot table adalah cara memilih Pivot terlebih dahulu kemudian gunakan ClearContents. Untuk contoh notasi script VBA bisa dilihat dibawah ini.

Disini diasumsikan bahwa nama sheet dan juga nama Pivot Table nya masih sama seperti diatas.

Sheet4.PivotTables("PivotPenjualan").PivotSelect "", xlDataAndLabel, True
Selection.ClearContents
End Sub