Cara menyegarkan pivottable di vba (dengan contoh)

Anda dapat menggunakan metode berikut untuk menyegarkan tabel pivot di Excel menggunakan VBA:

Metode 1: Refresh tabel pivot tertentu

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Makro khusus ini hanya akan menyegarkan nilai dalam tabel pivot yang disebut PivotTable1 di lembar 1 buku kerja.

Metode 2: Refresh semua tabel pivot di buku kerja

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Makro khusus ini akan menyegarkan nilai setiap tabel pivot di seluruh buku kerja.

Contoh berikut menunjukkan cara menggunakan masing-masing metode ini dalam praktik.

Contoh 1: Refresh tabel pivot tertentu

Katakanlah kita membuat tabel pivot dari sekumpulan data di Excel:

Saat kita berada di tab Analisis PivotTable di sepanjang pita atas di Excel, kita dapat melihat di sudut kiri atas bahwa PivotTable ini disebut PivotTable1 .

Misalkan kita mengubah nilai terakhir kolom poin di dataset dari 22 menjadi 200 :

Kita dapat membuat makro berikut untuk menyegarkan nilai tabel pivot khusus ini:

 Sub RefreshPivotTable()
    Sheet1.PivotTables(" PivotTable1 ").Refreshtable
End Sub

Saat kami menjalankan makro ini, nilai tabel pivot diperbarui secara otomatis:

Contoh 2: Refresh semua tabel pivot di buku kerja

Katakanlah kita membuat dua tabel pivot dari sekumpulan data di Excel:

Tabel pivot pertama menunjukkan jumlah poin per tim dan per posisi.

Tabel pivot kedua menunjukkan poin rata-rata berdasarkan tim dan posisi.

Misalkan kita mengubah nilai terakhir kolom points di dataset dari 22 menjadi 200 .

Kita bisa membuat makro berikut untuk me-refresh nilai semua tabel pivot di seluruh buku kerja:

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Saat kami menjalankan makro ini, nilai di kedua tabel pivot diperbarui secara otomatis:

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menambahkan nilai dalam suatu rentang
VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung nilai unik dalam rentang