✅ Hitro ustvarite povzetek delovnega lista s hiperpovezavami v Excelu

Kazalo

Veliko mojih kolegov porabi veliko časa za ustvarjanje povzetka delovnega lista v Excelu.

Tipičen povzetek delovnega lista ima imena vseh delovnih listov v različnih celicah in vsa imena so tudi hiperpovezana do teh delovnih listov.

Tako lahko kliknete celico z imenom lista (recimo Jan, Feb, Mar … ) in vas bo popeljal na ta delovni list. Poleg tega je na vsakem delovnem listu tudi hiperpovezava, ki se povezuje nazaj na povzetek delovnega lista.

Čeprav so moji kolegi pri tem postali zelo učinkoviti, je še vedno izguba časa, ko lahko isto naredite v manj kot sekundi (ja, prav ste prebrali).

Trik je v tem, da ustvarite kratek makro, ki bo to naredil namesto vas.

Ne glede na to, koliko delovnih listov imate, bo takoj ustvaril povzetek delovnega lista z delujočimi hiperpovezavami.

Nekaj, kot je prikazano spodaj:

Kot lahko vidite na zgornji sliki, takoj ustvari povzetek, ko zaženete makro (s klikom na gumb). Imena listov so hiperpovezana, kar vas popelje na delovni list, ko kliknete nanj.

Ustvarite povzetek delovnega lista s hiperpovezavami

Vse težko pri ustvarjanju povzetka delovnega lista opravi kratka koda VBA. Samo kodo morate zagnati in si vzeti odmor, saj bi zdaj imeli nekaj prostega časa 🙂

Tukaj je koda:

Sub CreateSummary () "Ustvaril Sumit Bansal iz trumpexcel.com" To kodo lahko uporabite za ustvarjanje povzetka delovnega lista s hiperpovezavami Dim x kot delovni list Dim Counter As Integer Counter = 0 Za vsak x V Delovni list Counter = Counter + 1 If Counter = 1 Nato pojdi na Dotothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Kliknite tukaj, da odprete delovni list" z delovnimi listi (Števec) .Range ("A1"). Value = "Nazaj na" & ActiveSheet.Name. Hiperpovezave. Dodajte liste (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Vrnitev na" & ActiveSheet.Name Končaj s koncem z ActiveCell.Offset (1, 0). Izberite Donothing: Next x End Sub

Kam postaviti to kodo?

Za umestitev te kode v delovni zvezek sledite spodnjim korakom:

Pojdite na zavihek Razvijalec in kliknite Visual Basic. Uporabite lahko tudi bližnjico na tipkovnici - ALT F11.
- Če na traku v Excelu najdete zavihek za razvijalce, kliknite tukaj, če želite izvedeti, kako ga dobiti.
Na levi strani mora biti podokno Project Explorer (če ga ni, uporabite Control + R, da bo vidno).
Pojdite na Vstavi in kliknite Modul. S tem se delovnemu zvezku doda modul. Prav tako bi na desni videli okno za kodo (s utripajočim kazalcem).
V oknu kode modula kopirajte in prilepite zgornjo kodo.

Izvajanje kode

Če želite zagnati to kodo:

Pojdite na zavihek Razvijalec -> Koda -> Makri. S tem se odpre okno za makro pogovorno okno.
Izberite Povzetek ustvarjanja makrov in kliknite Zaženi.
To bo zagnalo makro in ustvarilo hiperpovezave na aktivnem listu.

Drug način za zagon makra je, da vstavite gumb/obliko in mu dodelite makro. Storiti to:

Vstavite obliko v delovni list. Oblikujte obliko, kot želite.
Z desno miškino tipko kliknite nanjo in izberite Dodeli makro.
V polju Dodelite makro izberite makro, ki ga želite dodeliti obliki, in kliknite V redu.

Zdaj lahko preprosto kliknete obliko, da zaženete makro.

Prenesite datoteko od tukaj

Opomba:

V vsakem listu sem trdo kodiral celico A1, ki je hiperpovezana, da se vrnete na povzetek. Poskrbite, da ga ustrezno spremenite, če imate na vsakem listu nekaj že v celici A1.
Povzetek ne ustvari hiperpovezave zase (kar je smiselno, saj ste že na tem listu).
To kodo zaženite, ko je aktivni delovni list povzetek delovnega lista.
Morda boste želeli dodati nekaj oblikovanja ali preureditve. Upam pa, da bo ta koda poskrbela za težji del.
Ta delovni zvezek shranite kot razširitev .xls ali .xlsm, saj vsebuje makro.

Druge vaje programa Excel VBA:

Pridobite več vrednosti iskanja brez ponavljanja v eni celici.
Matrika prednostnih nalog - aplikacija VBA.
Kako združiti več delovnih zvezkov v en Excelov delovni zvezek.
Zanke Excel VBA - za naslednji, naredi medtem, naredi do, za vsakega (s primeri).
Kako posneti makro v - Vodnik po korakih.
Kako hitro odstraniti hiperpovezave z delovnega lista v Excelu.
Spletni tečaj Excel VBA.