Hoe navigeer je tussen werkbladen met behulp van een vervolgkeuzelijst in Excel?
Stel dat je een werkboek hebt dat meerdere werkbladen bevat, en nu wil je een vervolgkeuzelijst of combobox maken die alle bladnamen opsomt. Wanneer je een bladnaam selecteert uit de vervolgkeuzelijst, springt het direct naar dat blad. In dit artikel introduceer ik hoe je tussen werkbladen kunt navigeren met behulp van een vervolgkeuzelijst in Excel.
Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst in Excel
Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst in Excel
Om naar elk geselecteerd blad te springen met behulp van een vervolgkeuzelijst, volg dan de volgende stappen:
1. Klik op Ontwikkelaar > Invoegen > Combobox (ActiveX-besturingselement), zie screenshot:
2. Sleep vervolgens de muis om een combobox te tekenen, en klik er met de rechtermuisknop op, selecteer Code weergeven in het contextmenu, zie screenshot:
3. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code om de originele code te vervangen, zie screenshot:
VBA-code: Navigeer tussen werkbladen met behulp van een vervolgkeuzelijst
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. Sla daarna deze codewindow op en sluit het, en klik vervolgens op Ontwerpmodus om de ontwerpmodus uit te schakelen. Nu, wanneer je een bladnaam selecteert uit de combobox, springt het direct naar dat blad, zie screenshot:
Navigeer tussen werkbladen met behulp van hyperlinks of knoppen: Met het hulpprogramma Bladnamenlijst maken van Kutools voor Excel kun je snel alle werkbladnamen in een nieuw werkblad opsommen met hyperlinks of macroknoppen, waarna je ernaar kunt navigeren naar behoefte.
Kutools voor Excel: meer dan 300 handige Excel-add-ins, gratis te proberen zonder beperking gedurende 30 dagen. Download en probeer het nu gratis! |
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen