Ana içeriğe atla

Excel'de bir Pivot Tablosunu otomatik olarak nasıl yenileyebilirim?

Yazarı: Kelly Son Değiştirilme Tarihi: 2020-09-10

Normalde, bir pivot tablonun kaynak verilerini güncellediğimizde, pivot tablo biz tıklayana kadar güncellenmeyecektir. Çözümlemek > Yenile manuel olarak. Pivot tablo başka bir çalışma sayfasında kalırsa ve onu yenilemeyi unutabilirsiniz. Burada, bu makale Excel'de bir pivot tabloyu otomatik olarak yenilemek için bir VBA tanıtacaktır.

Bir Pivot Tabloyu VBA ile otomatik olarak yenileme


Bir Pivot Tabloyu VBA ile otomatik olarak yenileme

Excel'de belirtilen pivot tabloyu otomatik olarak yenilemek amacıyla VBA'yı uygulamak için lütfen aşağıdaki adımları izleyin.

1. Sayfa sekme çubuğunda, kaynak verileri içeren sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünde. Ekran görüntüsüne bakın:

2. Açılışta Uygulamalar için Microsoft Visual Basic penceresinde lütfen kodu yapıştırın.

VBA: Belirtilen pivot tabloyu otomatik yenile

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

Notlar:
(1) Çalışma Sayfaları kodunda ("sayfa adı") .PivotTables ("Özet Tablo adı") .PivotCache.Refresh, lütfen değiştirin sayfa adı belirtilen pivot tabloyu içeren sayfanın adıyla ve Özet Tablo adı belirtilen pivot tablonun adıyla.
(2) Belirtilen pivot tablodaki herhangi bir hücreyi seçin, adını Çözümlemek sekme (veya Opsiyonlar sekmesi). Ekran görüntüsüne bakın:

3. Kodu kaydedin.

Şu andan itibaren, kaynak verilerdeki verileri değiştirdiğinizde, belirtilen pivot tablo otomatik olarak yenilenecektir.

Birden çok çalışma sayfasını / çalışma kitabını / CSV dosyasını tek bir çalışma sayfasına / çalışma kitabına kolayca birleştirin

Farklı çalışma kitaplarından düzinelerce sayfayı tek bir sayfada birleştirmek yorucu olabilir. Ancak Kutools for Excel's ile Birleştir (çalışma sayfaları ve çalışma kitapları) yardımcı program, sadece birkaç tıklama ile halledebilirsiniz!


reklam birleştirme sayfaları kitaplar 1

İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations