✅ Rýchlo vytvorte súhrnný pracovný hárok pomocou hypertextových odkazov v programe Excel

Obsah

Mnoho mojich kolegov trávi veľa času vytváraním súhrnného pracovného hárka v programe Excel.

Typický súhrnný pracovný hárok obsahuje názvy všetkých pracovných hárkov v rôznych bunkách a všetky názvy sú na tieto pracovné hárky tiež prepojené.

Môžete teda kliknúť na bunku s názvom hárka (povedzme Jan, Feb, Mar … ) a dostanete sa k tomuto pracovnému listu. Na každom pracovnom hárku je navyše aj hypertextový odkaz, ktorý odkazuje na súhrnný pracovný hárok.

Aj keď moji kolegovia pri tom začali byť veľmi efektívni, stále je to strata času, keď môžete urobiť to isté za menej ako sekundu (áno, čítate dobre).

Ide o to, vytvoriť krátke makro, ktoré to urobí za vás.

Bez ohľadu na to, koľko máte pracovných hárkov, okamžite vytvorí súhrnný pracovný hárok s funkčnými hypertextovými odkazmi.

Niečo, ako je uvedené nižšie:

Ako vidíte na obrázku vyššie, pri spustení makra (kliknutím na tlačidlo) okamžite vytvorí súhrn. Názvy hárkov sú prepojené hypertextovým prepojením, ktoré vás po kliknutí na pracovný hárok presmeruje.

Vytvorte súhrnný pracovný hárok s hypertextovými odkazmi

Všetko ťažké pri vytváraní súhrnného pracovného hárka sa vykonáva pomocou krátkeho kódu VBA. Stačí spustiť kód a urobiť si prestávku, pretože teraz by ste mali voľný čas 🙂

Tu je kód:

Sub CreateSummary () 'Created by Sumit Bansal of trumpexcel.com' Tento kód je možné použiť na vytvorenie súhrnného pracovného hárka s hypertextovými odkazmi Dim x As worksheet Dim Counter As Integer Counter = 0 For each x In worksheets Counter = Counter + 1 If Counter = 1 Potom GoTo Donoting With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Kliknutím sem prejdete na pracovný list" S pracovnými listami (Počítadlo). Rozsah ("A1"). Hodnota = "Späť na" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "" "&"! " & ActiveCell.Address, _ ScreenTip: = "Návrat na" & ActiveSheet.Name Koniec s koncom ActiveCell.Offset (1, 0). Vyberte Donoting: Next x End Sub

Kam vložiť tento kód?

Pri umiestňovaní tohto kódu do zošita postupujte podľa nižšie uvedených krokov:

Prejdite na kartu Vývojár a kliknite na položku Visual Basic. Môžete tiež použiť klávesovú skratku - ALT F11.
- Ak nájdete kartu vývojára na páse s nástrojmi v programe Excel, kliknutím sem zistíte, ako ju získať.
Vľavo by mala byť tabla Project Explorer (ak tam nie je, použite Ctrl + R na jej zviditeľnenie).
Prejdite na položku Vložiť a kliknite na modul. Tým sa modul pridá do zošita. Vpravo by ste videli aj okno s kódom (s blikajúcim kurzorom).
V okne kódu modulu skopírujte a prilepte vyššie uvedený kód.

Spustenie kódu

Ak chcete spustiť tento kód:

Prejdite na kartu Vývojár -> Kód -> Makrá. Tým sa otvorí dialógové okno Makro.
Vyberte Súbor na vytvorenie makra a kliknite na Spustiť.
Spustí sa makro a v aktívnom hárku sa vytvoria hypertextové odkazy.

Ďalším spôsobom, ako spustiť makro, je vložiť tlačidlo/tvar a priradiť mu k nemu makro. Urobiť toto:

Vložte tvar do pracovného hárka. Naformátujte tvar tak, ako chcete.
Kliknite naň pravým tlačidlom myši a zvoľte Priradiť makro.
V poli Priradiť makro vyberte makro, ktoré chcete tvaru priradiť, a kliknite na tlačidlo OK.

Teraz môžete makro spustiť jednoduchým kliknutím na tvar.

Odtiaľ si stiahnite súbor

Poznámka:

V každom hárku som pevne zakódoval bunku A1, ktorá je prepojená hypertextovým prepojením, aby ste sa vrátili späť k súhrnnému listu. Ak máte v každom hárku niečo už v bunke A1, uistite sa, že to zmeníte.
Súhrn sám o sebe nevytvára hypertextový odkaz (čo dáva zmysel, pretože už ste na tomto hárku).
Spustite tento kód, ak je aktívny pracovný hárok.
Možno budete chcieť pridať nejaké formátovanie alebo preskupenie. Dúfam však, že tento kód sa postará o najťažšiu časť.
Tento zošit uložte ako príponu .xls alebo .xlsm, pretože obsahuje makro.

Ďalšie návody na Excel VBA: