Ինչպե՞ս թվարկել աշխատանքային գրքից բոլոր առանցքային աղյուսակները:

Ենթադրելով, որ դուք ունեք մի մեծ աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ առանցքային աղյուսակներ, այժմ դուք ցանկանում եք այս աշխատանքային գրքում թվարկել բոլոր առանցքային աղյուսակները, հնարավո՞ր է: Իհարկե, այս հոդվածում հետևյալ VBA կոդը ձեզ լավություն կպատճառի: Լրացուցիչ մանրամասներ իմանալու համար կարդացեք ստորև նշված հոդվածը:

Նշեք VBA կոդով աշխատանքային գրքից բոլոր առանցքային աղյուսակները

Նշեք VBA կոդով աշխատանքային գրքից բոլոր առանցքային աղյուսակները

Հաջորդ VBA կոդը կարող է օգնել ձեզ թվարկել առանցքային աղյուսակի բոլոր անունները դրանց հատկանիշների հետ միասին, ինչպիսիք են աղբյուրի տվյալների տիրույթը, աշխատաթերթի անունը, թարմացված ամսաթիվը և այլն:

1. Բացեք ձեր աշխատանքային գրքույկը, որը ցանկանում եք թվարկել բոլոր առանցքային աղյուսակները:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ: Աշխատանքային գրքից թվարկեք բոլոր առանցքային աղյուսակները

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, Դրանից հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնը, առանցքային աղյուսակի բոլոր անունները, աղբյուրի տվյալների տիրույթը, աշխատանքային թերթի անունը և այլ հատկանիշները նշված են նոր աշխատանքային թերթում, որը տեղադրված է ձեր ակտիվ աշխատանքային թերթի առջևում, ինչպես ցույց է տրված հետևյալ նկարը.

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ստուգել, ​​թե առանցքային աղյուսակ կա աշխատանքային գրքում:

Ինչպե՞ս մի քանի դաշտ ավելացնել առանցքային աղյուսակում: