Preskoči na glavno vsebino

Kako ustvariti dinamični seznam imen delovnih listov v Excelu?

Če imate v delovnem zvezku več listov in želite ustvariti dinamičen seznam vseh imen listov v novem listu v delovnem zvezku, kako lahko to storite? Zdaj ta vadnica predstavlja nekaj trikov za hitro izvedbo te naloge v Excelu.

Ustvarite dinamični seznam imen delovnih listov z Define Name in Formula

Ustvarite dinamični seznam imen delovnih listov s kodo VBA

Ustvarite dinamičen seznam imen delovnih listov s programom Kutools za Excel dobra ideja3

Z Kutools za Excel prikažite dinamični seznam imen delovnih listov dobra ideja3


1. Izberite celico na praznem listu, tukaj izberem A1 in nato kliknite Formule > Določite ime. glej posnetek zaslona:
doc-dinamični-seznam-imen-delovnega lista-1

2. Nato v Novo ime pogovorno okno, tip Listi v Ime besedilno polje (lahko spremenite po potrebi) in vnesite to formulo = NAMESTA (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") v polje Se nanaša na besedilo. Oglejte si posnetek zaslona:
doc-dinamični-seznam-imen-delovnega lista-2

3. klik OK. Pomaknite se do izbrane celice (A1) in vnesite to formulo = INDEX (Sheets, ROWS ($ A $ 1: $ A1)) (A1 je celica, ki jo vnesete v to formulo, "Sheets" je ime, ki ste jo določili v 2. koraku), nato povlecite ročico za samodejno izpolnjevanje navzdol do #REF! se prikaže.
doc-dinamični-seznam-imen-delovnega lista-3

Nasvet: Če so delovni listi odstranjeni ali dodani, pojdite na A1 in pritisnite tipko Enter ter nato znova krpajte ročico za samodejno izpolnjevanje.
doc-dinamični-seznam-imen-delovnega lista-4


Če želite ustvariti dinamični seznam imen delovnih listov, ki se lahko povežejo na posamezen list, lahko uporabite kodo VBA.

1. Ustvarite nov delovni list in ga preimenujte v Indeks. Oglejte si posnetek zaslona:

doc-dinamični-seznam-imen-delovnega lista-5       doc-dinamični-seznam-imen-delovnega lista-6

2. Z desno miškino tipko kliknite ime lista Index, izberite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
doc-dinamični-seznam-imen-delovnega lista-7

3. V pojavno okno kopirajte in prilepite pod kodo VBA vanj.

VBA: Ustvarite dinamični seznam imen delovnih listov.

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. klik Run or F5 za zagon VBA je zdaj ustvarjen dinamičen seznam imen delovnih listov.
doc-dinamični-seznam-imen-delovnega lista-8

Nasvet:

1. Ko je delovni list delovnega zvezka izbrisan ali vstavljen, se seznam imen delovnih listov samodejno spremeni.

2. Če želite odpreti list, lahko kliknete ime lista na seznamu imen.

Z zgornjima dvema načinoma ni dovolj udobno, če vas zanima nova pripomoček, lahko nadaljujete z naslednjima dvema načinoma, ki bosta to nalogo olajšali.


 Če želite samo hitro našteti vsa imena delovnih listov v delovnem zvezku in jih povezati z izvirnimi listi, lahko uporabite Kutools za ExcelJe Ustvari seznam imen listov.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Delovni list > Ustvari seznam imen listov. Oglejte si posnetek zaslona:

doc ime dinamičnega delovnega lista 17

2. V Ljubljani Ustvari seznam imen listov pogovorno okno:

 doc seznam dinamičnih delovnih listov 2
(1) Preverite slog indeksa, ki ga potrebujete Slogi indeksa listov odsek;
(2) Poimenujte novi indeksni list z vnosom podatkov Navedite ime lista za Sheet Index besedilno polje;
(3) Določite mesto, kamor boste dodali kazalo dodali v Vstavite indeks listov v seznam;
(4) Če želite prikazati imena listov na enem seznamu, izberite 1 stolpec v Prikaz indeksa listov v seznam.

3. klik Ok. Zdaj lahko vidite, da so navedena imena listov.
doc kutools ustvari seznam listov 3

Nasvet:

1. Kliknite ime lista, da se hitro premaknete na njegov prvotni list.

2. Imena seznamov ali listov se ne morejo dinamično spreminjati z vstavljanjem ali brisanjem listov.

3. Pravzaprav lahko ustvarite tudi seznam gumbov za povezavo relativnega lista, samo preverite Vsebuje gumbe in makre v pogovornem oknu. glej Screeshshot:
doc kutools ustvari seznam listov 4

Kliknite tukaj, če želite izvedeti več o ustvarjanju seznama imen listov.


Če ste s Kutools za Excel, lahko uporabite tudi ostalo pripomoček za prikaz povezanih imen delovnih listov v podoknu

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools > ostalo. Kliknite Delovni zvezek in list Če želite prikazati delovni zvezek in delovni list, lahko izberete delovni zvezek, nato se bodo njegovi delovni listi prikazali v ostalo podokno. Oglejte si posnetek zaslona:
navigacijsko podokno doc 1   

Nasvet:

Ko so izbrisani ali dodani delovni listi, lahko kliknete gumb za osvežitev navigacijsko podokno doc 2 v Navigacijan podokno za osvežitev imen delovnih listov.

Kliknite tukaj za več informacij o navigaciji.

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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