Bir çalışma kitabındaki tüm pivot tabloları nasıl listeleyebilirim?
Birden çok pivot tablo içeren büyük bir çalışma kitabınız olduğunu varsayarsak, şimdi bu çalışma kitabındaki tüm pivot tabloları listelemek istiyorsunuz, bu mümkün mü? Elbette bu makaledeki aşağıdaki VBA kodu size bir iyilik yapacaktır. Daha fazla ayrıntı öğrenmek için lütfen aşağıdaki makaleyi okuyun.
VBA koduyla bir çalışma kitabındaki tüm pivot tabloları listeleyin
VBA koduyla bir çalışma kitabındaki tüm pivot tabloları listeleyin
Aşağıdaki VBA kodu, tüm pivot tablo adlarını, kaynak veri aralığı, çalışma sayfası adı, yenilenme tarihi gibi öznitelikleriyle birlikte listelemenize yardımcı olabilir.
1. Tüm pivot tabloları listelemek istediğiniz çalışma kitabınızı açın.
2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.
3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Bir çalışma kitabındaki tüm pivot tabloları listeleyin
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, tüm pivot tablo adları, kaynak veri aralığı, çalışma sayfası adı ve diğer öznitelikler, aşağıda gösterilen ekran görüntüsü gibi etkin çalışma sayfanızın önüne yerleştirilen yeni bir çalışma sayfasında listelenir:
İlgili yazılar:
Bir çalışma kitabında bir pivot tablonun olup olmadığını nasıl kontrol edebilirim?
Pivot tabloya birden çok alan nasıl eklenir?
En İyi Ofis Üretkenlik Araçları
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...
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!