Bir çalışma kitabındaki tüm pivot tabloları nasıl listelersiniz?
Diyelim ki içinde birden fazla pivot tablo bulunan büyük bir çalışma kitabınız var ve şimdi bu çalışma kitabındaki tüm pivot tabloları listelemek istiyorsunuz, bunu yapmak mümkün mü? Elbette, bu makaledeki aşağıdaki VBA kodu size yardımcı olacaktır. Daha fazla ayrıntı için lütfen aşağıdaki makaleyi okuyun.
VBA kodu ile bir çalışma kitabındaki tüm pivot tabloları listeleme
VBA kodu ile bir çalışma kitabındaki tüm pivot tabloları listeleme
Aşağıdaki VBA kodu, tüm pivot tablo adlarını kaynak veri aralığı, çalışma sayfası adı, yenilenme tarihi gibi nitelikleriyle birlikte listelemenize yardımcı olabilir.
1. Tüm pivot tabloları listelemek istediğiniz çalışma kitabınızı açın.
2. ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.
3. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Bir çalışma kitabındaki tüm pivot tabloları listeleme
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın, tüm pivot tablo adları, kaynak veri aralığı, çalışma sayfası adı ve diğer nitelikler aktif çalışma sayfanızın önüne yerleştirilen yeni bir çalışma sayfasında aşağıdaki ekran görüntüsünde gösterildiği gibi listelenir.
İlgili makaleler:
Bir çalışma kitabında pivot tablo olup olmadığını nasıl kontrol edebilirim?
Pivot tabloya birden fazla alan nasıl eklenir?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin