Hvordan oprettes en rulleliste med hyperlinks til hvert ark i Excel?
Måske har du oprettet en rulleliste før, men har du nogensinde oprettet en rulleliste med hyperlinks til hvert ark i Excel som vist nedenstående skærmbillede?
Opret en rulleliste med arkhyperlinks
Opret en liste over ark med hyperlinks
Opret en rulleliste med arkhyperlink
Der er kun en VBA-kode, der kan håndtere jobbet i Excel.
1. klik Udvikler > indsatte > Kombinationsboks (ActiveX-kontrol).
Bemærk: Hvis udviklerfanen ikke vises i båndet, skal du klikke File (Felt) > Indstillinger > Tilpas bånd, og tjek derefter Udvikler i højre boks. Se skærmbillede:
2. Tegn derefter en kombinationsboks hvor som helst du vil.
3. Højreklik på det ark, du tegnede kombinationsboksen lige nu, og klik Vis kode fra kontekstmenuen.
4. Kopier og indsæt nedenstående kode i det blanke script, og gem det for at gå tilbage til arket.
VBA: Opret rulleliste med arklink
Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
Dim I As Long
Me.ComboBox1.Style = fmStyleDropDownList
If Me.ComboBox1.ListCount <> Sheets.Count Then
Me.ComboBox1.Clear
For I = 1 To ActiveWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
End If
Me.ComboBox1.DropDown
End Sub
5. klik Udvikler > Design Mode for at forlade designtilstanden.
Nu er alle ark opført i rullelisten, og det vil gå til arket, mens du klikker på arknavnet.
Opret en liste over ark med hyperlinks
Hvis du bare vil oprette en liste over klikbare arknavne som vist nedenfor, kan du ansøge Kutools for Excel's Create List of Sheet Names funktion, som kan oprette en liste over hyperlinks om arknavne eller liste over makroknapper om arknavne.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)
1. klik Kutools Plus > Arbejdsark > Create List of Sheet Names.
2. i Create List of Sheet Names dialog, gør som nedenfor:
(1). Kontrollere Contains a list of hyperlinks< for at oprette en liste over klikbare arknavne, eller afkryds Contains buttons and macros at oprette knapper, der linker til hvert ark.
(2). Giv det nye ark, som du vil placere hyperlinks i et navn.
(3). Angiv placeringen af det nye ark.
(4). Angiv de viste arklinks som hvor mange kolonner.
3. klik på Ok, nu er de klikbare arknavne blevet vist i et nyt ark.
Demo
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!