Note: The other languages of the website are Google-translated. Back to English

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

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

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

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

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

doc-list-all-pivottable-1


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

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

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


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (20)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ բաներ: Կարող է ներառել այս հատվածը՝ առանցքային աղյուսակի անունը հիպերհղում դարձնելու համար: .Cells(I, 1).Parent.Hyperlinks.Add Anchor:=.Cells(I, 1) _ , Address:="" _ , SubAddress:="'" + St.Name + "'!" + Split(pt.TableRange1.Address, ":")(0) _ , TextToDisplay:=pt.Name With .Cells(I, 7).Տառատեսակ .ColorIndex = xlAutomatic .Underline = xlUnderlineStyleNone ավարտվում է .Cells-ով(I, 7).Նիշեր(Սկիզբ՝=1, երկարություն՝=Len(pt.Name)).Տառատեսակ .Ընդգծել = xlUnderlineStyleSingle .Գույն = -4165632 Ավարտել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ЖАЛь что не работиет, наверное изза того что я не могу нормально разбить на строки и возможно изза новых переменных которые не объявлены. Не могли бы слелать код более читабельным (разбить на строки и переменные).
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
գերազանց. շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հսկայական գտածո էր ինձ համար: Երանի երեք օր առաջ փնտրեի այս լուծումը: Դա ինձ ժամեր կխնայի!! Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է շտկեի մի ֆայլ, որն ուներ ավելի քան 60 առանցքային աղյուսակներ: Ի սկզբանե կտտացրել եմ յուրաքանչյուրը մեկ-մեկ շտկելու համար (ինչպես լինում է այն դեպքերի համար, երբ ինչ-որ մեկը «անջատում է» դրանք, բայց ես չկարողացա շտկել բոլոր սխալները: Այն գտավ վերջինը մի քանի սյունակների վրա, որոնք թաքնված էին բնօրինակի վրա): Հաճելի կոդի կտոր!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձել եմ սա գործարկել excel 2013-ում և ստանում եմ Run-time error «1004»՝ Application-defined or Object-Defined Error: Եթե ​​մեկնաբանեք .Cells(I, 2).Value = pt.SourceData գիծը, այն լավ կաշխատի, կարո՞ղ եք ինձ խորհուրդ տալ, թե ինչ պետք է անեմ SourceData մասը գործարկելու համար: Շնորհակալություն Ռոս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես փորձել եմ սա գործարկել excel 2013-ում և ստացել եմ «1004» «Գործարկման ժամանակի» սխալը՝ հավելվածի կողմից սահմանված կամ օբյեկտի կողմից սահմանված սխալ: Եթե ​​մեկնաբանեք .Cells(I, 2).Value = pt.SourceData գիծը, այն լավ կաշխատի, կարո՞ղ եք ինձ խորհուրդ տալ, թե ինչ պետք է անեմ SourceData մասը գործարկելու համար: Շնորհակալություն ՌոսՌոսի կողմից[/quote] Ես ստացա նույն սխալը: Կարծում եմ՝ ռմբակոծություն է, երբ առանցքային աղյուսակի աղբյուրը Excel տվյալների մոդելն է և օգտագործվում է PowerPivot-ի կողմից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սրա համար: Դա հիանալի կոդ է, շատ օգտակար: Ինչպես մյուսները հրապարակել են, ես կարծում եմ, որ այն չի աշխատում առանցքային աղյուսակների համար, որոնց հիմքում ընկած տվյալների աղբյուրը հիմնված է Միայն միացման տվյալների հարցման վրա: Ես ունեմ աշխատանքային գիրք մեկ տվյալների աղյուսակով: Հետագայում ես ստեղծում եմ աշխատանքային գրքույկի տվյալների ավելի հստակ հարցումներ՝ հիմնվելով այս մեկ աղյուսակի տվյալների վրա: Հարցումները միայն կապ են (խուսափելով աշխատանքային գրքույկի չափի ավելորդ ավելացումից): Այնուհետև ես ստեղծեցի առանցքային աղյուսակներ, որոնք հիմնվում են աշխատանքային գրքույկի հարցումների տվյալների վրա: Երբ ես գործարկում եմ կոդը, այն լավ է աշխատում ավանդական աղբյուրներով առանցքային աղյուսակների համար, բայց գործարկման ժամանակի սխալ է տեղի ունենում, երբ այն հասնում է առանցքային աղյուսակներին՝ հիմնված աշխատանքային գրքույկի հարցումների տվյալների վրա: Կոնկրետ; այն տալիս է Run-time error «1004». Կոդի տողը, որտեղ տեղի է ունենում սխալը, հետևյալն է.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ հզոր։ Շատ շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Միայն միացման տեղեկատվության համար Տվյալների միացման տվյալները PivotCache-ի սեփականությունն է
Ես ունեմ աշխատանքային գրքույկ, որն ունի ավելի քան 40 առանցքային աղյուսակներ Excel աղյուսակների և SQL սերվերի տվյալների միացումների խառնուրդով: Ես օգտագործում եմ հետևյալ կոդը՝ դրանց հետևելու համար


