Note: The other languages of the website are Google-translated. Back to English

Jak vytvořit seznam všech názvů listů ze sešitu?

Předpokládejme, že máte sešit s více listy, nyní chcete vypsat všechny názvy listů v aktuálním sešitu, existuje nějaká rychlá metoda pro vytvoření seznamu názvů těchto listů v aplikaci Excel, aniž byste je museli psát jeden po druhém? Tento kurz poskytuje pokyny, jak vypsat názvy listů v aplikaci Excel.


Získejte seznam všech názvů listů ze sešitu dynamicky pomocí vzorců

V aplikaci Excel můžete definovat název rozsahu a poté použít vzorec na seznam všech názvů listů z aktuálního sešitu, proveďte následující kroky:

1. Přejít na kliknutí Vzorec > Správce jmen, viz screenshot:

2. V Správce jmen , klepněte na tlačítko OK Nový tlačítko, viz screenshot:

3. Ve vyskočené Nové jméno dialogové okno, zadejte název do Jméno a Příjmení textové pole a poté zkopírujte následující vzorec do pole Odkazuje na textové pole, viz screenshot:

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

4. Pak klikněte na tlačítko OK > zavřít Chcete-li zavřít dialogová okna, přejděte prosím na list, na kterém chcete zobrazit seznam všech názvů listů, a do následující buňky zadejte následující vzorec:

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

Poznámka: Ve výše uvedeném vzorci, Názvy listů je název rozsahu, na který jste se dostali v kroku 3.

5. A poté přetáhněte popisovač výplně dolů do buněk, když jsou zobrazeny prázdné buňky, a nyní jsou všechny názvy listů aktuálního sešitu uvedeny jako níže zobrazený snímek obrazovky:

6. Chcete-li vytvořit hypertextový odkaz pro každý list, použijte následující vzorec:

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

Poznámka: Ve výše uvedeném vzorci, A2 je buňka, která obsahuje název listu, a A1 je buňka, ve které chcete umístit aktivní buňku. Například pokud kliknete na text hypertextového odkazu, vyhledá buňku A1 listu.

7. Nyní, když kliknete na text hypertextového odkazu, dostanete se na tento list, viz níže ukázka:

Poznámky:
  • 1. U výše uvedených vzorců jsou vytvořené názvy listů uvedeny dynamicky. Když změníte název listu v sešitu, název indexového listu se automaticky aktualizuje.
  • 2. Soubor byste měli uložit jako Sešit se zvýšeným makra Excel formát, pokud chcete, aby vzorce fungovaly dobře i po uzavření a opětovném otevření souboru.

Získejte seznam všech názvů listů ze sešitu s kódem VBA

Následující dva kódy VBA vám pomohou vypsat všechny názvy listů v novém listu. Udělejte prosím toto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. klikněte Vložit > Modula vložte následující kód do Modul Okno.

VBA: Seznam všech názvů listů s hypertextovými odkazy v novém listu:

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 Obnovit další listy ("Index"). Odstranit při chybě GoTo 0 Nastavit xShtIndex = Sheets.Add (listy (1)) xShtIndex.Name = "Index" I = 1 buňky (1, 1) .Value = "INDEX" pro každý xSht v ThisWorkbook.Sheets If xSht.Name <> "Index" Pak I = I + 1 xShtIndex. Hyperlinks.Add Cells (I, 1), "", "'" & xSht.Name & "'! A1",, xSht.Name End If Next Application.DisplayAlerts = xAlerts End Sub

2. Pak stiskněte tlačítko F5 klíč ke spuštění kódu a všechny názvy listů v aktivním sešitu byly uvedeny do nového listu s názvem indexa názvy listů jsou propojeny také s každým listem, viz screenshot:


Získejte seznam všech názvů listů ze sešitu s užitečnou funkcí

S Vytvořte seznam názvů listů užitečnost doplňku třetí strany Kutools pro Excel, můžete jedním kliknutím vytvořit seznam názvů listů a propojit je pomocí hypertextového odkazu na každý list.

Poznámka:Použít toto Vytvořte seznam názvů listůNejprve byste si měli stáhnout soubor Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. klikněte Kutools Plus > Pracovní list > Vytvořte seznam názvů listů, viz screenshot:

2. V Vytvořte seznam názvů listů V dialogovém okně zadejte následující nastavení:

(1.) Vyberte styly indexů listů můžete vytvořit názvy listů pomocí hypertextových odkazů nebo pomocí tlačítek maker.

(2.) Zadejte názvy listů pro index listu.

(3.) Určete umístění indexu listu.

(4.) Určete, kolik sloupců chcete v novém listu použít k zobrazení názvů listů.

Klikněte a stáhněte si zdarma zkušební verzi Kutools pro Excel!

3. Po dokončení nastavení klikněte na OK. Všechny názvy listů byly uvedeny s odkazy v novém listu aktuálního sešitu. Viz snímek obrazovky:

názvy listů s hypertextovými odkazy názvy listů s tlačítky maker

Klikněte a stáhněte si zdarma zkušební verzi Kutools pro Excel!


Více relativních článků:

  • Seznam všech názvů souborů ve složce a vytvoření hypertextových odkazů pro ně
  • Pro každodenní práci možná budete muset importovat více názvů souborů ze složky do listu a vytvořit hypertextové odkazy pro každý soubor, aby se soubor rychle a snadno otevřel. Možná můžete zkopírovat a vložit názvy souborů a vytvořit hypertextový odkaz jeden po druhém ručně, ale to bude ztrácet mnoho času, pokud jsou ve složce stovky souborů.
  • Zkopírujte nebo přesuňte soubory z jedné složky do druhé na základě seznamu
  • Pokud máte seznam názvů souborů ve sloupci v listu a soubory se nacházejí ve složce ve vašem počítači. Ale teď musíte přesunout nebo zkopírovat tyto soubory, jejichž názvy jsou uvedeny v listu z jejich původní složky do jiné, jak je znázorněno na následujícím obrázku. Jak byste mohli tento úkol dokončit co nejrychleji v aplikaci Excel?
  • Procházejte mezi pracovními listy pomocí rozevíracího seznamu
  • Předpokládejme, že máte sešit, který obsahuje více listů, nyní musíte vytvořit rozevírací seznam nebo rozbalovací seznam se seznamem všech názvů listů a když vyberete jeden název listu z rozevíracího seznamu, okamžitě na něj přeskočí. V tomto článku představím, jak procházet mezi listy pomocí rozevíracího seznamu v aplikaci Excel.

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (18)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Skvělé – ale jak to udělám ve Visiu, tj. pro index pracovních listů ve Visiu?
Tento komentář byl moderátorem webu minimalizován
Jak vypsat Sheetname dílčí WB a vypsat je v hlavní WB?
Tento komentář byl moderátorem webu minimalizován
Krok 'Range' v makru ListWorkSheetNames generuje chybu běhu 1004: rozsah metody globálního objektu selhal. Mám to uložené v modulu PERSONAL.XLSB, běží z tabulky s podporou maker v Office10. co mi chybí? Sub ListWorkSheetNames() For i = 1 To Sheets.Count Range(”A” & i) = Sheets(i).Name Next i End Sub
Tento komentář byl moderátorem webu minimalizován
nejlépe to fungovalo jako kouzlo
Tento komentář byl moderátorem webu minimalizován
je to skvělé jako kouzlo
Tento komentář byl moderátorem webu minimalizován
Kód VBA funguje dobře a šetří čas, díky toooooooooooooooooooooooooooooooooo moc
Tento komentář byl moderátorem webu minimalizován
Ahoj, chtěl bych vědět, jak v tomto makru uvést barvu karty vedle názvu karty? Např. v seznamu listů KutoolsforExcel: Sloupec A Sloupec B Název_tabulky1 Žlutá
Tento komentář byl moderátorem webu minimalizován
DĚKUJI MNOHOKRÁT! Strašně se mi líbí tvůj web. Během několika minut jsem ušetřil spoustu času se dvěma sekcemi tohoto webu, včetně této. Miluji to!
Tento komentář byl moderátorem webu minimalizován
moc užitečné, funguje podle očekávání!!!!! dík
Tento komentář byl moderátorem webu minimalizován
Funguje skvěle!! Děkuji!!!!
Tento komentář byl moderátorem webu minimalizován
Díky moc, tohle fungovalo skvěle.
Tento komentář byl moderátorem webu minimalizován
Způsobuje problémy, když je ochrana dokumentů povolena e-mailem nebo firemními zásadami
Tento komentář byl moderátorem webu minimalizován
BRILANTNÍ!! Děkuji mnohokrát! 😊
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem tento a funguje to. Ale když zavřu a znovu otevřu soubor, všechny hodnoty v názvech mých listů jsou prázdné a pryč, ale vzorec je stále tam. Zkoušel jsem zadat stejný vzorec znovu, ale již nezobrazuje hodnotu
Tento komentář byl moderátorem webu minimalizován
Zavřu a otevřu dokument a všechny hodnoty ve sloupci s názvy listů jsou všechny pryč a prázdné, ale vzorec tam stále je. Zkoušel jsem zadat stejný vzorec, ale již nezobrazuje hodnotu
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Anne,
Omlouvám se za pozdní odpověď, po vytvoření názvů rozsahů a vzorců byste měli sešit uložit jako Sešit se zvýšeným makra Excel formátu, takže příště, když otevřete soubor Excel, mohou vzorce fungovat dobře.
Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Ahoj,

je viens de tester la methode přes makra (dynamique avec formule) a ça marche au poil donc je tiens vraiment à remercier l'auteur de cet article parce que ça va vraiment m'aider dans mon travail ! Juste, je me permet de corriger les formulales pour la version française. Et alors je ne sais pas si c'est parce que je suis sous la version 2019 mais Excel rouspète quand il n'y a pas d'argument en 3ème position de la fonction STXT ("MID" en version anglaise) donc obligé d' en rajouter un. Donc voilà ce que ça donne :

=LIRE.CLASSEUR(1)&T(MAINTENANT())

=SIERREUR(INDEX(STXT(nomsFeuilles;TROUVE("]";nomsFeuilles)+1,255;20);LIGNES($A$2:A2));"")

Bon travail à tous ! ;-)
Tento komentář byl moderátorem webu minimalizován
Ahoj, Gizmile
Děkujeme za váš komentář, některé funkce jsou v Excelu dostupné pouze pro angličtinu.
Vaše receptura může pomoci ostatním.
Ještě jednou díky!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění