Als een Excel-werkmap veel werkbladen heeft, wilt u misschien een lijst met hyperlinks naar alle werkbladen maken om ze snel te kunnen openen. In dit artikel zullen we 3 methoden met u delen.
Als u een Excel-werkmap heeft die een groot aantal werkbladen bevat, kan het lastig zijn om het gewenste werkblad te vinden en te openen. In dat geval kunt u een lijst met hyperlinks naar alle werkbladen maken, zodat u naar een specifiek werkblad kunt springen door simpelweg op een hyperlink te klikken. Het is best handig. Daarom introduceren we hier 3 manieren om een dergelijke lijst te maken.
Methode 1: handmatig aanmaken
- Open om te beginnen het betreffende Excel-werkblad.
- Voeg vervolgens een nieuw blad in vóór het eerste werkblad.

- Klik vervolgens met de rechtermuisknop op cel A1 en selecteer "Hyperlink" in het contextmenu.
- Selecteer later in het venster "Hyperlink invoegen" aan de linkerkant "Plaats in dit document".
- Kies daarna in de lijst van “Of selecteer een plaats in dit document” het eerste blad behalve het huidige nieuwe blad.
- Verander vervolgens "Weer te geven tekst" in de bladnaam.
- Klik ten slotte op "OK" om de hyperlink in te voegen.
- Nu kunt u de hyperlinks een voor een naar de overige bladen invoegen.
Methode 2: maken via formule
- Maak eerst een nieuw blad.
- Vervolgens moet je alle werkbladnamen opnoemen volgens Methode 2 in het bericht.3 snelle manieren om een lijst met alle werkbladnamen in een Excel-werkmap te krijgen'.
- Plaats later de onderstaande formule in cel C1.
=HYPERLINK("#'"&B1&"'!A1",B1)
- Sleep de functie uiteindelijk naar beneden om de hyperlinks naar de andere bladen te krijgen.
Methode 3: maken met VBA
- Start in het begin de Excel VBA-editor door te verwijzen naar "Hoe u VBA-code in uw Excel uitvoert'.
- Plaats vervolgens de onderstaande code in een project of module.
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
- Druk vervolgens op "F5" om deze macro uit te voeren.
- U ziet meteen een nieuw werkblad met alle hyperlinks naar alle werkbladen, zoals de volgende schermafbeelding.
Vergelijk
| Voordelen | Nadelen | |
| Methode 1 | Eenvoudig te bedienen | Te vervelend als er te veel werkbladen zijn |
| Methode 2 | Sneller dan methode 1 in het geval van meerdere werkbladen | Vraagt u om vooraf nummers en bladnamen te vermelden |
| Methode 3 | Veel sneller en effectiever dan de bovenstaande 2 methoden | Wees voorzichtig met externe macro's die mogelijk schadelijk zijn |
Herstel beschadigde Excel-bestanden
Excel kan van tijd tot tijd crashen, wat kan leiden tot corruptie van Excel-bestanden. Daarom moet u eraan gewend zijn om het bestand elke keer op te slaan wanneer u een Excel-bestand wijzigt. Anders, als Excel crasht maar u het geopende bestand niet hebt opgeslagen, moet u toevlucht nemen tot xls repareren software, zoals DataNumen Excel Repair, om beschadigde Excel-gegevens terug te krijgen.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com








