Ինչպե՞ս ավտոմատ կերպով ստեղծել բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար:
Ենթադրենք, որ դուք ունեք աշխատանքային գրքույկ, որը պարունակում է հարյուրավոր աշխատաթերթեր, մի քանի թերթերի միջև որոշակի թերթիկ անցնելը կարող է գլխացավանք առաջացնել մեզանից շատերի համար: Այս դեպքում, այս աշխատաթերթերի բովանդակության աղյուսակ ստեղծելը կարող է օգնել ձեզ արագ և հեշտությամբ անցնել որոշակի թերթիկ: Այս ձեռնարկը կխոսի այն մասին, թե ինչպես ստեղծել բովանդակության աղյուսակ բոլոր թերթերի համար և ինքնաբերաբար թարմացնել աղյուսակը թերթերի անունները տեղադրելիս, ջնջելիս կամ փոխելիս նույնպես:
Ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար ավտոմատ կերպով բանաձևերով
Ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար ավտոմատ կերպով VBA կոդով
Հզոր հատկանիշով ավտոմատ կերպով ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար
Ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար ավտոմատ կերպով բանաձևերով
Excel-ում կարող եք ստեղծել բովանդակության աղյուսակ՝ սահմանելով տիրույթի անուն և հղում անելով անվանմանը բանաձևով, խնդրում ենք կատարել հետևյալ քայլերը.
1. Տեղադրեք նոր թերթ բոլոր թերթերից առաջ, որտեղ ցանկանում եք ստեղծել բովանդակության աղյուսակը և վերանվանեք այն ըստ անհրաժեշտության:
2, Դրանից հետո կտտացրեք Ֆորմուլա > Սահմանեք անունը, տես նկարի նկարը.
3, Մեջ Նոր անուն երկխոսության տուփ, նշեք անունը Թերթաթերթիկ մեջ Անուն վանդակում, կարող եք փոխել այն ձեր սեփականը, այնուհետև մուտքագրեք այս բանաձևը. = GET.WORKBOOK (1) & T (ՀԻՄԱ ()) մեջ Վերաբերում է տեքստային տուփ, տես նկարի նկարը.
4, Դրանից հետո կտտացրեք OK երկխոսության տուփը փակելու կոճակը:
5. Այժմ, խնդրում ենք գնալ նոր թերթ, որտեղ ցանկանում եք ստեղծել բովանդակության աղյուսակ, այնուհետև դատարկ բջիջ մուտքագրեք հետևյալ բանաձևը.
6. Եվ այնուհետև քաշեք լրացման բռնակը ներքև մինչև բջիջները, մինչև հայտնվեն դատարկ բջիջները, և ընթացիկ աշխատանքային գրքի բոլոր թերթերի անունները (ներառյալ թաքնված թերթերը) թվարկվեն ստորև ներկայացված սքրինշոթում.
7. Այնուհետև դուք պետք է ստեղծեք հիպերհղումներ աղյուսակի բովանդակության համար, խնդրում ենք օգտագործել հետևյալ բանաձևը.
8. Այժմ հիպերհղման տեքստը սեղմելիս այն միանգամից կգնա այդ թերթիկ։ Եվ եթե տեղադրեք նոր թերթ, ջնջեք թերթիկը կամ փոխեք թերթի անունը, աղյուսակի բովանդակությունը կթարմացվի ավտոմատ կերպով:
- 1. Այս մեթոդով բոլոր թաքնված թերթերը ցուցադրվում են նաև աղյուսակի բովանդակության մեջ:
- 2. Դուք պետք է ֆայլը պահեք որպես Excel մակրոներով աշխատունակ գիրք ձևաչափով, այս կերպ, երբ հաջորդ անգամ բացեք այս ֆայլը, բանաձևերը կարող են լավ աշխատել:
Ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար ավտոմատ կերպով VBA կոդով
Երբեմն, դուք պետք չէ ցուցադրել թաքնված թերթերը աղյուսակի բովանդակության մեջ: Այս խնդիրը լուծելու համար հետեւյալ VBA կոդը կարող է ձեզ լավություն անել։
1. Տեղադրեք նոր թերթ բոլոր թերթերից առաջ, որտեղ ցանկանում եք ստեղծել բովանդակության աղյուսակը և վերանվանեք այն ըստ անհրաժեշտության: Այնուհետև աջ սեղմեք թերթի ներդիրին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից տե՛ս նկարը.
2, Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհան, պատճենեք և տեղադրեք ստորև բերված կոդը թերթի կոդի պատուհանում.
VBA կոդ. Ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար ավտոմատ կերպով
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3, Հետո, սեղմեք F5 այս կոդը գործարկելու բանալին, և աղյուսակի բովանդակությունը միանգամից ստեղծվում է նոր աշխատաթերթում, բոլոր թաքնված թերթերը չեն ցուցադրվի աղյուսակի բովանդակության մեջ, տես սքրինշոթը.
4. Այսուհետ թերթը ջնջելիս, տեղադրելիս կամ վերանվանելիս աղյուսակի բովանդակությունը դինամիկ կերպով կթարմացվի:
Հզոր հատկանիշով ավտոմատ կերպով ստեղծեք բովանդակության աղյուսակ բոլոր թերթերի և թարմացումների համար
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ, նրա Նավիգացիոն վահանակ կարող է օգնել ձեզ ցուցակագրել բոլոր թերթերի անունները ձախ վահանակի մեջ ուղղահայաց և արագ և հեշտությամբ նավարկել դեպի կոնկրետ թերթ:
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ
1. Սեղմել Կուտոլս > նավարկություն, տես նկարի նկարը.
2, Ընդլայնվածում նավարկություն վահանակ, սեղմեք Աշխատանքային տետր և թերթ պատկերակը, բոլոր բացված աշխատանքային գրքերը նշված են վերևի ցուցակի վանդակում, և աշխատանքային գրքի բոլոր տեսանելի թերթերը ցուցադրվում են ներքևի ցանկի վանդակում, տես սքրինշոթը.
3. Եվ հիմա, դուք կարող եք գնալ թերթիկ, պարզապես սեղմելով թերթի անունը ձախ պատուհանից: Եվ երբ ջնջեք, տեղադրեք կամ վերանվանեք թերթը, վահանակի թերթերի ցանկը դինամիկ կերպով կթարմացվի:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: