✅ Opret hurtigt oversigtsark med hyperlinks i Excel

Indholdsfortegnelse

Mange af mine kolleger bruger meget af deres tid på at oprette et resuméark i Excel.

Et typisk oversigtsark indeholder navnene på alle regnearkene i forskellige celler, og alle navnene hyperlinkes også til disse regneark.

Så du kan klikke på en celle med et arknavn (sig Jan, Feb, Mar … ), og det vil tage dig til det regneark. Derudover er der også et hyperlink på hvert regneark, der linker tilbage til oversigtsarket.

Selvom mine kolleger er blevet super effektive til at gøre dette, er det stadig spild af tid, når du kan gøre det samme på mindre end et sekund (ja du læste det rigtigt).

Tricket er at oprette en kort makro, der gør det for dig.

Uanset hvor mange regneark du har, vil det øjeblikkeligt oprette et resuméark med arbejdshyperlinks.

Noget som vist herunder:

Som du kan se på billedet ovenfor, skaber det øjeblikkeligt resuméet, når du kører makroen (ved at klikke på knappen). Arknavnene er hyperlinket, hvilket fører dig til regnearket, når du klikker på det.

Opret oversigtsark med hyperlinks

Alle de tunge løft ved oprettelsen af oversigtsarket udføres af en kort VBA -kode. Du skal bare køre koden og tage en pause, da du ville have lidt fritid nu 🙂

Her er koden:

Sub CreateSummary () 'Oprettet af Sumit Bansal af trumpexcel.com' Denne kode kan bruges til at oprette resuméark med hyperlinks Dim x As Worksheet Dim Counter As Integer Counter = 0 For hver x I Regneark Tæller = Tæller + 1 Hvis Tæller = 1 Derefter går GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Klik her for at gå til regnearket" Med regneark (Tæller) .Range ("A1"). Value = "Tilbage til" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Return to" & ActiveSheet.Name End with End with ActiveCell.Offset (1, 0). Vælg Donothing: Next x End Sub

Hvor placeres denne kode?

Følg nedenstående trin for at placere denne kode i projektmappen:

Gå til fanen Udvikler, og klik på Visual Basic. Du kan også bruge tastaturgenvejen - ALT F11.
- Hvis du kan finde fanen Udvikler på båndet i Excel, skal du klikke her for at vide, hvordan du får det.
Der skal være en Project Explorer -rude til venstre (hvis den ikke er der, skal du bruge Ctrl + R for at gøre den synlig).
Gå til Indsæt og klik i modul. Dette tilføjer et modul til projektmappen. Også til højre ser du kodevinduet vises (med en blinkende markør).
I modulkodevinduet skal du kopiere og indsætte ovenstående kode.

Kørsel af koden

Sådan kører du denne kode:

Gå til fanen Udvikler -> Kode -> Makroer. Dette åbner makrodialogboksen.
Vælg Macro CreateSummary, og klik på Kør.
Dette vil køre makroen og oprette hyperlinks i det aktive ark.

En anden måde at køre makroen på er at indsætte en knap/form og tildele makroen til den. At gøre dette:

Indsæt en form i regnearket. Formater formen, som du vil.
Højreklik på den, og vælg Tildel makro.
Vælg den makro, du vil tildele figuren, i feltet Tildel makro, og klik på OK.

Nu kan du blot klikke på formen for at køre makroen.

Download filen herfra

Bemærk:

Jeg har hårdkodet cellen A1 i hvert ark, som er hyperlinket for at komme tilbage til oversigtsarket. Sørg for, at du ændrer det i overensstemmelse hermed, hvis du allerede har noget i A1 -cellen i hvert ark.
Resuméet skaber ikke et hyperlink til sig selv (hvilket giver mening, da du allerede er på det ark).
Kør denne kode, når Resume -regnearket er det aktive regneark.
Du vil måske tilføje en vis formatering eller omlejring. Men jeg håber, at denne kode tager sig af den hårde del.
Gem denne projektmappe som .xls eller .xlsm udvidelse, da den indeholder en makro.

Andre Excel VBA -øvelser: