Nacházíte se: WALL.cz › Excel návod › Seznam listů v excelovském souboru
Kategorie: Excel návod

Seznam listů v excelovském souboru

ExcelPokud pracujete s excelovským souborem, který má mnoho listů, pak je navigace mezi listy velmi nešikovná a těžkopádná. Je několik cest, jak takovou situaci řešit.

Hned na prvním místě musím uvést, že je dobré udržovat v excelovském sešitu co nejméně listů a tím takovému stavu předejít. Někdy to však v praxi nejde a proto mám pro vás několik tipů, jak si navigaci v takovém sešitu vylepšit.

Pro rychlou navigaci mezi listy můžete použít klávesové zkratky Ctrl-PgDown a Ctrl-PgUp.

Pokud vám klávesové zkratky nevyhovují, tak pravým tlačítkem klikněte na Tlačítka pro pohyb mezi listy. Zobrazí se pop-up okno se seznamem prvních 15 listů. Zde se můžete kliknutím přepnout na požadovaný list.

Seznam listů v excelovském souboru

Pokud máte v sešitu více jak 15 listů, stačí kliknout na poslední položku v seznamu Další listy .... Zobrazí se okno s kompletním seznamem listů. Zde pak také stačí vybrat list a tlačítkem OK potvrdit aktivaci listu.

Seznam listů v excelovském souboru

Další možnost je vložit do prvního nebo do všech listů VBA kód, který při aktivaci listu do buněk ve sloupci A vypíše navigaci. Pomocí této navigace se můžete přepínat mezi všemi listy. Pokud vložíte VBA kód jen do prvního listu, navigace je vypsána jen do tohoto listu a do ostatních listů je do buňky A1 vložen odkaz na navigaci v prvním listě.

Seznam listů v excelovském souboru

Private Sub Worksheet_Activate() 'Navigace listů Dim wSheet As Worksheet Dim i As Long i = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "SEZNAM" .Cells(1, 1).Name = "Seznam" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then i = i + 1 With wSheet .Range("A1").Name = "List_" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _ SubAddress:="Index", TextToDisplay:="Návrat na Seznam" End With Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", _ SubAddress:="List_" & wSheet.Index, TextToDisplay:="'" & wSheet.Name End If Next wSheet End Sub

Soubor s příkladem si můžete stáhnout zde.

Autor: icon admin
Vydáno: 5.5.2009 19:20
Přečteno: 37024x

print Formát pro tisk

Sdílet článek:

Komentáře rss

Přidat komentář >
lhotka2, - (18.4.2018 9:35) odpovědět
avatar
Funguje i v Office 2016. Mnohokráte děkuji.citovat
Rosta-Tomes, chyba v kódu (19.3.2012 13:56) odpovědět
avatar
V kódu je drobná chybka. Buňka A1 prvního listu má vytvořený název Seznam. Ale program do buňky A1 druhého a dalšího listu vkládá link na pojmenovaný blok Index. Má tam správně být Seznam, tedy SubAddress:="Seznam", TextToDisplay:="Návrat na Seznam"citovat
kmosan, - (29.10.2010 15:14) odpovědět
avatar
Ahoj, pokud vlozim dany vzorec pod moduly, tak mi to nefunguje. Vyskakuje mi chyba hlavne na ME. Kdyz to ale vlozim do listu tak to jede. Dikycitovat
norino, Navigácia na Listy (27.10.2010 16:08) odpovědět
avatar
Pokiaľ by sa predošlé zdalo niekomu komplikované nech použije Zoznam listov a postupne prilinkuje "PREPOJENIE" buď cez ikonu alebo CTRL+K. Potom si zvolte tlačítkom obsah Listov --> "Záložky" a potvrďte.
Na každý ďalší list si potom dajte rovnaký odkaz "Späť" na prvý list (napr. do A1).
Odkaz môžete prilinkovať na ľubovolnú bunku a ľubovolný text. Veľmi užitočná pomôcka pre rýchlu navigáciu po zošite v E2003 aj E2007.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje