Uygulama VBA makrosu Excel'de herhangi bir işlemi çalıştırmak için en etkili, en hızlı ve en güvenli yöntemdir. Bu makalede, size nasıl yapılacağını göstereceğiz VBA kullanarak Excel'de pivot tabloyu yenileyin.

Çalışma Kitabını İndirin

Ücretsiz alıştırma Excel çalışma kitabını buradan indirebilirsiniz.

Pivot Tabloyu VBA.xlsm ile Yenile

5 Excel'de VBA ile Pivot Tablo Yenileme Örnekleri

Aşağıda, tüm makale boyunca kullanacağımız ve size 5 farklı örnek göstereceğimiz pivot tablo örneğimiz yer almaktadır pivot tabloları yenileme ile Excel'de VBA Kod.

1. Excel'de Bir Pivot Tabloyu Yenilemek için VBA

Eğer istiyorsan Sadece bir pivot tabloyu yenileme sonra Excel çalışma sayfanızda,

• Basın Alt + F11 sekmesine gidin veya klavyenizde Geliştirici -> Visual Basic açmak için Visual Basic Düzenleyicisi .

• Açılır kod penceresinde, menü çubuğundan Insert -> Modül .

• Aşağıdaki kodu kopyalayın ve kod penceresine yapıştırın.

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

Kodunuz artık çalışmaya hazır.

İşte, PivotTablo1 Pivot Tablomuzun adıdır. Pivot Tablonuzun sahip olduğu adı yazarsınız.

• Basın F5 klavyenizde veya menü çubuğundan Run -> Run Sub/UserForm üzerine de tıklayabilirsiniz. küçük Oynat simgesi makroyu çalıştırmak için alt menü çubuğunda.

Bu olacak pivot tabloyu yenileme mevcut Excel çalışma sayfanızda.

Daha fazlasını okuyun: Pivot Tablo Yenilenmiyor (5 Sorun & Çözümler)

2. Etkin Çalışma Sayfasındaki Tüm Pivot Tabloları Yenileme Makrosu

Etkin çalışma sayfasındaki tüm pivot tabloları yenilemek için aşağıdaki adımları izleyin.

• Öncekiyle aynı şekilde, açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

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

Kodunuz artık çalışmaya hazır.

• Koşmak makro ve etkin çalışma sayfanızdaki tüm pivot tablolar yenilenecektir.

Daha fazlasını okuyun: Excel'de Tüm Pivot Tablolar Nasıl Yenilenir

3. Birden Çok Çalışma Kitabındaki Tüm Pivot Tabloları Yenilemek için VBA Kodu

Eğer istiyorsan Birden çok çalışma kitabındaki tüm pivot tabloları yenileme bir kerede VBA kodundan sonra adımlar şunlardır:

• Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

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

Kodunuz artık çalışmaya hazır.

• Koşmak kodunu girin ve açık olan tüm Excel çalışma kitaplarınızdaki tüm pivot tablolar yenilenecektir.

Unutmayın tüm çalışma kitaplarını saklamak için açık bu kodu çalıştırırken.

Benzer Okumalar

• Excel'de Pivot Tablo Nasıl Düzenlenir (5 Yöntem)
• Pivot Tablo Aralığını Güncelleme (5 Uygun Yöntem)
• Kaynak Veriler Değiştiğinde Pivot Tablo Nasıl Otomatik Olarak Güncellenir?

4. Excel'de VBA ile Pivot Tablo Önbelleğini Yenileme

Çalışma kitabınızda aynı verileri kullanan birden fazla pivot tablonuz varsa, şunları yapabilirsiniz yalnızca pivot tablo önbelleğini yenileyin Önbelleği yenilemek, önbellekte aynı veri bağlantısını kullanan tüm pivot tabloların önbelleklerini otomatik olarak temizler.

Bunu yapmak için adımlar şunlardır,

• Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici sekmesi ve Ekleme a Modül kod penceresinde.
• Kod penceresinde, aşağıdaki kodu kopyalayın ve yapıştırın.

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

Kodunuz artık çalışmaya hazır.

• Koşmak kodu ve tüm pivot tablo önbellek bellekleri temizlenecektir.

Daha fazlasını okuyun: Excel'de VBA Olmadan Pivot Tablo Nasıl Otomatik Yenilenir (3 Akıllı Yöntem)

5. VBA Makrosu ile Verileri Değiştirirken Pivot Tabloyu Otomatik Yenile

Ya büyük miktarda veri içeren bir pivot tablonuz varsa ve tek istediğiniz tablonun tamamına dokunmadan birkaç veriyi güncellemekse? Excel'de şunları yapabilirsiniz pivot tabloyu otomatik yenileme ile verileri güncellerken VBA .

• Açık Visual Basic Düzenleyicisi bir şey yok. Geliştirici.
• Düzenleyicinin sol tarafında bir Proje Kaşifi Çalışma sayfasının tüm adlarını içeren bölme.
• İçinde Proje Kaşifi , pivot tabloyu içeren sayfa adına çift tıklayın.

• Bir olay makrosu oluşturacağımız kod penceresi görünecektir. Çalışma Sayfası bir şey yok. Nesne Bu, kod modülünün solundaki açılır kutuya bir Çalışma Sayfası_SeçimDeğişikliği olayını modüle eklediğimizde, aslında buna ihtiyacımız yok, bu yüzden bu kod parçasını daha sonra sileceğiz.
• Daha sonra Prosedür açılır listesini seçin ve Değişim Bu, kod modülünün en üstüne aşağıdaki adda yeni bir olay ekler Çalışma Sayfası_Değiştir . Kodumuzu buraya şöyle yazacağız silme tarafından oluşturulan kod Çalışma Sayfası_SeçimDeğişikliği

• Şimdi aşağıdaki kodu kopyalayın ve Çalışma Sayfası_Değiştir

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

Kodunuz artık çalışmaya hazır.

İşte, PivotTbl Excel çalışma kitabımızdaki çalışma sayfası adı ve PivotTablo1 Pivot Tablo adımızdır. Çalışma sayfanızın ve Pivot Tablonuzun sahip olduğu adı yazarsınız.

• Artık çalışma sayfanızdaki orijinal veri tablosundaki verileri her değiştirdiğinizde, pivot tablodaki veriler otomatik olarak güncellenecektir.

Daha fazlasını okuyun: Excel'de Pivot Tablo Nasıl Otomatik Yenilenir

Sonuç

Bu makale size aşağıdakileri nasıl yapacağınızı gösterdi pivot tabloyu yenileme ile Excel'de VBA Umarım bu makale sizin için çok faydalı olmuştur. Konuyla ilgili herhangi bir sorunuz olursa sormaktan çekinmeyin.