Salt la conținutul principal

Cum se creează o listă dinamică a numelor foilor de lucru în Excel?

Dacă aveți mai multe foi într-un registru de lucru și doriți să creați o listă dinamică a tuturor numelor de foi într-o nouă foaie din registrul de lucru, cum puteți face? Acum, acest tutorial introduce câteva trucuri pentru a finaliza rapid această misiune în Excel.

Creați o listă dinamică a numelor foilor de lucru cu Definiți numele și formula

Creați o listă dinamică a numelor foilor de lucru cu cod VBA

Creați o listă dinamică a numelor foilor de lucru cu Kutools pentru Excel idee bună3

Afișați o listă dinamică a numelor foilor de lucru cu Kutools pentru Excel idee bună3


1. Selectați o celulă dintr-o foaie goală, aici selectez A1, apoi faceți clic pe Formule > Definiți numele. vezi captura de ecran:
doc-dynamic-worksheetname-list-1

2. Apoi în Nume nou dialog, tastați Asternuturi în Nume si Prenume textbox (puteți schimba după cum aveți nevoie) și introduceți această formulă = SUBSTITUT (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") în caseta Se referă la text. Vedeți captura de ecran:
doc-dynamic-worksheetname-list-2

3. clic OK. Mergeți la celula selectată (A1) și tastați această formulă = INDEX (Foi, Rânduri ($ A $ 1: $ A1)) (A1 este celula pe care o tastați această formulă, „Foi” este numele pe care l-ați definit la pasul 2) în ea, apoi trageți mânerul de completare automată în jos până la #REF! apare.
doc-dynamic-worksheetname-list-3

varful: Dacă există foi de lucru eliminate sau adăugate, trebuie să mergeți la A1 și să apăsați tasta Enter, apoi cârpați din nou mânerul de completare automată.
doc-dynamic-worksheetname-list-4


Dacă doriți să creați o listă dinamică a numelor foilor de lucru care se pot lega la fiecare foaie, puteți utiliza codul VBA.

1. Creați o nouă foaie de lucru și redenumiți-o ca Index. Vedeți captura de ecran:

doc-dynamic-worksheetname-list-5       doc-dynamic-worksheetname-list-6

2. Faceți clic dreapta pe numele foii Index, selectați Afișați codul din meniul contextual. Vedeți captura de ecran:
doc-dynamic-worksheetname-list-7

3. În fereastra popping, copiați și lipiți sub codul VBA în ea.

VBA: Creați o listă dinamică a numelor foilor de lucru.

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. clic Alerga or F5 pentru a rula VBA, acum este creată o listă dinamică cu numele foilor de lucru.
doc-dynamic-worksheetname-list-8

Sfat:

1. Când foaia de lucru a registrului de lucru este ștearsă sau inserată, lista numelor foii de lucru se va schimba automat.

2. Puteți face clic pe numele foii din lista de nume pentru a merge la foaie.

Cu mai sus, două metode nu sunt suficient de convenabile, dacă sunteți interesat de un nou utilitar, puteți continua următoarele două metode, care pot face această sarcină mai ușoară.


 Dacă doriți doar să enumerați rapid toate numele foilor de lucru ale registrului de lucru și să le legați la foile originale, puteți utiliza Kutools pentru Excel'S Creați o listă de nume de foi.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Fisa de lucru > Creați o listă de nume de foi. Vedeți captura de ecran:

doc foaie de lucru dinamică nume 17

2. În Creați o listă de nume de foi dialog:

 lista de nume de foi de lucru dinamic doc 2
(1) Verificați stilul indexului de care aveți nevoie Stiluri de index de foi secțiune;
(2) Denumiți noua foaie de index cu introducerea datelor în Specificați numele foii pentru Indexul foilor casetă de text;
(3) Specificați locația în care veți plasa foaia de index adăugată în Introduceți indexul foii în listă;
(4) Dacă doriți să afișați numele foilor într-o singură listă, selectați 1 coloană în Afișarea indexului de foi în listă.

3. clic Ok. Acum puteți vedea numele listelor.
doc kutools creează lista de foi 3

Sfat:

1. Puteți face clic pe numele foii pentru a trece rapid la foaia originală.

2. Lista sau numele foilor nu se pot schimba dinamic odată cu inserarea sau ștergerea foilor.

3. De fapt, puteți crea și o listă de butoane pentru a lega foaia relativă, trebuie doar să verificați Conține butoane și macrocomenzi în dialog. vezi screeshshot:
doc kutools creează lista de foi 4

Faceți clic aici pentru a afla mai multe despre Crearea listei de nume de foi.


Dacă tu Cu Kutools pentru Excel, puteți utiliza și Navigare utilitar pentru a afișa numele foilor de lucru care pot fi conectate într-un panou

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools > Navigare. Clic Caiet de lucru și foaie pentru a afișa registrul de lucru și foaia de lucru și puteți selecta un registru de lucru, apoi foile sale de lucru se vor afișa în Navigare panou. Vedeți captura de ecran:
panoul de navigare doc 1   

Sfat:

Când există foi de lucru șterse sau adăugate, puteți face clic pe butonul de actualizare panoul de navigare doc 2 în Navigațien panoul pentru a reîmprospăta numele foilor de lucru.

Faceți clic aici pentru mai multe informații despre navigare.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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