Procházení mnoha listů ve velkém sešitu aplikace Excel může být těžkopádné, zvláště když potřebujete rychlý přehled o všech dostupných listech. Tento článek se zabývá čtyřmi praktickými metodami, jak vypsat všechny názvy listů v sešitu, což zvýší vaši produktivitu a organizaci sešitu.

Vypište všechny názvy listů v sešitu

• Použití kopírování a vkládání (ručně)
• Použití Kutools pro Excel (snadné, názvy listů lze propojit)
• Použití rozsahu názvů (seznam v novém listu)
• Používání VBA (nestabilní)

Vypište všechny názvy listů v sešitu

Tento výukový program představuje čtyři efektivní metody pro výpis všech listů v sešitu. Vyberte přístup, který nejlépe vyhovuje vašim potřebám, a postupujte podle pokynů krok za krokem, abyste úkol splnili efektivně.

Použití kopírování a vkládání (ručně)

Nejjednodušší způsob, jak vypsat všechny názvy listů, zahrnuje ruční proces:

Krok 1: Otevřete nový sešit

Krok 2: Dvakrát klikněte na záložku listu, který chcete zkopírovat

Krok 3: Stisknutím kláves Ctrl + C zkopírujte název listu

Krok 4: Klikněte na buňku a stisknutím Ctrl + V vložte název listu

Krok 5: Opakováním výše uvedených kroků zkopírujte a vložte všechny názvy karet listů do sešitu jeden po druhém

Tato metoda funguje dobře pro několik názvů listů, ale s desítkami listů je časově náročná. U větších sešitů zvažte efektivnější metody popsané níže.

Použití Kutools pro Excel (snadné, názvy listů lze propojit)

Kutools pro Excel's Vytvořte seznam názvů listů vylepšuje Excel rychlým generováním propojeného seznamu názvů listů. Tato funkce automaticky vytváří hypertextové odkazy pro každý list, což umožňuje přímou navigaci jediným kliknutím – ideální pro správu velkých sešitů. Účinností a snadností překonává manuální metody Excelu.

klikněte Kutools Plus > Pracovní list > Vytvořte seznam názvů listů, v vyskakovacím dialogu zadejte nastavení:

1. Vyberte styly indexu;

2. Zadejte název nového listu, který bude obsahovat názvy listů;

3. Určete umístění nového listu;

4. Rozhodněte se, jak umístit názvy listů;

5. klikněte OK.

   

Poté můžete tento nový list zkopírovat do nového sešitu tak, že kliknete pravým tlačítkem na záložku listu az kontextové nabídky zvolíte Přesunout nebo Kopírovat.

Pro rychlé prohlížení a snadnou navigaci mezi listy, Kutools pro Excel Navigační panel je vysoce efektivní. Nejenže uvádí všechny názvy listů jako klikací odkazy pro snadný přístup, ale také zobrazuje všechny otevřené sešity, což umožňuje rychlé přepínání mezi nimi.

Použití rozsahu názvů (seznam v novém listu)

V Excelu můžete efektivně vypsat všechny názvy listů v novém listu vytvořením pojmenované oblasti.

Krok 1: Klikněte na Vzorce > Definovat název

Krok 2: Upravte název a vzorec v dialogovém okně Nový název

• Příjmení: zadejte název pro rozsah názvů

• Odkazuje na: zkopírujte a vložte do něj níže uvedený vzorec

  =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

• klikněte OK.

  

Krok 3: Použití vzorce k výpisu názvů listů

Zadejte níže uvedený vzorec do buňky a stiskněte vstoupit klíč k získání všech názvů listů.

=TRANSPOSE(ListNames)

ListNames je název, který zadáte pro rozsah názvů v kroku výše.

Používání VBA (nestabilní)

Pokročilejší a přizpůsobitelný způsob zahrnuje psaní skriptu VBA pro extrahování a seznam názvů listů:

Krok 1: Otevřete sešit, u kterého chcete uvést názvy listů

Krok 2: Stisknutím kláves Alt + F11 otevřete okno Microsoft Visual Basic for Applications

Krok 3: Klikněte na Vložit modul

Krok 4: Zkopírujte a vložte níže uvedený kód do modulu

Sub ListSheetNamesInNewWorkbook()
'UpdatebyExtendoffice
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' Reference the current workbook
    Set wbSource = ActiveWorkbook
    
    ' Create a new workbook
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    
    ' List all sheet names from the active workbook in the new workbook
    For i = 1 To wbSource.Sheets.Count
        wsTarget.Cells(i, 1).Value = wbSource.Sheets(i).Name
    Next i
    
    ' Cleanup
    Set wbSource = Nothing
    Set wbTarget = Nothing
    Set wsTarget = Nothing
End Sub

Krok 5: Stisknutím klávesy F5 nebo kliknutím na tlačítko Spustit spusťte kód

Nyní se otevře nový sešit se seznamem všech názvů listů.

Každá metoda nabízí různé výhody v závislosti na vašich potřebách – od jednoduchého ručního výpisu až po sofistikovanější řešení, jako je Kutools nebo VBA. Vyberte si ten, který nejlépe vyhovuje vašemu pracovnímu postupu, abyste mohli efektivně spravovat a procházet listy aplikace Excel. Další tipy a triky pro Excel najdete!sledujte náš blog.