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 geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!