Hvordan navigerer man mellem regneark ved hjælp af rullelisten i Excel?
Antag, at du har en projektmappe, der indeholder flere regneark, nu skal du oprette en rulleliste eller kombinationsboks, der viser alle arknavne, og når du vælger et arknavn fra rullelisten, springer det straks til det ark. Denne artikel vil jeg introducere, hvordan du navigerer mellem regneark ved hjælp af en rulleliste i Excel.
Naviger mellem regneark ved hjælp af rullelisten i Excel
Naviger mellem regneark ved hjælp af rullelisten i Excel
For at springe til hvert valgte ark ved hjælp af en rulleliste skal du gøre følgende:
1. Klik Udvikler > indsatte > Kombinationsboks (ActiveX-kontrol), se skærmbillede:
2. Træk derefter musen for at tegne et kombinationsfelt, og højreklik derefter på det, vælg Vis kode fra kontekstmenuen, se skærmbillede:
3. I åbnet Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode for at erstatte den originale kode, se skærmbillede:
VBA-kode: Naviger mellem regneark ved hjælp af rullelisten
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. Gem og luk derefter dette kodevindue, og klik derefter på Design Mode for at deaktivere designtilstanden, når du vælger et arknavn fra kombinationsboksen, går det til det ark på én gang, se skærmbillede:
Naviger mellem regneark ved hjælp af hyperlinks eller knapper:
Med Kutools til Excel's Opret liste over arknavne værktøj, kan du hurtigt liste alle regnearknavne i et nyt ark med hyperlinks eller makroknapper, så kan du navigere mellem dem til dit behov.
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu! |
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!