Ինչպե՞ս թվարկել աշխատանքային գրքից բոլոր առանցքային աղյուսակները:
Ենթադրելով, որ դուք ունեք մի մեծ աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ առանցքային աղյուսակներ, այժմ դուք ցանկանում եք այս աշխատանքային գրքում թվարկել բոլոր առանցքային աղյուսակները, հնարավո՞ր է: Իհարկե, այս հոդվածում հետևյալ 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 Այս կոդը գործարկելու համար ստեղնը, առանցքային աղյուսակի բոլոր անունները, աղբյուրի տվյալների տիրույթը, աշխատանքային թերթի անունը և այլ հատկանիշները նշված են նոր աշխատանքային թերթում, որը տեղադրված է ձեր ակտիվ աշխատանքային թերթի առջևում, ինչպես ցույց է տրված հետևյալ նկարը.
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս ստուգել, թե առանցքային աղյուսակ կա աշխատանքային գրքում:
Ինչպե՞ս մի քանի դաշտ ավելացնել առանցքային աղյուսակում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
