✅ Lag raskt et sammendragsark med hyperkoblinger i Excel

Innholdsfortegnelse

Mange av mine kolleger bruker mye tid på å lage et sammendragsark i Excel.

Et typisk sammendragsark har navnene på alle regnearkene i forskjellige celler, og alle navnene er også hyperkoblet til disse regnearkene.

Så du kan klikke på en celle med et arknavn (si jan, feb, mar … ), og det tar deg til det regnearket. I tillegg er det også en hyperkobling på hvert regneark som lenker tilbake til sammendragsarket.

Selv om mine kolleger har blitt super effektive i å gjøre dette, er det fortsatt bortkastet tid når du kan gjøre det samme på mindre enn et sekund (ja du leste det riktig).

Trikset er å lage en kort makro som vil gjøre det for deg.

Uansett hvor mange regneark du har, vil det umiddelbart opprette et sammendragsark med fungerende hyperkoblinger.

Noe som vist nedenfor:

Som du kan se på bildet ovenfor, oppretter det øyeblikkelig sammendraget når du kjører makroen (ved å klikke på knappen). Arknavnene er hyperkoblet som tar deg til regnearket når du klikker på det.

Lag sammendragsark med hyperkoblinger

Alle de tunge løftene ved å lage sammendragsarket utføres med en kort VBA -kode. Du trenger bare å kjøre koden og ta en pause, da du ville ha litt ledig tid nå 🙂

Her er koden:

Sub CreateSummary () 'Created by Sumit Bansal of trumpexcel.com' Denne koden kan brukes til å lage sammendragsark med hyperkoblinger Dim x As Worksheet Dim Counter As Integer Counter = 0 For hver x I Regneark Teller = Teller + 1 Hvis Teller = 1 Deretter går GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Klikk her for å gå til regnearket" Med regneark (Teller) .Range ("A1"). Value = "Tilbake 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). Velg Donothing: Next x End Sub

Hvor skal jeg sette denne koden?

Følg trinnene nedenfor for å plassere denne koden i arbeidsboken:

Gå til Utvikler -fanen og klikk på Visual Basic. Du kan også bruke hurtigtasten - ALT F11.
- Hvis du finner utviklerfanen på båndet i Excel, klikker du her for å vite hvordan du får det.
Det skal være en Project Explorer -rute til venstre (hvis den ikke er der, bruk Ctrl + R for å gjøre den synlig).
Gå til Sett inn og klikk i modulen. Dette legger til en modul i arbeidsboken. Også til høyre vil du se kodevinduet vises (med en blinkende markør).
Kopier og lim inn koden ovenfor i modulkodevinduet.

Kjører koden

Slik kjører du denne koden:

Gå til Utvikler -fanen -> Kode -> Makroer. Dette åpner makrodialogboksen.
Velg Macro CreateSummary og klikk på Kjør.
Dette vil kjøre makroen og opprette hyperkoblinger i det aktive arket.

En annen måte å kjøre makroen på er å sette inn en knapp/form og tildele makroen til den. Å gjøre dette:

Sett inn en form i regnearket. Formater formen slik du vil.
Høyreklikk på den og velg Tildel makro.
Velg makroen du vil tilordne figuren i Tilordne makro -boksen, og klikk OK.

Nå kan du bare klikke på formen for å kjøre makroen.

Last ned filen herfra

Merk:

Jeg har hardkodet cellen A1 i hvert ark, som er hyperkoblet for å komme deg tilbake til sammendragsarket. Sørg for at du endrer det tilsvarende hvis du allerede har noe i A1 -cellen i hvert ark.
Sammendraget skaper ikke en hyperkobling for seg selv (noe som er fornuftig ettersom du allerede er på det arket).
Kjør denne koden når Sammendragsarket er det aktive regnearket.
Det kan være lurt å legge til litt formatering eller omorganisering. Men jeg håper denne koden tar seg av den vanskelige delen.
Lagre denne arbeidsboken som .xls eller .xlsm forlengelse, siden den inneholder en makro.

Andre Excel VBA -opplæringsprogrammer: