Ենթադրելով, որ դուք ունեք աշխատանքային գրքույկ `բազմաթիվ աշխատանքային թերթերով, այժմ ցանկանում եք ցուցակի բոլոր անունները ցուցակագրել ընթացիկ աշխատանքային գրքում, կա՞ արդյոք որևէ արագ մեթոդ` Excel- ում այդ թեզերի թերթիկների անունների ցուցակ ստեղծելու համար `առանց դրանք հատ առ հատ մուտքագրելու: Այս ձեռնարկը տալիս է հրահանգներ Excel- ում աշխատաթերթի անունները ցուցակագրելու վերաբերյալ:

Ստացեք աշխատանքային գրքի բոլոր աշխատաթերթերի անունների ցուցակը դինամիկորեն ՝ բանաձևերով

Օգտակար հատկություն ունեցող աշխատանքային գրքից ստացեք աշխատաթերթի բոլոր անունների ցուցակը

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

Ստացեք աշխատանքային գրքի բոլոր աշխատաթերթերի անունների ցուցակը դինամիկորեն ՝ բանաձևերով

Excel- ում կարող եք սահմանել տիրույթի անուն, այնուհետև կիրառել բանաձև `ներկայիս աշխատանքային գրքից բոլոր թերթիկների անունները ցուցակելու համար, խնդրում ենք անել հետևյալ քայլերով.

1, Գնալ կտտացնելու համար Ֆորմուլա > Անունը կառավարիչ, տես նկարի նկարը.

2, Մեջ Անունը կառավարիչ երկխոսության վանդակում, սեղմեք նոր կոճակը, տես նկարի նկարը.

3, Դուրս ցցված Նոր անուն երկխոսություն, նշեք անունը ՝ Անուն տեքստային տուփ և այնուհետև պատճենեք ներքևի բանաձևը Վերաբերում է տեքստային տուփ, տես նկարի նկարը.

=GET.WORKBOOK(1)&T(NOW())

4. Այնուհետեւ կտտացրեք OK > փակել երկխոսության տուփերը փակելու համար այժմ խնդրում ենք անցնել մի թերթիկ, որտեղ ցանկանում եք ցուցակագրել բոլոր թերթիկների անունները, ապա մուտքագրել հետևյալ բանաձևը դատարկ բջիջում.

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

ՆշումՎերոհիշյալ բանաձևում Թերթերի անվանումներ այն միջակայքի անունն է, որը դուք ներկայացնում եք 3-րդ քայլում:

5, Եվ հետո լրացրեք բռնիչը ներքև քաշեք դեպի բջիջները, երբ ցուցադրվում են դատարկ բջիջներ, և այժմ, ընթացիկ աշխատանքային գրքի բոլոր թերթիկների անունները նշված են, ինչպես ցույց է տրված ստորև նշված նկարը.

6, Եթե ​​ցանկանում եք ստեղծել յուրաքանչյուր թերթի համար գերհղումը, օգտագործեք ստորև բերված բանաձևը.

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

ՆշումՎերոհիշյալ բանաձևում A2 այն բջիջն է, որը պարունակում է թերթի անունը, և A1 այն բջիջն է, որտեղ ցանկանում եք, որ տեղակայված լինի ակտիվ բջիջը: Օրինակ, եթե կտտացնում եք hyperlink տեքստը, այն կգտնի թերթի A1 բջիջը:

7, Այժմ, երբ կտտացնում եք hyperlink տեքստը, այն ձեզ կտանի դեպի այդ թերթիկը, տե՛ս ստորև ցուցադրումը.

Օգտակար հատկություն ունեցող աշխատանքային գրքից ստացեք աշխատաթերթի բոլոր անունների ցուցակը

Հետ Ստեղծեք թերթիկների անունների ցուցակ երրորդ կողմի հավելվածի օգտակարություն Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք մեկ կտտոցով ստեղծել աշխատաթերթի անունների ցուցակ և հղել դեպի յուրաքանչյուր աշխատանքային թերթ հիպերհղումով:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1. Սեղմել Kutools Plus > Աշխատանքային թերթիկ > Ստեղծեք թերթիկների անունների ցուցակ, տես նկարի նկարը.

2, Մեջ Ստեղծեք թերթիկների անունների ցուցակ երկխոսության տուփ, խնդրում ենք նշել հետևյալ կարգավորումները.

(1.) Ընտրեք թերթի ինդեքսի ոճերը Ձեզ դուր է գալիս, դուք կարող եք ստեղծել աշխատանքային թերթի անվանումներ գերհղումներով կամ մակրո կոճակներով: (2.) Մուտքագրեք թերթի ինդեքսի աշխատանքային թերթի անունները: (3.) Նշեք աշխատանքային թերթի ինդեքսի գտնվելու վայրը: (4.) Նշեք, թե որքան սյունակ եք ուզում օգտագործել նոր աշխատաթերթում `աշխատանքային թերթի անունները ցուցադրելու համար:

3. Պարամետրերն ավարտելուց հետո կտտացրեք OK, Բոլոր աշխատաթերթերի անունները նշված են ընթացիկ աշխատանքային գրքի նոր աշխատանքային թերթի հղումներով: Տեսեք,

աշխատանքային թերթի անուններ հիպերհղումներով	աշխատաթերթի անվանումներ մակրո կոճակներով

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

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

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:

VBA. Թվարկեք բոլոր աշխատաթերթերի անունները հիպղ հղումներով նոր աշխատանքային թերթում.

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Սեղմեք F5 բանալին այս մակրո գործարկելու համար: Այժմ ակտիվ աշխատանքային գրքում բոլոր աշխատաթերթերի անունները թվարկվել են նոր աշխատաթերթում, որը կոչվում է Index, և թերթերի անունները նույնպես կապված են յուրաքանչյուր թերթի հետ, տես սքրինշոթը.

Առնչվող հոդվածներ