Sub GetPivotTableInfo()

Dim wb Որպես աշխատանքային գրքույկ
Dim pvt Որպես առանցքային աղյուսակ
Dim wsheet As Worksheet
Պղտորել համակարգիչը որպես PivotCache

Սահմանել wb = ActiveWorkbook
Յուրաքանչյուր wsheet-ի համար wb.Worksheets-ում
Յուրաքանչյուր pvt-ի համար wsheet.PivotTables-ում
Debug.Print wsheet.Name & ": " & pvt.Name
Set pc = wb.PivotCaches (pvt.CacheIndex)
Եթե ​​pc.SourceType = xlDatabase Այնուհետեւ
Debug.Print pc.SourceData
Ուրիշ
Եթե ​​pc.QueryType = xlOLEDBQuery Այնուհետեւ
Debug.Print pc.Connection
Debug.Print pc.SourceConnectionFile
Debug.Print pc.WorkbookConnection.Name
Debug.Print pc.CommandText
Վերջ: Եթե
Վերջ: Եթե


Հաջորդ pvt
Հաջորդ թերթիկը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փրկեց ինձ մեծ գլխացավանքից։
Չհաջողվեց գտնել, թե որ առանցքային աղյուսակն է առաջացնում «Թարմացնել բոլորի սխալը»
Բում Նշված է վայրերով, շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Զարմանալի!!! thksss!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հրաշալի է! Ես փնտրում էի այսպիսի ծածկագիր, բայց յուրաքանչյուր աղյուսակում բոլոր ակտիվ դաշտերը ցուցադրելու հավելումով: Ես պետք է մաքրեմ սկզբնաղբյուրների աղյուսակները ավելորդ դաշտերից (չափազանց ծանր) և դրանք կերակրում են ավելի քան 300 առանցքների գիրք: Ես կնախընտրեի չգնալ մեկ առանցքային աղյուսակ՝ պարզելու, թե որ դաշտերը կարող եմ վերացնել... Եթե կարողանայիք ինձ ցույց տալ, թե ինչպես, դա անհավանական կլիներ... Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն գրառման համար, ես մի փոքր մաքրեցի կոդը՝ սահմանելով I-ը և Long-ը և ջնջելով ref-ը K-ում, քանի որ այն չէր օգտագործվում: Վերջապես ես մի տող ավելացրի հենց ձեր ներքևում .Ակտիվացրեք ցույց տալու համար .Columns.AutoFit
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇԱՏ հարմար է մի պտղունց ունենալու համար: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա հրաշալի է.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հսկայական օգնություն, ինձ խնայեց տոննա ժամանակ՝ հետևելու աշխատանքային գրքույկի մի շարք նույնանուն առանցքային աղյուսակներից մեկին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
գործարկման ժամանակի սխալ 1004
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կատարյալ տեղավորվել!! Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցավոք, ես բազմաթիվ սխալներ եմ ստանում, սա միանգամայն հիանալի կլիներ իմ բազմաբնույթ ներդիրներով, բազմակողմանի աշխատանքային գրքույկների համար
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից