Hoe maak je een inhoudsopgave voor alle tabbladen in spreadsheets met hyperlinks in Excel?
Een Excel-werkmap wordt behoorlijk groot naarmate er steeds meer werkbladen binnenin worden gemaakt. Hoe meer werkbladen er zijn, hoe moeilijker het is om het overzicht op de werkbladen te houden. Daarom hebt u een inhoudsopgave nodig om snel tussen werkbladen in Excel te navigeren. Dit artikel laat je methoden zien om dit te bereiken.
Maak een inhoudsopgave op VBA-code
Maak eenvoudig een inhoudsopgave met Kutools voor Excel
Maak een inhoudsopgave op VBA-code
De volgende VBA-code kan u helpen bij het maken van een inhoudsopgave voor alle werkbladen met hyperlinks in Excel. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Moduleen kopieer vervolgens de onderstaande VBA-code naar het codevenster.
VBA-code: maak een inhoudsopgave voor alle werkbladen
Sub CreateTableofcontents()
'updateby Extendoffice 20180413
Dim xAlerts As Boolean
Dim I As Long
Dim xShtIndex As Worksheet
Dim xSht As Variant
xAlerts = Application.DisplayAlerts
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Table of contents").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Table of contents"
I = 1
Cells(1, 1).Value = "Table of contents"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Table of contents" Then
I = I + 1
xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
End If
Next
Application.DisplayAlerts = xAlerts
End Sub3. druk de F5 toets of klik op de knop Uitvoeren om de code uit te voeren.
Vervolgens wordt voor alle werkbladen een werkblad met inhoudsopgave gemaakt met alle werkbladnamen erin vermeld. U kunt naar elk werkblad navigeren door op de bladnaam in de inhoudsopgave te klikken. Zie screenshot:
Maak eenvoudig een inhoudsopgave met Kutools voor Excel
De Maak een lijst met bladnamen nut van Kutools for Excel kan u helpen snel een inhoudsopgave in de huidige werkmap te maken. Ga als volgt te werk.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. In de werkmap moet u een inhoudsopgave maken, klik op Koetools Plus > Werkblad > Maak een lijst met bladnamen. Zie screenshot:
2. In de Maak een lijst met bladnamen dialoogvenster, moet u:
Vervolgens wordt een werkblad met inhoudsopgave gemaakt zoals onderstaand screenshot laat zien. U kunt naar elk werkblad navigeren door op de bladnaam in de inhoudsopgave te klikken.
Als u de optie Bevat knoppen en macro's selecteert in het gedeelte Indexstijlen selecteren, krijgt u een inhoudsopgave zoals onderstaand screenshot laat zien.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Gerelateerde artikelen:
- Hoe verwijs ik naar de naam van het tabblad in de cel in Excel?
- Hoe de celwaarde matchen met de naam van het bladtabblad of omgekeerd in Excel?
- Hoe open ik een specifiek werkblad met de geselecteerde waarde van een keuzelijst met invoervak in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
