Når en Excel-projektmappe har mange regneark, kan du muligvis oprette en liste med hyperlinks til alle regneark for at få adgang til dem hurtigt. I denne artikel deler vi 3 metoder med dig.
Hvis du har en Excel-projektmappe, der indeholder en stor mængde regneark, kan du finde det besværligt at finde og få adgang til det ønskede regneark. I dette tilfælde kan du oprette en liste over hyperlinks til alle regneark, som kan lade dig springe til et bestemt regneark ved blot at klikke på et hyperlink. Det er ret praktisk. Så her introducerer vi 3 måder at oprette en sådan liste på.
Metode 1: Opret manuelt
- Til at starte med skal du åbne den specifikke Excel-projektmappe.
- Indsæt derefter et nyt ark før det første regneark.
- Højreklik derefter på Cell A1 og vælg "Hyperlink" i genvejsmenuen.
- Senere, i vinduet "Indsæt hyperlink", skal du vælge "Placer i dette dokument" på venstre side.
- Derefter skal du på listen "Eller vælg et sted i dette dokument" vælge det første ark undtagen det aktuelle nye ark.
- Skift derefter "Tekst til visning" til arknavnet.
- Klik til sidst på “OK” for at indsætte hyperlinket.
- Nu kan du indsætte hyperlinks til de resterende ark en efter en.
Metode 2: Opret via formel
- Først skal du oprette et nyt ark.
- Angiv derefter alle navnene på regnearkene i henhold til metode 2 i indlægget "3 hurtige måder at få en liste over alle regnearknavne i en Excel-projektmappe".
- Senere skal du sætte formlen nedenfor i celle C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- I sidste ende trækker du funktionen ned for at få hyperlinks til de andre ark.
Metode 3: Opret med VBA
- I starten skal du starte Excel VBA-editor ved at henvise til “Sådan køres VBA-kode i din Excel".
- Sæt derefter koden nedenfor i et projekt eller modul.
Sub CreateMenuOfHyperlinksToAllWorksheets()
Dim objSheet As Worksheet
ActiveWorkbook.Sheets.Add(Before:=Worksheets(1)).Name = "Sheet Menu"
Range("A1").Select
For Each objSheet In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> objSheet.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= "'" & objSheet.Name & "'" & "!A1", TextToDisplay:=objSheet.Name
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireColumn.AutoFit
End If
Next objSheet
With ActiveSheet
.Rows(1).Insert
.Cells(1, 1) = "MENU"
.Cells(1, 1).Font.Bold = True
.Cells(1, 1).Font.Size = 14
.Cells(1, 1).Columns.AutoFit
End With
End Sub
- Tryk derefter på “F5” for at køre denne makro.
- Straks vil du se et nyt regneark, der indeholder alle hyperlinks til alle regneark, som det følgende skærmbillede.
Sammenligning
| Fordele | Ulemper | |
| Metode 1 | Let at betjene | For kedeligt, hvis der er for mange regneark |
| Metode 2 | Hurtigere end metode 1 i tilfælde af flere regneark | Kræver dig at opføre numre og arknavne på forhånd |
| Metode 3 | Meget hurtigere og mere effektiv end ovenstående 2 metoder | Vær forsigtig med eksterne makroer, der kan være ondsindede |
Gendan ødelagte Excel-filer
Excel kan gå ned fra tid til anden, hvilket kan føre til korruption i Excel-filer. Derfor skal du være vant til at gemme filen hver gang du ændrer en Excel-fil. Ellers, hvis Excel går ned, men du ikke har gemt den åbnede fil, skal du ty til xls rettelse software, f.eks DataNumen Excel Repair, for at få beskadigede Excel-data tilbage.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com