Sut i greu tabl cynnwys ar gyfer pob dalen a diweddariad yn awtomatig?
Gan dybio, mae gennych lyfr gwaith sy'n cynnwys cannoedd o daflenni gwaith, i lywio i ddalen benodol ymhlith taflenni lluosog a allai achosi cur pen i'r rhan fwyaf ohonom. Yn yr achos hwn, gallai creu tabl cynnwys ar gyfer y taflenni gwaith hyn eich helpu i fynd i'r daflen benodol yn gyflym ac yn hawdd. Bydd y tiwtorial hwn yn siarad am sut i greu tabl cynnwys ar gyfer pob dalen a diweddaru'r tabl yn awtomatig wrth fewnosod, dileu neu newid enwau'r dalennau hefyd.
Creu tabl cynnwys ar gyfer pob dalen a diweddariadau yn awtomatig gyda fformiwlâu
Creu tabl cynnwys ar gyfer yr holl daflenni a diweddariadau yn awtomatig gyda chod VBA
Creu tabl cynnwys ar gyfer pob dalen a diweddariad yn awtomatig gyda nodwedd bwerus
Creu tabl cynnwys ar gyfer pob dalen a diweddariadau yn awtomatig gyda fformiwlâu
Yn Excel, gallwch greu tabl cynnwys trwy ddiffinio enw ystod, a chyfeirio at yr enw mewn fformiwla, gwnewch y camau canlynol:
1. Mewnosodwch ddalen newydd cyn pob dalen lle rydych chi am greu'r tabl cynnwys a'i ailenwi yn ôl yr angen.
2. Yna, cliciwch Fformiwla > Diffinio Enw, gweler y screenshot:
3. Yn y Enw Newydd blwch deialog, nodwch enw Rhestr ddalen i mewn i'r Enw blwch, gallwch ei newid i'ch un chi, ac yna rhowch y fformiwla hon: = GET.WORKBOOK (1) & T (NAWR ()) i mewn i'r Yn cyfeirio at blwch testun, gweler y screenshot:
4. Yna, cliciwch OK botwm i gau'r blwch deialog.
5. Nawr, ewch i'r ddalen newydd lle rydych chi am greu tabl cynnwys, ac yna rhowch y fformiwla ganlynol i mewn i gell wag:
6. Ac yna llusgwch yr handlen llenwi i lawr i'r celloedd nes bod celloedd gwag yn cael eu harddangos, ac mae holl enwau'r dalennau (gan gynnwys y dalennau cudd) yn y llyfr gwaith cyfredol wedi'u rhestru fel y sgrinlun isod:
7. Yna, dylech greu hyperddolenni ar gyfer cynnwys y tabl, defnyddiwch y fformiwla isod:
8. Nawr, wrth glicio ar y testun hyperddolen, bydd yn mynd i'r ddalen honno ar unwaith. Ac os ydych chi'n mewnosod dalen newydd, yn dileu dalen neu'n newid enw'r ddalen, bydd cynnwys y tabl yn cael ei ddiweddaru'n awtomatig.
- 1. Gyda'r dull hwn, mae'r holl daflenni cudd yn cael eu harddangos i gynnwys y tabl hefyd.
- 2. Dylech gadw'r ffeil fel Llyfr Gwaith Macro-alluogedig Excel fformat, yn y modd hwn, pan fyddwch yn agor y ffeil hon y tro nesaf, gall y fformiwlâu weithio'n dda.
Creu tabl cynnwys ar gyfer yr holl daflenni a diweddariadau yn awtomatig gyda chod VBA
Weithiau, nid oes angen i chi arddangos y dalennau cudd yng nghynnwys y tabl. I ddatrys y broblem hon, gall y cod VBA canlynol wneud ffafr i chi.
1. Mewnosodwch ddalen newydd cyn pob dalen lle rydych chi am greu'r tabl cynnwys a'i ailenwi yn ôl yr angen. Yna, de-gliciwch ar y tab taflen, a dewis Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:
2. Yn yr agored Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod isod i ffenestr y cod dalen:
Cod VBA: Creu tabl cynnwys ar gyfer yr holl daflenni a diweddariadau yn awtomatig
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. Yna, pwyswch F5 allweddol i redeg y cod hwn, ac mae cynnwys y tabl yn cael ei greu ar unwaith yn y daflen waith newydd, ni fydd yr holl daflenni cudd yn arddangos yng nghynnwys y tabl, gweler y sgrinlun:
4. Ffurflen nawr ymlaen, wrth ddileu, mewnosod neu ailenwi'r ddalen, bydd cynnwys y tabl yn cael ei ddiweddaru'n ddeinamig.
Creu tabl cynnwys ar gyfer pob dalen a diweddariad yn awtomatig gyda nodwedd bwerus
Os oes gennych Kutools ar gyfer Excel, ei Panelau mordwyo yn gallu eich helpu i restru holl enwau'r dalennau mewn cwarel chwith yn fertigol, a llywio i'r ddalen benodol yn gyflym ac yn hawdd.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:
1. Cliciwch Kutools > Llywio, gweler y screenshot:
2. Yn yr estynedig Llywio pane, cliciwch Llyfr Gwaith a Thaflen eicon, mae'r holl lyfrau gwaith a agorwyd wedi'u rhestru yn y blwch rhestr uchaf, ac mae'r holl daflenni gweladwy yn y llyfr gwaith yn cael eu harddangos yn y blwch rhestr waelod, gweler y sgrinlun:
3. Ac yn awr, gallwch chi fynd i'r ddalen dim ond trwy glicio ar enw'r ddalen o'r cwarel chwith. A phan fyddwch chi'n dileu, mewnosod neu ailenwi dalen, bydd y rhestr dalennau yn y cwarel yn cael ei diweddaru'n ddeinamig.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
