Skip i'r prif gynnwys

Sut i greu rhestr ddeinamig o enwau taflenni gwaith yn Excel?

Os oes gennych sawl taflen mewn llyfr gwaith, a'ch bod am greu rhestr ddeinamig o'r holl enwau dalennau ar ddalen newydd yn y llyfr gwaith, sut allwch chi wneud? Nawr mae'r tiwtorial hwn yn cyflwyno rhai triciau i gyflawni'r genhadaeth hon yn Excel yn gyflym.

Creu rhestr ddeinamig o enwau taflenni gwaith gyda Diffinio Enw a Fformiwla

Creu rhestr ddeinamig o enwau taflenni gwaith gyda chod VBA

Creu rhestr ddeinamig o enwau taflenni gwaith gyda Kutools ar gyfer Excel syniad da3

Arddangos rhestr ddeinamig o enwau taflenni gwaith gyda Kutools ar gyfer Excel syniad da3


1. Dewiswch gell mewn dalen wag, dyma fi'n dewis A1, ac yna cliciwch Fformiwlâu > Diffinio Enw. gweler y screenshot:
doc-deinamig-taflen waith-rhestr-1

2. Yna yn y Enw Newydd dialog, math Taflenni i mewn i'r Enw blwch testun (gallwch newid yn ôl yr angen), a theipio'r fformiwla hon = SYLWEDD (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") i mewn i'r blwch Cyfeiriadau i destun. Gweler y screenshot:
doc-deinamig-taflen waith-rhestr-2

3. Cliciwch OK. Ewch i'r gell a ddewiswyd (A1) a theipiwch y fformiwla hon = MYNEGAI (Taflenni, ROWS ($ A $ 1: $ A1)) (A1 yw'r gell rydych chi'n teipio'r fformiwla hon, "Sheets" yw'r enw y gwnaethoch chi ei ddiffinio yng Ngham 2) i mewn iddi, yna llusgwch y handlen autofill i lawr tan #REF! yn ymddangos.
doc-deinamig-taflen waith-rhestr-3

Tip: Os oes taflenni gwaith wedi'u tynnu neu eu hychwanegu, mae angen i chi fynd i A1and pwyswch Enter key yna ragiwch y ddolen autofill eto.
doc-deinamig-taflen waith-rhestr-4


Os ydych chi am greu rhestr ddeinamig o enwau taflenni gwaith a all gysylltu â phob dalen, gallwch ddefnyddio cod VBA.

1. Creu taflen waith newydd a'i hail-enwi fel Mynegai. Gweler y screenshot:

doc-deinamig-taflen waith-rhestr-5       doc-deinamig-taflen waith-rhestr-6

2. Cliciwch ar y dde ar enw dalen Mynegai, dewiswch Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:
doc-deinamig-taflen waith-rhestr-7

3. Yn y ffenestr popio, copïwch a gludwch islaw cod VBA i mewn iddo.

VBA: Creu rhestr ddeinamig o enwau taflenni gwaith.

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4. Cliciwch Run or F5 i redeg y VBA, bellach mae rhestr ddeinamig o enwau taflenni gwaith yn cael ei chreu.
doc-deinamig-taflen waith-rhestr-8

Tip:

1. Pan fydd taflen waith y llyfr gwaith yn cael ei dileu neu ei mewnosod, bydd rhestr enwau'r daflen waith yn newid yn awtomatig.

2. Gallwch glicio ar enw dalen y rhestr enwau i fynd i'r ddalen.

Gyda'r uchod, nid yw'r ddau ddull yn ddigon argyhoeddiadol, os oes gennych ddiddordeb mewn cyfleustodau newydd, Gallwch fynd y ddau ddull nesaf a allai wneud y dasg hon yn haws.


 Os mai dim ond holl enwau taflenni gwaith y llyfr gwaith yr ydych am eu rhestru'n gyflym a'u cysylltu â'r taflenni gwreiddiol, gallwch eu defnyddio Kutools ar gyfer Excel'S Creu Rhestr o Enwau Dalennau.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

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

taflen waith ddeinamig doc 17

2. Yn y Creu Rhestr o Enwau Dalennau deialog:

 rhestr enw gwaith deinamig doc 2
(1) Gwiriwch yr arddull mynegai sydd ei angen arnoch chi Arddulliau Mynegai Dalennau adran;
(2) Enwch y ddalen fynegai newydd gyda theipio'r data i mewn Nodwch enw'r ddalen ar gyfer Mynegai Dalennau blwch testun;
(3) Nodwch y lleoliad y byddwch chi'n gosod y ddalen fynegai ychwanegol ynddo yn y Mewnosodwch y Mynegai Dalennau yn rhestr;
(4) Os ydych chi am arddangos enwau'r ddalen mewn un rhestr, dewiswch 1 golofn i mewn Arddangos Mynegai Dalennau i mewn rhestr.

3. Cliciwch Ok. Nawr gallwch weld bod enwau'r ddalen wedi'u rhestru.
mae doc kutools yn creu rhestr o daflenni 3

Awgrym:

1. Gallwch glicio ar enw'r ddalen i symud yn gyflym i'w ddalen wreiddiol.

2. Ni all enwau'r rhestr neu'r ddalen newid yn ddeinamig gyda'r taflenni'n mewnosod neu'n dileu.

3. Mewn gwirionedd, gallwch hefyd greu rhestr o botwm i gysylltu'r ddalen gymharol, dim ond gwirio Yn cynnwys Botymau a Macros yn y dialog. gweler y sgrinlun:
mae doc kutools yn creu rhestr o daflenni 4

Cliciwch yma i wybod mwy am Creu Rhestr o Enwau Dalennau.


Os ydych Gyda Kutools ar gyfer Excel, gallwch hefyd ddefnyddio'r Llywio cyfleustodau i arddangos enwau'r daflen waith y gellir eu cysylltu mewn cwarel

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Cliciwch Kutools > Llywio. Cliciwch Llyfr Gwaith a Thaflen i ddangos y llyfr gwaith a'r daflen waith, a gallwch ddewis llyfr gwaith, yna bydd ei daflenni gwaith yn arddangos yn y Llywio cwarel. Gweler y screenshot:
cwarel llywio doc 1   

Tip:

Pan fydd taflenni gwaith wedi'u dileu neu eu hychwanegu, gallwch glicio ar y botwm adnewyddu cwarel llywio doc 2 yn y Navigation cwarel i adnewyddu enwau'r daflen waith.

Cliciwch yma i gael mwy o wybodaeth am Llywio.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. Bv. een leeg tabblad. mijn andere werkbladen hebben allemaal dezelfde lay-out, maar in iedere cel een andere tekst. Nu zou ik graag in mijn leeg tabblad in Cel A1 de gegevens terugvinden van tabblad1 cel B3. Maar dan zou ik graag in Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. We kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk.

Merci voor den input.
This comment was minimized by the moderator on the site
Hi, I guess you want to list all same cells across multiple sheets, if so, there are two tutorials may help you. Please visit:
How to reference same cell from multiple worksheets in Excel?
How to create a list from same cells across multiple sheets in Excel?
Hope it is helpful.
This comment was minimized by the moderator on the site
Em português brasileiro, GET.WORKBOOK é identificado como uma função no Gerenciador de Nomes para criar o nome "Sheets", mas ao referenciar "Sheets" numa célula, aparece o erro "#NOME?". Tentei várias vezes, inclusive com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
This comment was minimized by the moderator on the site
Hi, try this: =SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
This comment was minimized by the moderator on the site
Thanks for this helpful info. I created a dynamic list with VBA code in the Index tab. I found that it only updates when I click back to the Index tab, though. Is there a way to ensure it auto updates as soon as a new tab is created? I refer to the tab names elsewhere in the workbook and others will be using it so I'm trying to make it seamless. Thank you!
This comment was minimized by the moderator on the site
Sorry, I do not find that code can finish your job.
This comment was minimized by the moderator on the site
Or you can simply rightClick either the left or right tab-horizontal-scroll arrow at the bottomLeft, and then click the worksheet name (from the simple vertical list) that you want to jump to.
This comment was minimized by the moderator on the site
Just what I needed and worked perfectly. Thank you!
This comment was minimized by the moderator on the site
Defining the name "Sheets" in the define name DOES NOT WORK. The "refers to" box will not save the formula as typed and converts it to a text string.
This comment was minimized by the moderator on the site
how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
This comment was minimized by the moderator on the site
Thank you. It is very useful. :D
This comment was minimized by the moderator on the site
How can i remove the links to each sheets and how to not include the "sheet1" and "Index" sheet? Private Sub Worksheet_Activate() 'Updateby20150305 Dim xSheet As Worksheet Dim xRow As Integer Dim calcState As Long Dim scrUpdateState As Long Application.ScreenUpdating = False xRow = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "INDEX" .Cells(1, 1).Name = "Index" End With For Each xSheet In Application.Worksheets If xSheet.Name Me.Name Then xRow = xRow + 1 With xSheet .Range("A1").Name = "Start_" & xSheet.Index .Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _ SubAddress: = "Index", TextToDisplay: = "Back to Index" End With Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _ SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name End If Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
How would I go about editing this code to include a checkbox to the left of the link that I could use to hide rows on a cover sheet? Also how could I insert a row on the worksheets below A1 to have the return to index link show up there?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations