Daftar Isi
Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda bisa segarkan semua Tabel Pivot dari lembar kerja atau buku kerja Anda dengan VBA di Excel. Anda juga akan belajar untuk menyegarkan Tabel Pivot tunggal , serta Tabel Pivot tembolok.
Segarkan Semua Tabel Pivot dengan VBA di Excel (Tampilan Cepat)
Dim Tabel As PivotTable For Each Tabel In ActiveWorkbook.PivotTables Tabel.RefreshTable Next Tabel
Ini akan menyegarkan semua Tabel Pivot dari buku kerja yang aktif.
Unduh Buku Kerja Praktik
Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.
Segarkan Semua Tabel Pivot.xlsm4 Cara untuk Menyegarkan Semua Tabel Pivot dengan VBA di Excel
A Tabel Pivot adalah jenis tabel khusus dalam lembar kerja Excel yang berisi dua kategori data, berjudul Baris dan Nilai masing-masing.
Semua kolom tabel dikategorikan di bawah kedua kategori ini.
Ini dihasilkan secara otomatis dari kumpulan data jika Anda memilih kumpulan data dan pergi ke Sisipkan> PivotTable opsi di bilah alat Excel.
Hari ini, tujuan kita adalah mempelajari bagaimana kita bisa menyegarkan kembali semua Tabel Pivot dari lembar kerja atau buku kerja dengan VBA di Excel.
1. Segarkan Tabel Pivot Tunggal di Excel
Pertama, kita akan belajar untuk menyegarkan satu Tabel Pivot .
Untuk menyegarkan satu Tabel Pivot pertama-tama, Anda harus menyebutnya sebagai PivotTable objek.
Kemudian Anda harus menggunakan RefreshTable metode VBA .
Di sini kita punya Tabel Pivot disebut PivotTable1 di lembar kerja yang aktif. (Klik di sini untuk mengetahui cara mendapatkan nama Tabel Pivot ).
Untuk menyegarkannya, kita harus menggunakan baris kode berikut ini:
Dim Tabel1 As PivotTable Set Tabel1 = ActiveSheet.PivotTables("PivotTable1") Tabel1.RefreshTable
Jalankan kode, dan itu akan menyegarkan Tabel Pivot disebut PivotTable1 di lembar kerja aktif.
Baca lebih lanjut: Cara Menyegarkan Otomatis Tabel Pivot di Excel (2 Metode)
2. Segarkan Semua Tabel Pivot dari Lembar Kerja di Excel
Sekarang kita akan menyegarkan semua Tabel Pivot dari lembar kerja dengan VBA .
Untuk menyegarkan semua Tabel Pivot dari lembar kerja yang aktif, Anda harus mengulang-ulang setiap Tabel Pivot dari ActiveSheet.PivotTables objek. Kemudian gunakan RefreshTable metode.
Dim Tabel Sebagai PivotTable Untuk Setiap Tabel Dalam ActiveSheet.PivotTables Tabel.RefreshTable Tabel Berikutnya
Jalankan kodenya, dan itu akan menyegarkan semua Tabel Pivot dari lembar kerja yang aktif.
Baca selengkapnya: Tabel Pivot Tidak Menyegarkan (5 Masalah &; Solusi)
3. Segarkan Semua Tabel Pivot dari Buku Kerja di Excel
Anda juga bisa menyegarkan semua Tabel Pivot dari buku kerja di Excel.
Untuk menyegarkan semua Tabel Pivot dari buku kerja yang aktif, iterasi melalui setiap tabel dengan ActiveWorkbook.PivotTables objek dari VBA Kemudian gunakan RefreshTable metode.
Dim Tabel As PivotTable For Each Tabel In ActiveWorkbook.PivotTables Tabel.RefreshTable Next Tabel
Kode ini akan menyegarkan semua Tabel Pivot dari buku kerja yang aktif.
Baca selengkapnya: Cara Memperbarui Tabel Pivot Secara Otomatis Saat Data Sumber Berubah
4. Segarkan Cache Tabel Pivot dengan VBA di Excel
Jika Anda memiliki beberapa Tabel Pivot dalam buku kerja Anda yang menggunakan data yang sama, Anda sebaiknya menyegarkan kembali Cache Tabel Pivot daripada menyegarkan Tabel Pivot .
Untuk menyegarkan Cache Tabel Pivot , lakukan iterasi melalui setiap Cache Tabel Pivot dari buku kerja yang aktif oleh tombol ActiveWorkbook.PivotCaches objek.
Kemudian gunakan R efresh metode VBA .
Dim Cache As PivotCache For Each Cache In ActiveWorkbook.PivotCaches Cache.Refresh Next Cache
Ini akan menyegarkan semua Cache Tabel Pivot dari buku kerja yang aktif.
Baca selengkapnya: Cara Menyegarkan Otomatis Tabel Pivot tanpa VBA di Excel (3 Metode Cerdas)
Hal-hal yang Perlu Diingat
Di sini kita telah menunjukkan untuk menyegarkan Tabel Pivot dari lembar kerja atau buku kerja yang aktif saja. Jika Anda ingin menyegarkan data dari buku kerja atau lembar kerja yang tidak aktif, gunakan nama lembar kerja atau buku kerja sebagai ganti dari ActiveSheet atau Buku Kerja Aktif objek.
Contohnya, untuk menyegarkan semua Tabel Pivot dari Sheet1 , gunakan Untuk Setiap Tabel Dalam Lembar Kerja ("Sheet1").PivotTables .
Dan untuk menyegarkan kembali dari Buku Kerja1 , gunakan Untuk Setiap Tabel Dalam Buku Kerja ("Buku Kerja1").PivotTables .
Kesimpulan
Dengan menggunakan metode-metode ini, Anda bisa menyegarkan semua Tabel Pivot dari lembar kerja atau buku kerja dengan VBA Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami.