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ů

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

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

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

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.

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

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

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

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru 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 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. zmáčkni F5 klávesu ke spuštění tohoto makra. Nyní byly všechny názvy listů v aktivním sešitu uvedeny v novém listu s názvem Index a názvy listů jsou také propojeny s každým listem, viz snímek obrazovky:

Související články