Cara Menampilkan Kotak Pesan Pembaruan PivotTable di Tiap Sheet
Jika dalam postingan Contoh Kode Macro Event: Menampilkan Update pada PivotTable dalam Excel VBA, kami telah membahas Event Worksheet_PivotTableUpdate yang dicetuskan pada saat melakukan refresh pada PivotTable baik melalui menu Refresh dari ribbon PivotTable Tools > Analyze > Data atau dengan cara klik-kanan pivot table, kali ini kami akan membahas event yang hampir mirip yaitu Workbook_SheetPivotTableUpdate.
Event ini memantau semua worksheet pada suatu file atau workbook yang di dalamnya terdapat pivot table.
Ketika pivot table dilakukan pembaruan, maka nama-nama worksheet berisi pivot table tersebut akan tampil dalam sebuah kotak pesan dengan kode macro di bawah ini.
Ikuti langkah-langkah berikut untuk membuat kode macronya:
1. Buka file Excel berisi pivot table yang ada dalam komputer Anda.
2. Buka VBE dengan cara menekan Alt+F11, lalu tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.
3. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.
4. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.
5. Pada kotak daftar pilihan Object pilih Workbook.
6. Pada kotak daftar pilihan Procedure pilih SheetPivotTableUpdate.
7. Tepat di bawah Private Sub Workbook_SheetPivotTableUpdate ketik perintah berikut untuk menampilkan kotak pesan:
MsgBox "PivotTable pada sheet " & Sh.Name & " telah berhasil diperbarui.", , "Perhatian!"
8. Kode lengkapnya sebagai berikut:
ByVal Target As PivotTable)
MsgBox "PivotTable pada sheet " & Sh.Name & " telah berhasil diperbarui.", , "Perhatian!"
End Sub
9. Kembali ke worksheet dengan cara menekan Alt+Q lalu buat perubahan pada sumber data pivot table misalnya dengan mengubah nilainya kemudian lakukan refresh pada pivot table.
Demikian pembahasan tentang cara menampilkan kotak pesan pembaruan PivotTable di setiap worksheet, semoga postingan ini bermanfaat.