Bu öğretici, bir Özet Tablonun veya tüm Özet tabloların VBA kullanılarak nasıl Yenileneceğini gösterecektir.
Pivot tablolar, Excel'in olağanüstü güçlü bir veri aracıdır. Pivot tablolar, alanları ve satırları gruplandırarak ve özetleyerek büyük miktarda veriyi analiz etmemizi ve yorumlamamızı sağlar.
Bir Pivot tablosu oluşturduğumuzda, veriler Pivot tablo önbelleği olarak bilinen yerde depolanır. Bu nedenle veriler, Pivot tablosunu hızlandıran bilgisayarın önbelleğinde saklanır.
Pivot tablosunun veri kaynağı güncellenirse, Pivot tablosunun kendisi güncellenmez. Excel'deki kullanıcının tıklaması gerekir Hepsini yenile Pivot Tablonun kaynak verilerini yenilemek için Şeritteki Veri sekmesindeki düğmesine basın.
Alternatif olarak, VBA'da verileri bizim için güncelleyecek makrolar yazabiliriz!
Tüm Veri Bağlantılarını Yenile
Verileri yenilemek için en basit yöntem, ne olduğunu taklit etmek için VBA kullanmaktır. Hepsini yenile düğme Şerit üzerinde yapar.
| 123 | Alt YenilemeBağlantıları()ActiveWorkbook.RefreshAllAlt Bitiş |
Bu yöntem, çalışma kitabındaki etkin olan tüm verilere olan tüm bağlantıları yenileyecektir. Ayrıca, yalnızca tek bir Pivot tablosunu yenilemekle kalmaz, farklı veri kümelerine bağlı birden fazla Pivot tablonuz varsa, birden çok Pivot tablosunu yeniler.
Tüm Özet Tabloları Yenile
Çalışma kitabımızdaki yalnızca Pivot tablolarını yenilemek, ancak diğer veri bağlantılarını hariç tutmak için şu yöntemi kullanabiliriz: Tabloyu Yenile.
Çalışma kitabımızda birden fazla Pivot tablomuz varsa, hepsini yenilemek için tüm Pivot tabloları arasında dolaşmamız gerekir. Bunu yapmak için önce bir Pivot Tablo Değişkeni tanımlıyoruz ve ardından Aktif çalışma kitabındaki tüm Pivot tabloları arasında dolaşmak için For Every Loop oluşturuyoruz.
| 123456 | Sub RefreshPivotsOnly()PivotTable Olarak Dim tblPivotActiveWorkbook.PivotTables'daki Her tblPivot içintblPivot.RefreshTableSonraki tblPivotAlt Bitiş |
Özet tablolarımızı yenilemek için benzer bir makro kullanabiliriz. Etkin sayfa tüm çalışma kitabı yerine. Daha sonra, Pivot tabloları arasında dolaşırdık. Etkin sayfa Yerine AktifÇalışma Kitabı.
| 123456 | Sub RefreshActiveSheetPivotsOnly()PivotTable Olarak Dim tblPivotActiveSheet.PivotTables İçindeki Her tblPivot içintblPivot.RefreshTableSonraki tblPivotAlt Bitiş |
Bu makroya, bizim web sitemizden kolayca erişebilseydik çok yararlı olurdu. Etkin sayfa. Bunun için sayfa üzerinde makroyu çalıştırmak için bir buton oluşturabiliriz.
Bir Pivot Tabloyu Yenile
Çalışma kitabındaki diğer tüm Pivot tablolarını değil de sadece üzerinde çalıştığımız Pivot tablosunu yenilemek istiyorsak, belirli Pivot tablosunu tanımlamamız gerekir. Bu, elbette, Pivot tablosunun adını bildiğiniz sürece - bu durumda PivotTable1.
| 123 | Alt YenilemeBir TabloActiveSheet.PivotTables("PivotTable1").RefreshTableAlt Bitiş |
Özet Tablo Önbelleğini Yenileme
Çalışma kitabımızda birden fazla Pivot tablomuz varsa, ancak hepsi aynı verileri kullanıyorsa, gerçek Pivot tablosunu yenilemek yerine Pivot tablo önbelleğini yenileyebiliriz. Önbelleği yenilemek, önbellekte bulunan verileri kullanan tüm Pivot tablolarını otomatik olarak yenileyecektir.
| 123456 | Alt Yenileme Önbelleği()PivotCache Olarak chPivot'u KarartınActiveWorkbook.PivotCaches'teki Her chPivot içinchPivot.YenileSonraki chPivotAlt Bitiş |
