Conas gach tábla pivot a liostáil ó leabhar oibre?

Má tá leabhar mór oibre agat ina bhfuil iliomad táblaí pivot, anois, ba mhaith leat na táblaí pivot uile sa leabhar oibre seo a liostáil, an féidir? Ar ndóigh, is fearr leat an cód VBA seo a leanas san alt seo. Chun níos mó sonraí a fháil, léigh an t-alt thíos le do thoil.

Liostaigh gach tábla pivot ó leabhar oibre le cód VBA

Liostaigh gach tábla pivot ó leabhar oibre le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat na hainmneacha tábla pivot go léir a liostáil mar aon lena dtréithe, mar shampla raon sonraí foinse, ainm na bileoige oibre, dáta athnuachana agus mar sin de.

1. Oscail do leabhar oibre ar mhaith leat na táblaí pivot go léir a liostáil.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Liostaigh na táblaí pivot go léir ó leabhar oibre

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. Ansin brúigh F5 eochair chun an cód seo a rith, liostaítear na hainmneacha tábla pivot go léir, an raon sonraí foinse, ainm na bileoige oibre agus na tréithe eile i mbileog oibre nua a cuireadh os comhair do bhileog oibre ghníomhaigh mar a leanas an pictiúr a thaispeántar:

Earraí gaolmhara:

Conas a sheiceáil an bhfuil tábla pivot ann i leabhar oibre?

Conas ilréimsí a chur le tábla pivot?