Hoe maak je automatisch een inhoudsopgave voor alle bladen en updates?
Stel dat u een werkmap hebt die honderden werkbladen bevat, kan het voor de meesten van ons hoofdpijn veroorzaken om naar een specifiek blad te navigeren tussen meerdere bladen. In dit geval kan het maken van een inhoudsopgave voor deze werkbladen u helpen om snel en gemakkelijk naar het bepaalde blad te gaan. In deze zelfstudie wordt besproken hoe u een inhoudsopgave voor alle bladen kunt maken en de tabel automatisch kunt bijwerken bij het invoegen, verwijderen of wijzigen van de bladnamen.
Maak een inhoudsopgave voor alle werkbladen en update automatisch met formules
Maak een inhoudsopgave voor alle bladen en updates automatisch met een VBA-code
Maak een inhoudsopgave voor alle bladen en updates automatisch met een krachtige functie
Maak een inhoudsopgave voor alle werkbladen en update automatisch met formules
In Excel kunt u een inhoudsopgave maken door een bereiknaam te definiëren en naar de naam in een formule te verwijzen. Voer de volgende stappen uit:
1. Voeg een nieuw blad in voor alle bladen waar u de inhoudsopgave wilt maken en hernoem deze indien nodig.
2. Dan klikken Formule > Definieer naam, zie screenshot:
3. In de Nieuwe naam dialoogvenster, geef een naam op Bladlijst in de Naam box, kunt u deze naar uw eigen wijzigen en vervolgens deze formule invoeren: = GET.WORKBOOK (1) & T (NU ()) in de Verwijst naar textbox, zie screenshot:
4. Dan klikken OK om het dialoogvenster te sluiten.
5. Ga nu naar het nieuwe blad waar u een inhoudsopgave wilt maken en voer vervolgens de volgende formule in een lege cel in:
6. En sleep vervolgens de vulgreep naar de cellen totdat lege cellen worden weergegeven en alle bladnamen (inclusief de verborgen bladen) van de huidige werkmap zijn weergegeven zoals hieronder afgebeeld:
7. Vervolgens moet u hyperlinks maken voor de inhoud van de tabel, gebruik de onderstaande formule:
8. Als u nu op de hyperlinktekst klikt, gaat deze meteen naar dat blad. En als u een nieuw blad invoegt, een blad verwijdert of de bladnaam wijzigt, wordt de tabelinhoud automatisch bijgewerkt.
- 1. Met deze methode worden alle verborgen bladen ook weergegeven in de tabelinhoud.
- 2. U moet het bestand opslaan als Excel-werkmap met ingeschakelde macro's formaat, zodat de formules goed kunnen werken wanneer u dit bestand de volgende keer opent.
Maak een inhoudsopgave voor alle bladen en updates automatisch met een VBA-code
Soms hoeft u de verborgen bladen in de tabelinhoud niet weer te geven. Om dit probleem op te lossen, kan de volgende VBA-code u een plezier doen.
1. Voeg een nieuw blad in voor alle bladen waar u de inhoudsopgave wilt maken en hernoem deze indien nodig. Klik vervolgens met de rechtermuisknop op de bladtab en kies Bekijk code zie screenshot vanuit het contextmenu:
2. In het geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande code in het bladcodevenster:
VBA-code: maak automatisch een inhoudsopgave voor alle bladen en updates
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, en de tabelinhoud wordt in één keer in het nieuwe werkblad gemaakt, alle verborgen bladen worden niet weergegeven in de tabelinhoud, zie screenshot:
4. Formulier nu, bij het verwijderen, invoegen of hernoemen van een blad, wordt de tabelinhoud dynamisch bijgewerkt.
Maak een inhoudsopgave voor alle bladen en updates automatisch met een krachtige functie
Als je Kutools for Excel, het is Navigatie paneel kan u helpen om alle bladnamen verticaal in een linkerdeelvenster te plaatsen en snel en gemakkelijk naar het specifieke blad te navigeren.
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Klik Kutools > Navigatie, zie screenshot:
2. In het uitgebreide Navigatie venster, klik op Werkboek en blad pictogram, alle geopende werkmappen worden weergegeven in de bovenste keuzelijst en alle zichtbare bladen in de werkmap worden weergegeven in de onderste keuzelijst, zie screenshot:
3. En nu kunt u naar het blad gaan door op de bladnaam in het linkerdeelvenster te klikken. En wanneer u een blad verwijdert, invoegt of hernoemt, wordt de lijst met bladen in het paneel dynamisch bijgewerkt.
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!