Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ցուցակում բոլոր աղյուսակների անունները թվարկել Excel- ում:

Աշխատանքային գրքում բոլոր աղյուսակների անունները ցուցակելու համար, այս հոդվածի մեթոդները կօգնեն ձեզ անցնել այն:

Նշեք բոլոր աղյուսակների անունները Անունների վանդակում
Թվարկեք աղյուսակի բոլոր անունները բանաձևի բարում
Նշեք բոլոր աղյուսակների անունները VBA կոդով


Նշեք բոլոր աղյուսակների անունները Անունների վանդակում

Բոլոր աղյուսակների անունները լռելյայն նշված են Անունների տուփում:

Կտտացրեք ներքևի ցուցակի սլաքը վերևի ձախ անկյունում Անունը Box ցուցանակների բոլոր անունները ցուցադրելու համար: Տեսեք,

ՆշումԲոլոր տատանվող անունները նշված են նաև Անունների տուփում ՝ բոլոր աղյուսակների անուններով:


Թվարկեք աղյուսակի բոլոր անունները բանաձևի բարում

Եթե ​​բոլոր սեղաններն անվանվել են սեղանի բնօրինակ անունով, ինչպիսիք են Table1, Table2, ապա կարող եք փորձել այս բոլոր աղյուսակների անունները թվարկել Formula Bar- ում:

1. Մուտքագրեք բանաձևը =ROW(T մեջ բանաձևի բար, այնուհետև բոլոր աղյուսակների անունները նշված են ցուցակի վանդակում, ինչպես ցույց է տրված նկարում:

ՆշումՓոփոխված աղյուսակների անունները նշված չեն այս մեթոդով:


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

Եթե ​​ձեր աշխատանքային գրքում կան նախնական աղյուսակի անուն և փոփոխված սեղանի անուն: Կարող եք դրանք միանգամից թվարկել հետևյալ VBA կոդով:

1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:

VBA կոդ. Excel- ում ցուցակի բոլոր աղյուսակների անունները:

Sub ListTables()
'Updated by Extendoffice 20180503
    Dim xTable As ListObject
    Dim xSheet As Worksheet
    Dim I As Long
    I = -1
    Sheets.Add.Name = "Table Name"
    For Each xSheet In Worksheets
        For Each xTable In xSheet.ListObjects
            I = I + 1
            Sheets("Table Name").Range("A1").Offset(I).Value = xTable.Name
        Next xTable
    Next
End Sub

3. Սեղմեք F5 կոճակը գործելու համար սեղմեք կամ սեղմեք Run կոճակը:

Այնուհետև ստեղծվում է նոր աղյուսակ, որը կոչվում է Աղյուսակի անուն, բոլոր աղյուսակների անուններով, որոնք թվարկված են ստորև բերված նկարում.


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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks so much for sharing this information. Just what I was looking for. In fact, I want to abuse of your favor. How can I get the headings of the tables? Something like this Table1[Heading1] Thanks
This comment was minimized by the moderator on the site
Thanks a lot for VBA to list all tables in a workbook.
This comment was minimized by the moderator on the site
Thank you for this very useful post.
I have been wondering why is my Custom view greyed out, and I figured out it was due to an inserted table ! (not obvious)
This comment was minimized by the moderator on the site
Using the ListTables VB, is there a way to also include the tableNumber in the corresponding column ?
The reason I ask is because there have been some errors reported by Excel referring to the table numbers but I don't have visibility of the numbers anymore since I change the table names to something more descriptive but as Excel still uses the original table numbers in its error reporting, it's impossible for me to identify which of the many tables it had an issue with.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations