✅ Skapa snabbt sammanfattande arbetsblad med hyperlänkar i Excel

Innehållsförteckning

Många av mina kollegor lägger mycket av sin tid på att skapa ett sammanfattande arbetsblad i Excel.

Ett typiskt sammanfattande kalkylblad har namnen på alla kalkylblad i olika celler och alla namn har också hyperlänk till dessa kalkylblad.

Så du kan klicka på en cell med ett bladnamn (säg Jan, Feb, Mar … ) och det tar dig till det kalkylbladet. Dessutom finns det en hyperlänk på varje kalkylblad som länkar tillbaka till det sammanfattande kalkylbladet.

Även om mina kollegor har blivit supereffektiva att göra detta, är det fortfarande slöseri med tid när du kan göra samma sak på mindre än en sekund (ja du läste det rätt).

Tricket är att skapa ett kort makro som gör det åt dig.

Oavsett hur många kalkylblad du har kommer det direkt att skapa ett sammanfattande kalkylblad med fungerande hyperlänkar.

Något som visas nedan:

Som du kan se på bilden ovan skapar den direkt en sammanfattning när du kör makrot (genom att klicka på knappen). Arknamnen är hyperlänkade som tar dig till kalkylbladet när du klickar på det.

Skapa sammanfattningsarbetsblad med hyperlänkar

Alla tunga lyft för att skapa ett sammanfattande arbetsblad görs med en kort VBA -kod. Du behöver bara köra koden och ta en paus eftersom du skulle ha lite ledig tid nu 🙂

Här är koden:

Sub CreateSummary () 'Created by Sumit Bansal of trumpexcel.com' Denna kod kan användas för att skapa sammanfattande kalkylblad med hyperlänkar Dim x As Worksheet Dim Counter As Integer Counter = 0 For Each x In Worksheets Counter = Counter + 1 If Counter = 1 Gå sedan till att inte göra något med ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Klicka här för att gå till kalkylbladet" Med kalkylblad (Counter) .Range ("A1"). Value = "Back to" & 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älj Donothing: Next x End Sub

Var ska man lägga denna kod?

Följ stegen nedan för att placera den här koden i arbetsboken:

Gå till fliken Utvecklare och klicka på Visual Basic. Du kan också använda kortkommandot - ALT F11.
- Om du hittar fliken utvecklare i menyfliksområdet i Excel, klicka här för att veta hur du får det.
Det ska finnas en Project Explorer -ruta till vänster (om den inte finns där, använd Ctrl + R för att göra den synlig).
Gå till Infoga och klicka i modulen. Detta lägger till en modul i arbetsboken. Till höger ser du också att kodfönstret visas (med en blinkande markör).
I modulkodfönstret, kopiera och klistra in ovanstående kod.

Kör koden

Så här kör du den här koden:

Gå till fliken Utvecklare -> Kod -> Makron. Detta öppnar rutan för makrodialog.
Välj makrosammanfattningen och klicka på Kör.
Detta kommer att köra makrot och skapa hyperlänkar i det aktiva arket.

Ett annat sätt att köra makrot är att infoga en knapp/form och tilldela makrot till den. Att göra detta:

Infoga en form i kalkylbladet. Formatera formen som du vill.
Högerklicka på den och välj Tilldela makro.
I rutan Tilldela makro väljer du det makro du vill tilldela formen och klickar på OK.

Nu kan du helt enkelt klicka på formen för att köra makrot.

Ladda ner filen härifrån

Notera:

Jag har hårdkodat cellen A1 i varje ark, som är hyperlänkad för att komma tillbaka till sammanfattningsarket. Se till att du ändrar det om du redan har något i A1 -cellen i varje ark.
Sammanfattningen skapar inte en hyperlänk för sig själv (vilket är vettigt eftersom du redan finns på det bladet).
Kör den här koden när sammanfattningsarket är det aktiva kalkylbladet.
Du kanske vill lägga till lite formatering eller omorganisation. Men jag hoppas att den här koden tar hand om den svåra delen.
Spara denna arbetsbok som .xls eller .xlsm -tillägg, eftersom den innehåller ett makro.

Andra Excel VBA -självstudier: