Contoh Kode Macro Event: Menampilkan Update pada PivotTable dalam Excel VBA
Contoh kode macro di bawah ini menjalankan event setelah suatu pivot table diperbarui setelah melakukan refresh pada pivot table tersebut.
Pivot table hanya akan dapat diperbarui datanya jika melakukan refresh melalui menu Refresh dari ribbon PivotTable Tools > Analyze > Data atau dengan cara klik-kanan pivot table.
Event Worksheet_PivotTableUpdate dapat mencetuskan keadaan tersebut di dalam worksheet.
Ikuti langkah-langkah berikut untuk membuat kode macronya:
1. Dalam Excel, klik kanan tab sheet berisi pivot table yang akan diuji-coba.
2. Pilih View Code.
3. Pada kotak pilihan Object (General) di atas module worksheet klik tanda panah di ujungnya.
4. Pilih Worksheet.
5. Pada kotak pilihan Procedure (Declarations) di atas module worksheet, klik tanda panahnya di ujungnya.
6. Pilih event PivotTableUpdate.
7. Ketik kode berikut tepat dibawah Private Sub Worksheet_PivotTableUpdate:
MsgBox "Pivot table pada sheet ini telah diperbarui."
8. Kode lengkapnya menjadi seperti berikut:
MsgBox "Pivot table pada sheet ini telah diperbarui."
End Sub
10. Lakukan langkah yang sama dengan di atas dimulai dari No. 1, jika terdapat pivot table pada sheet lain.
11. Tekan Alt+F11 untuk kembali ke jendela Excel.
12. Silakan lakukan refresh pivot table, apakah kotak pesan muncul?
Demikian pembahasan tentang event Worksheet_PivotTableUpdate dalam macro VBA Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.