Cum se listează toate tabelele pivot dintr-un registru de lucru?

Presupunând că aveți un registru de lucru mare care conține mai multe tabele pivot, acum doriți să enumerați toate tabelele pivot din acest registru de lucru, este posibil? Desigur, următorul cod VBA din acest articol vă va face o favoare. Pentru a afla mai multe detalii, vă rugăm să citiți articolul de mai jos.

Enumerați toate tabelele pivot dintr-un registru de lucru cu cod VBA

Enumerați toate tabelele pivot dintr-un registru de lucru cu cod VBA

Următorul cod VBA vă poate ajuta să listați toate numele tabelelor pivot împreună cu atributele lor, cum ar fi intervalul de date sursă, numele foii de lucru, data actualizată și așa mai departe.

1. Deschideți registrul de lucru pe care doriți să-l listați toate tabelele pivot.

2. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

3. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: enumeră toate tabelele pivot dintr-un registru de lucru

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. Apoi apăsați F5 tasta pentru a rula acest cod, toate numele tabelului pivot, intervalul de date sursă, numele foii de lucru și alte atribute sunt listate într-o nouă foaie de lucru care este plasată în partea din față a foii de lucru active, după cum se arată în următoarea captură de ecran:

Legate de articole:

Cum să verificați dacă există un tabel pivot într-un registru de lucru?

Cum se adaugă mai multe câmpuri în tabelul pivot?