Ahoj,
potřeboval bych poradit jak přidat do Excelu seznam následujících listů, kdy jsou názvy listů čísla začínající i nulou tak aby bylo každé číslo odkazem, který mi otevře daný list.
Děkuji
Martin N.
jak přidat do excelu seznam listů
Re: jak přidat do excelu seznam listů
Pokud se nepletu, tak odkaz musí mít vždy zadanou nějakou hodnotu kam má směřovat, například buňka, oblast, atd. Samozřjemě, že to může být i na jiném listu.
To co chceš ty, vzorec neumí (otevírat jiné listy), odkaz je obecně řečeno také vzorec.
Pokud chceš kliknutím na buňku otevřít příslušný list, tak to umí VBA.
Dodatečně přidáno po 33 minutách 29 vteřinách:
Beru zpět. Hypertextový odkaz to umí. Na něj jsem zapomněl ...
=HYPERTEXTOVÝ.ODKAZ("[Sešit1]List2!A1";"bla bla .. číslo listu List2")
Doplň si svůj název sešitu a listu.
To co chceš ty, vzorec neumí (otevírat jiné listy), odkaz je obecně řečeno také vzorec.
Pokud chceš kliknutím na buňku otevřít příslušný list, tak to umí VBA.
Dodatečně přidáno po 33 minutách 29 vteřinách:
Beru zpět. Hypertextový odkaz to umí. Na něj jsem zapomněl ...
=HYPERTEXTOVÝ.ODKAZ("[Sešit1]List2!A1";"bla bla .. číslo listu List2")
Doplň si svůj název sešitu a listu.
Re: jak přidat do excelu seznam listů
Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub
Re: jak přidat do excelu seznam listů
Něco je i ZDE
Re: jak přidat do excelu seznam listů
Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.
Re: jak přidat do excelu seznam listů
Grimm píše:Něco je i ZDE
Tohle jsem zkoušel a má to problém s názvem listu, který je číslo začínající nulou, jinak by to bylo super, ale nejsem zdatný v makrech, tak si nevím rady...
Dodatečně přidáno po 1 minutě 51 vteřinách:
MePExG píše:Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub
Děkuju, ale teď ještě jak to zadat, s makry zatím moc nekamarádím..
Dodatečně přidáno po 2 minutách :
atari píše:Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.
No to bych opravdu vypisovat nechtěl, tudíž je určitě makro nevyhnutelné.
Dodatečně přidáno po 17 minutách 45 vteřinách:
Vasmenx píše:Grimm píše:Něco je i ZDE
Tohle jsem zkoušel a má to problém s názvem listu, který je číslo začínající nulou, jinak by to bylo super, ale nejsem zdatný v makrech, tak si nevím rady...
Dodatečně přidáno po 1 minutě 51 vteřinách:MePExG píše:Makrom
Sub ZoznObsah()
pocit = 0
For Each List In Sheets
Range("A1").Offset(pocit, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & List.Name & "'" & "!A1", TextToDisplay:=List.Name
pocit = pocit + 1
Next
End Sub
Děkuju, ale teď ještě jak to zadat, s makry zatím moc nekamarádím..
Dodatečně přidáno po 2 minutách :atari píše:Makro má tu výhodu, že s ním lze načíst všechny listy, a nemusíš to vypisovat ručně.
No to bych opravdu vypisovat nechtěl, tudíž je určitě makro nevyhnutelné.
Ještě oprava, neumí to žádná čísla, opíše mi to název listu do seznamu, ale bez počáteční nuly a bez funkčního odkazu..
Re: jak přidat do excelu seznam listů
V příloze upravený soubor.
- Přílohy
-
- seznam_listu.xlsm
- (16.83 KiB) Staženo 148 x
Re: jak přidat do excelu seznam listů
Děkuji, s tím souborem už jsem to zvládl upravit
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 3
- 799
-
od mmmartin
Zobrazit poslední příspěvek
25 úno 2024 11:50
-
- 1
- 3697
-
od KubaCZE
Zobrazit poslední příspěvek
21 úno 2024 20:00
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2203
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 18
- 3744
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 0
- 990
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
Kdo je online
Uživatelé prohlížející si toto fórum: Google [Bot] a 3 hosti