Gan dybio, mae gennych lyfr gwaith gyda nifer o daflenni gwaith, nawr rydych chi am restru'r holl enwau dalennau yn y llyfr gwaith cyfredol, a oes unrhyw ddull cyflym ar gyfer creu rhestr o enwau taflenni traethodau ymchwil yn Excel heb eu teipio fesul un? Mae'r tiwtorial hwn yn rhoi cyfarwyddiadau ar sut i restru enwau taflenni gwaith yn Excel.

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith yn ddeinamig gyda fformwlâu

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith sydd â nodwedd ddefnyddiol

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith gyda chod VBA

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith yn ddeinamig gyda fformwlâu

Yn Excel, gallwch ddiffinio enw amrediad, ac yna defnyddio fformiwla i restru'r holl enwau dalennau o'r llyfr gwaith cyfredol, gwnewch y camau canlynol:

1. Ewch i glicio Fformiwla > Rheolwr Enw, gweler y screenshot:

2. Yn y Rheolwr Enw blwch deialog, cliciwch Nghastell Newydd Emlyn botwm, gweler y screenshot:

3. Yn y popped allan Enw Newydd deialog, nodwch enw i mewn i'r Enw blwch testun, ac yna copïwch y fformiwla isod i'r Yn cyfeirio at blwch testun, gweler y screenshot:

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

4. Yna cliciwch OK > Cau i gau'r blychau deialog, nawr, ewch i ddalen lle rydych chi am restru'r holl enwau dalennau, ac yna nodi'r fformiwla ganlynol mewn cell wag:

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

Nodyn: Yn y fformiwla uchod, Enwau dalennau yw'r enw amrediad rydych chi'n cael eich cribo yng ngham 3.

5. Ac yna llusgwch yr handlen llenwi i lawr i'r celloedd pan fydd celloedd gwag yn cael eu harddangos, ac yn awr, mae holl enwau dalennau'r llyfr gwaith cyfredol wedi'u rhestru fel isod y llun a ddangosir:

6. Os ydych chi am greu'r hyperddolen ar gyfer pob dalen, defnyddiwch y fformiwla isod:

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

Nodyn: Yn y fformiwla uchod, A2 yw'r gell sy'n cynnwys enw'r ddalen, a A1 yw'r gell lle rydych chi am i'r gell weithredol gael ei lleoli. Er enghraifft, os cliciwch y testun hyperddolen, bydd yn dod o hyd i gell A1 y ddalen.

7. Nawr, pan gliciwch y testun hyperddolen, bydd yn mynd â chi i'r ddalen honno, gweler isod demo:

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith sydd â nodwedd ddefnyddiol

Efo'r Creu Rhestr o Enwau Dalennau cyfleustodau ychwanegiad trydydd parti Kutools ar gyfer Excel, gallwch greu rhestr o enwau taflenni gwaith mewn un clic, a chysylltu â phob taflen waith gyda hyperddolen.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Taflen Waith > Creu Rhestr o Enwau Dalennau, gweler y screenshot:

2. Yn y Creu Rhestr o Enwau Dalennau blwch deialog, nodwch y gosodiadau canlynol:

(1.) Dewis arddulliau mynegai dalennau rydych chi'n hoffi, gallwch chi greu'r enwau taflen waith gyda hypergysylltiadau neu gyda botymau macro. (2.) Rhowch enwau'r daflen waith ar gyfer mynegai dalennau. (3.) Nodwch leoliad mynegai y daflen waith. (4.) Nodwch faint o golofnau rydych chi am eu defnyddio yn y daflen waith newydd i arddangos enwau'r daflen waith.

3. Ar ôl gorffen y gosodiadau, yna cliciwch OK. Rhestrwyd holl enwau'r daflen waith gyda dolenni mewn taflen waith newydd o'r llyfr gwaith cyfredol. Gweler y screenshot:

enwau taflenni gwaith gyda hypergysylltiadau	enwau taflenni gwaith gyda botymau macro

Sicrhewch restr o holl enwau'r daflen waith o lyfr gwaith gyda chod VBA

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.

VBA: Rhestrwch holl enwau'r daflen waith gyda hypergysylltiadau mewn taflen waith newydd:

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. Gwasgwch y F5 allwedd i redeg y macro hwn. Nawr mae holl enwau'r taflenni gwaith yn y llyfr gwaith gweithredol wedi'u rhestru mewn taflen waith newydd o'r enw Mynegai, ac mae enwau'r taflenni wedi'u cysylltu â phob dalen hefyd, gweler y sgrinlun:

Erthyglau perthnasol