Vba'da pivottable'lar nasıl yenilenir (örneklerle)

VBA’yı kullanarak Excel’deki pivot tabloları yenilemek için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Belirli bir pivot tabloyu yenileme

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

Bu özel makro yalnızca çalışma kitabının 1. sayfasındaki PivotTable1 adı verilen pivot tablodaki değerleri yenileyecektir.

Yöntem 2: Çalışma kitabındaki tüm pivot tabloları yenileyin

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Bu özel makro, çalışma kitabının tamamındaki her bir pivot tablonun değerlerini yenileyecektir.

Aşağıdaki örnekler bu yöntemlerin her birinin pratikte nasıl kullanılacağını göstermektedir.

Örnek 1: Belirli bir pivot tabloyu yenileme

Diyelim ki Excel’deki bir dizi veriden bir pivot tablo oluşturduk:

Excel’de üst şerit boyunca PivotTable Analizi sekmesine geldiğimizde sol üst köşede bu PivotTable’ın PivotTable1 olarak adlandırıldığını görebiliriz.

Veri kümesindeki puan sütununun son değerini 22’den 200’e değiştirdiğimizi varsayalım:

Bu spesifik pivot tablonun değerlerini yenilemek için aşağıdaki makroyu oluşturabiliriz:

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

Bu makroyu çalıştırdığımızda pivot tablo değerleri otomatik olarak güncellenir:

Örnek 2: Çalışma kitabındaki tüm pivot tabloları yenileme

Diyelim ki Excel’deki bir veri kümesinden iki pivot tablo oluşturduk:

İlk pivot tablo, takım ve pozisyon başına puanların toplamını gösterir.

İkinci pivot tablo takıma ve pozisyona göre ortalama puanları gösterir.

Veri kümesindeki puan sütununun son değerini 22’den 200’e değiştirdiğimizi varsayalım.

Çalışma kitabının tamamındaki tüm pivot tabloların değerlerini yenilemek için aşağıdaki makroyu oluşturabiliriz:

 Sub RefreshAllPivotTables()
    ThisWorkbook.RefreshAll
End Sub

Bu makroyu çalıştırdığımızda her iki pivot tablodaki değerler otomatik olarak güncellenir:

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir aralıktaki değerler nasıl eklenir?
VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki benzersiz değerler nasıl sayılır?