Menerapkan Makro VBA adalah metode yang paling efektif, tercepat, dan teraman untuk menjalankan operasi apa pun di Excel. Pada artikel ini, kami akan menunjukkan kepada Anda cara menyegarkan tabel pivot di Excel menggunakan VBA.

Unduh Buku Kerja

Anda bisa mengunduh buku kerja Excel latihan gratis dari sini.

Segarkan Tabel Pivot dengan VBA.xlsm

5 Contoh untuk Menyegarkan Tabel Pivot dengan VBA di Excel

Berikut ini adalah contoh tabel pivot kami yang akan kami gunakan di seluruh artikel dan menunjukkan kepada Anda 5 contoh berbeda dari menyegarkan tabel pivot di Excel dengan VBA kode.

1. VBA untuk Menyegarkan Satu Tabel Pivot di Excel

Jika Anda ingin menyegarkan hanya satu tabel pivot di lembar kerja Excel Anda,

• Tekan Alt + F11 pada keyboard Anda atau buka tab Pengembang -> Visual Basic untuk membuka Editor Visual Basic .

• Di jendela kode pop-up, dari bilah menu, klik Sisipkan -> Modul .

• Salin kode berikut ini dan tempelkan ke jendela kode.

 Sub RefreshOnePivotTable() ActiveSheet.PivotTables("PivotTable1").RefreshTable End Sub 

Kode Anda sekarang siap untuk dijalankan.

Di sini, PivotTable1 adalah nama Tabel Pivot kita. Anda menulis nama yang dimiliki Tabel Pivot Anda.

• Tekan F5 pada keyboard Anda atau dari bilah menu pilih Jalankan -> Jalankan Sub/UserForm Anda juga bisa mengklik pada ikon Putar kecil di bilah sub-menu untuk menjalankan makro.

Ini akan menyegarkan tabel pivot di lembar kerja Excel Anda yang ada.

Baca selengkapnya: Tabel Pivot Tidak Menyegarkan (5 Masalah &; Solusi)

2. Makro untuk Menyegarkan Semua Tabel Pivot di Lembar Kerja Aktif

Untuk menyegarkan semua tabel pivot di lembar kerja aktif , ikuti langkah-langkah di bawah ini.

• Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub RefreshActiveSheetPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveSheet.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari makro dan semua tabel pivot di lembar kerja aktif Anda akan disegarkan.

Baca selengkapnya: Cara Menyegarkan Semua Tabel Pivot di Excel

3. Kode VBA untuk Menyegarkan Semua Tabel Pivot di Beberapa Buku Kerja

Jika Anda ingin menyegarkan semua tabel pivot di beberapa buku kerja sekaligus dengan VBA kode maka langkah-langkahnya adalah:

• Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub RefreshAllPivotTables() Dim PivotTbl As PivotTable For Each PivotTbl In ActiveWorkbook.PivotTables PivotTbl.RefreshTable Next PivotTbl End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari kode dan semua tabel pivot di semua buku kerja Excel Anda yang terbuka akan disegarkan.

Ingat untuk menyimpan semua buku kerja terbuka saat menjalankan kode ini.

Bacaan Serupa

• Cara Mengedit Tabel Pivot di Excel (5 Metode)
• Memperbarui Rentang Tabel Pivot (5 Metode yang Sesuai)
• Cara Memperbarui Tabel Pivot Secara Otomatis Ketika Data Sumber Berubah

4. Menyegarkan Cache Tabel Pivot dengan VBA di Excel

Jika Anda memiliki beberapa tabel pivot dalam buku kerja Anda yang menggunakan data yang sama, Anda bisa hanya menyegarkan cache tabel pivot daripada menyegarkan tabel pivot yang sebenarnya sepanjang waktu. Menyegarkan cache secara otomatis menghapus memori cache dari semua tabel pivot yang menggunakan koneksi data yang sama dalam cache.

Langkah-langkah untuk melakukan itu adalah,

• Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub RefreshPivotTableCache() Dim PivotCache As PivotCache For Each PivotCache In ActiveWorkbook.PivotCaches PivotCache.Refresh Next PivotCache End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari kode dan semua memori cache tabel pivot akan dihapus.

Baca selengkapnya: Cara Menyegarkan Otomatis Tabel Pivot tanpa VBA di Excel (3 Metode Cerdas)

5. Segarkan Otomatis Tabel Pivot Saat Mengubah Data dengan Makro VBA

Bagaimana jika Anda memiliki tabel pivot yang memiliki sejumlah besar data dan yang Anda inginkan hanyalah memperbarui beberapa data sementara seluruh tabel tidak tersentuh. Di Excel, Anda bisa menyegarkan kembali tabel pivot secara otomatis sambil memperbarui data dengan VBA .

• Terbuka Editor Visual Basic dari Pengembang.
• Di sisi kiri editor, akan ada Penjelajah Proyek panel yang memiliki semua nama lembar kerja.
• Dalam Penjelajah Proyek , klik dua kali pada nama sheet yang berisi tabel pivot.

• Jendela kode akan muncul di mana kita akan membuat makro peristiwa. Pilih Lembar Kerja dari Objek kotak drop-down di sebelah kiri modul kode. Ini akan menambahkan Lembar Kerja_Pemilihan_Perubahan event ke modul, kita sebenarnya tidak membutuhkannya sehingga kita akan menghapus bagian kode ini nanti.
• Kemudian klik pada Prosedur daftar drop-down dan pilih Perubahan Ini menambahkan event baru di bagian atas modul kode yang disebut Lembar_Kerja_Perubahan Kita akan menulis kode kita di sini sehingga hapus kode yang dihasilkan oleh Lembar Kerja_Pemilihan_Perubahan

• Sekarang salin kode berikut ini dan tempelkan di dalam Lembar_Kerja_Perubahan

 Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("PivotTbl").PivotTables("PivotTable1").PivotCache.Refresh End Sub 

Kode Anda sekarang siap untuk dijalankan.

Di sini, PivotTbl adalah nama lembar kerja di buku kerja Excel kita dan PivotTable1 adalah nama Tabel Pivot kita. Anda menulis nama yang dimiliki lembar kerja dan Tabel Pivot Anda.

• Sekarang setiap kali Anda mengubah data di tabel data asli di lembar kerja Anda, data di tabel pivot akan diperbarui secara otomatis.

Baca selengkapnya: Cara Menyegarkan Otomatis Tabel Pivot di Excel

Kesimpulan

Artikel ini menunjukkan kepada Anda cara menyegarkan tabel pivot di Excel dengan VBA Saya harap artikel ini sangat bermanfaat bagi Anda. Jangan ragu untuk bertanya jika Anda memiliki pertanyaan mengenai topik ini.