Hoe maak je een dynamische lijst met werkbladnamen in Excel?
Als u meerdere bladen in een werkmap heeft en u wilt een dynamische lijst met alle bladnamen in een nieuw blad in de werkmap maken, hoe kunt u dat dan doen? Nu introduceert deze tutorial enkele trucs om deze missie snel in Excel te voltooien.
Maak een dynamische lijst met werkbladnamen met Naam en formule definiëren
Maak een dynamische lijst met werkbladnamen met VBA-code
Maak een dynamische lijst met werkbladnamen met Kutools voor Excel
Geef een dynamische lijst met werkbladnamen weer met Kutools voor Excel
Maak een dynamische lijst met werkbladnamen met Naam en formule definiëren
1. Selecteer een cel in een leeg blad, hier selecteer ik A1, en klik dan Formules > Definieer naam. zie screenshot:
2. Vervolgens in de Nieuwe naam dialoogvenster, type Sheets in de Naam textbox (u kunt naar behoefte wijzigen) en typ deze formule = VERVANGEN (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") in het tekstvak Verwijst naar. Zie screenshot:
3. klikken OK. Ga naar de geselecteerde cel (A1) en typ deze formule = INDEX (Sheets, ROWS ($ A $ 1: $ A1)) (A1 is de cel waarin u deze formule typt, "Bladen" is de naam die u in stap 2 hebt gedefinieerd) erin en sleep de hendel voor automatisch aanvullen naar beneden tot #REF! verschijnt.
Tip: Als er werkbladen zijn verwijderd of toegevoegd, moet u naar A1 gaan en op de Enter-toets drukken en vervolgens de hendel voor automatisch aanvullen opnieuw wissen.
Maak een dynamische lijst met werkbladnamen met VBA-code
Als u een dynamische lijst met werkbladnamen wilt maken die naar elk blad kan linken, kunt u VBA-code gebruiken.
1. Maak een nieuw werkblad en hernoem het naar Index. Zie screenshot:
2. Klik met de rechtermuisknop op de bladnaam van Index, selecteer Bekijk code vanuit het contextmenu. Zie screenshot:
3. Kopieer en plak in het popping-venster de onderstaande VBA-code erin.
VBA: maak een dynamische lijst met werkbladnamen.
Private Sub Worksheet_Activate()
'Updateby20150305
Dim xSheet As Worksheet
Dim xRow As Integer
Dim calcState As Long
Dim scrUpdateState As Long
Application.ScreenUpdating = False
xRow = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each xSheet In Application.Worksheets
If xSheet.Name <> Me.Name Then
xRow = xRow + 1
With xSheet
.Range("A1").Name = "Start_" & xSheet.Index
.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
SubAddress: = "Index", TextToDisplay: = "Back to Index"
End With
Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
End If
Next
Application.ScreenUpdating = True
End Sub
4. klikken lopen or F5 om de VBA uit te voeren, wordt nu een dynamische lijst met werkbladnamen gemaakt.
Tip:
1. Wanneer het werkblad van de werkmap wordt verwijderd of ingevoegd, wordt de lijst met werkbladnamen automatisch gewijzigd.
2. U kunt op de bladnaam van de namenlijst klikken om naar het blad te gaan.
Met bovenstaande twee methoden zijn niet handig genoeg, als u geïnteresseerd bent in een nieuw hulpprogramma, kunt u de volgende twee methoden gebruiken die deze taak misschien gemakkelijker maken.
Maak een dynamische lijst met werkbladnamen met Kutools voor Excel
Als u alleen snel alle werkbladnamen van de werkmap wilt weergeven en deze wilt koppelen aan de originele bladen, kunt u gebruiken Kutools for Excel's Maak een lijst met bladnamen.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. | ||
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Koetools Plus > Werkblad > Maak een lijst met bladnamen. Zie screenshot:
2. In de Maak een lijst met bladnamen dialoog:
(2) Geef het nieuwe indexblad een naam door de gegevens in te typen Geef de bladnaam op voor de bladindex tekstvak;
(3) Specificeer de locatie waar u het toegevoegde indexblad in het Voer de bladindex in lijst;
(4) Als u de bladnamen in een enkele lijst wilt weergeven, selecteert u 1 kolom in Bladindex weergeven in lijst.
3. klikken Ok. Nu kunt u zien dat de bladnamen worden vermeld.
Tips:
1. U kunt op de bladnaam klikken om snel naar het oorspronkelijke blad te gaan.
2. De lijst- of bladnamen kunnen niet dynamisch veranderen wanneer de bladen worden ingevoegd of verwijderd.
3. Eigenlijk kunt u ook een lijst met knoppen maken om het relatieve blad te koppelen, u hoeft dit alleen maar te controleren Bevat knoppen en macro's in het dialoogvenster. zie screenshot:
Klik hier voor meer informatie over Lijst met bladnamen maken.
Maak een klikbare lijst met bladnamen
Kutools for Excel: 300+ functies die u in Excel moet hebben, 30 dagen gratis proefperiode vanaf hier |
Geef een dynamische lijst met werkbladnamen weer met Kutools voor Excel
Als je With Kutools for Excel, kunt u ook de Navigatie hulpprogramma om de koppelbare werkbladnamen in een paneel weer te geven
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Kutools > Navigatie. Klikken Werkboek en blad om de werkmap en het werkblad weer te geven en u kunt een werkmap selecteren, waarna de werkbladen worden weergegeven in het Navigatie paneel. Zie screenshot:
Tip:
Als er werkbladen zijn verwijderd of toegevoegd, kunt u op het knop vernieuwen in de Navigation-paneel om de werkbladnamen te vernieuwen.
Klik hier voor meer informatie over navigatie.
Navigatiedeelvenster - Lijstbladen
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!