✅ Rychle vytvořte souhrnný list s hypertextovými odkazy v aplikaci Excel

Obsah

Mnoho mých kolegů tráví spoustu času vytvářením souhrnného pracovního listu v Excelu.

Typický souhrnný list obsahuje názvy všech listů v různých buňkách a všechny názvy jsou na tyto listy také hypertextově propojeny.

Můžete tedy kliknout na buňku s názvem listu (řekněme Jan, Feb, Mar… ) a dostanete se k tomuto listu. Kromě toho je na každém listu také hypertextový odkaz, který odkazuje zpět na souhrnný list.

Zatímco moji kolegové při tom začali být velmi efektivní, stále je to ztráta času, když můžete udělat totéž za méně než sekundu (ano, čtete to správně).

Jde o to, vytvořit krátké makro, které to udělá za vás.

Bez ohledu na to, kolik listů máte, okamžitě vytvoří souhrnný list s funkčními odkazy.

Něco, jak je uvedeno níže:

Jak vidíte na obrázku výše, okamžitě vytvoří souhrn při spuštění makra (kliknutím na tlačítko). Názvy listů jsou propojeny hypertextovými odkazy, které vás přenesou na list, když na něj kliknete.

Vytvořte souhrnný list s hypertextovými odkazy

Veškeré těžké zvedání při vytváření souhrnného listu se provádí pomocí krátkého kódu VBA. Stačí spustit kód a dát si pauzu, protože teď budete mít trochu volného času 🙂

Zde je kód:

Sub CreateSummary () 'Created by Sumit Bansal of trumpexcel.com' Tento kód lze použít k vytvoření souhrnného listu s hypertextovými odkazy Dim x As Worksheet Dim Counter As Integer Counter = 0 For each x In Worksheets Counter = Counter + 1 If Counter = 1 Pak GoTo Donoting With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Kliknutím sem přejdete na pracovní list" S pracovními listy (Counter) .Range ("A1"). Value = "Back to" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Zpět na" & ActiveSheet.Name Konec s koncem s ActiveCell.Offset (1, 0). Vyberte Don’tating: Next x End Sub

Kam tento kód vložit?

Chcete -li tento kód umístit do sešitu, postupujte takto:

Přejděte na kartu Vývojář a klikněte na Visual Basic. Můžete také použít klávesovou zkratku - ALT F11.
- Pokud na pásu karet v aplikaci Excel najdete kartu vývojáře, kliknutím sem zjistíte, jak ji získat.
Vlevo by mělo být podokno Průzkumníka projektu (pokud tam není, použijte Control + R, aby bylo viditelné).
Přejděte na Vložit a klikněte na modul. Tím se do sešitu přidá modul. Vpravo byste také viděli okno s kódem (s blikajícím kurzorem).
V okně kódu modulu zkopírujte a vložte výše uvedený kód.

Spuštění kódu

Chcete -li spustit tento kód:

Přejděte na kartu Vývojář -> Kód -> Makra. Tím se otevře dialogové okno Makro.
Vyberte makro CreateSummary a klikněte na Spustit.
Spustí se makro a vytvoří hypertextové odkazy v aktivním listu.

Dalším způsobem, jak spustit makro, je vložit tlačítko/tvar a přiřadit mu k němu makro. Udělat toto:

Vložte do listu tvar. Formátujte tvar tak, jak chcete.
Klikněte na něj pravým tlačítkem a vyberte Přiřadit makro.
V poli Přiřadit makro vyberte makro, které chcete tvaru přiřadit, a klikněte na OK.

Nyní můžete makro jednoduše spustit kliknutím na tvar.

Stáhněte si soubor odtud

Poznámka:

Napevno jsem zakódoval buňku A1 v každém listu, na kterou je hypertextový odkaz, abyste se dostali zpět na souhrnný list. Pokud máte v každém listu již něco v buňce A1, zajistěte, abyste to změnili.
Souhrn nevytváří hypertextový odkaz sám o sobě (což dává smysl, protože na tomto listu již jste).
Spusťte tento kód, když je souhrnný list aktivním listem.
Možná budete chtít přidat nějaké formátování nebo přeskupení. Ale doufám, že tento kód se postará o tu těžkou část.
Uložte tento sešit jako příponu .xls nebo .xlsm, protože obsahuje makro.

Další výukové programy pro Excel VBA: