Pokud má sešit aplikace Excel mnoho listů, abyste k nim měli rychlý přístup, můžete vytvořit seznam hypertextových odkazů na všechny listy. V tomto článku s vámi sdílíme 3 metody.
Pokud máte sešit aplikace Excel, který obsahuje velké množství listů, může být pro vás obtížné najít požadovaný list a získat k němu přístup. V tomto případě můžete vytvořit seznam hypertextových odkazů na všechny listy, které vám umožní přejít na konkrétní list jednoduše kliknutím na hypertextový odkaz. Je to docela pohodlné. Zde tedy představíme 3 způsoby, jak vytvořit takový seznam.
Metoda 1: Ručně vytvořit
- Pro začátek otevřete konkrétní sešit aplikace Excel.
- Poté vložte nový list před první list.
- Dále klikněte pravým tlačítkem na buňku A1 a v místní nabídce vyberte „Hypertextový odkaz“.
- Později v okně „Vložit hypertextový odkaz“ vyberte na levé straně možnost „Umístit do tohoto dokumentu“.
- Poté v seznamu „Nebo vyberte místo v tomto dokumentu“ vyberte první list kromě aktuálního nového listu.
- Poté změňte „Text k zobrazení“ na název listu.
- Nakonec vložte hypertextový odkaz kliknutím na „OK“.
- Nyní můžete vložit hypertextové odkazy na zbývající listy jeden po druhém.
Metoda 2: Vytvořit pomocí vzorce
- Nejprve vytvořte nový list.
- Poté vypište všechny názvy pracovních listů podle metody 2 v příspěvku „3 rychlé způsoby, jak získat seznam všech názvů listů v sešitu aplikace Excel".
- Později vložte následující vzorec do buňky C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Nakonec přetáhněte funkci dolů a získáte hypertextové odkazy na další listy.
Metoda 3: Vytváření pomocí VBA
- Nejprve spusťte editor Excel VBA odkazem na „Jak spustit kód VBA v aplikaci Excel".
- Poté vložte níže uvedený kód do projektu nebo modulu.
Sub CreateMenuOfHyperlinksToAllWorksheets()
Dim objSheet As Worksheet
ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)).Name = "Sheet Menu"
Range("A1").Select
For Each objSheet In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> objSheet.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & objSheet.Name & "'" & "!A1", TextToDisplay:=objSheet.Name
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireColumn.AutoFit
End If
Next objSheet
With ActiveSheet
.Rows(1).Insert
.Cells(1, 1) = "MENU"
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Font.Size = 14
.Cells(1, 1).Columns.AutoFit
End With
End Sub
- Dále spusťte toto makro stisknutím klávesy „F5“.
- Najednou uvidíte nový list, který obsahuje všechny hypertextové odkazy na všechny listy, například následující snímek obrazovky.
Porovnání
| Výhody | Nevýhody | |
| Metoda 1 | Snadná obsluha | Příliš zdlouhavé, pokud existuje příliš mnoho pracovních listů |
| Metoda 2 | Rychlejší než metoda 1 v případě více listů | Vyžaduje, abyste předem vypsali čísla a názvy listů |
| Metoda 3 | Mnohem rychlejší a efektivnější než výše uvedené 2 metody | Buďte opatrní vůči externím makrům, která mohou být škodlivá |
Obnovte poškozené soubory aplikace Excel
Excel může občas selhat, což může vést k poškození souboru aplikace Excel. Při změně souboru aplikace Excel tedy musíte být zvyklí na ukládání souboru pokaždé. V opačném případě, pokud dojde k chybě aplikace Excel, ale neuložili jste otevřený soubor, musíte se uchýlit xls opravit software, jako je DataNumen Excel Repair, abyste získali zpět poškozená data aplikace Excel.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com