Note: The other languages of the website are Google-translated. Back to English

Hur navigerar jag mellan kalkylblad med rullgardinsmenyn i Excel?

Om du antar att du har en arbetsbok som innehåller flera kalkylblad, nu måste du skapa en rullgardinslista eller kombinationsruta som listar alla arknamn och när du väljer ett arknamn från rullgardinslistan hoppar det omedelbart till det arket. Den här artikeln kommer jag att presentera hur man navigerar mellan kalkylblad med hjälp av en rullgardinslista i Excel.

Navigera mellan kalkylblad med rullgardinsmenyn i Excel


Navigera mellan kalkylblad med rullgardinsmenyn i Excel

För att hoppa till varje valt ark genom att använda en rullgardinslista gör du med följande steg:

1. Klicka Utvecklare > Insert > Kombinationsbox (ActiveX Control), se skärmdump:

2. Dra sedan musen för att rita en kombinationsruta och högerklicka sedan på den, välj Visa kod från snabbmenyn, se skärmdump:

3. I det öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande kod för att ersätta den ursprungliga koden, se skärmdump:

VBA-kod: Navigera mellan kalkylblad med hjälp av rullgardinsmenyn

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. Spara och stäng sedan kodfönstret och klicka sedan på Designläge för att stänga av designläget, nu, när du väljer ett arknamn från kombinationsrutan, kommer det att gå till det arket på en gång, se skärmdump:


Navigera mellan kalkylblad med hyperlänkar eller knappar:

Med Kutools för Excel's Skapa lista över arknamn verktyget kan du snabbt lista alla kalkylarknamn i ett nytt ark med hyperlänkar eller makroknappar, sedan kan du navigera mellan dem efter behov.

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (12)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kan jag göra det dolda arket aktivt och dölja startsidan?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kan jag bara lägga till specifika ark? och inte alla ark i arbetsboken
Denna kommentar minimerades av moderatoren på webbplatsen
Hade du någon glädje att hitta kod för att bara visa vissa ark i rullgardinsmenyn?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur ändrar du detta till att bara visa/välja synliga arbetsblad?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
För att ignorera de dolda arken från rullgardinsmenyn och bara behålla de synliga arbetsbladen, kan följande VBA-kod hjälpa dig:

Private Sub ComboBox1_Change()
'Uppdatering av Extendoffice
Om ComboBox1.ListIndex > -1 Då Sheets(ComboBox1.Text). Välj
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet Som arbetsblad
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Om ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
För varje xSheet I ThisWorkbook.Sheets
Om xSheet.Visible Då
ComboBox1.AddItem xSheet.Name
End If
Nästa xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
Om ComboBox1.ListCount <> 0 Då ComboBox1.DropDown
End Sub

Prova det, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerade! Tack! Vet du om den här koden kommer att orsaka problem om ark byter namn eller kommer den att uppdatera listan automatiskt?
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,
Ovanstående kod fungerar bra när du byter namn på arknamnet och objekten i rullgardinsmenyn kommer att uppdateras automatiskt.
Du kan försöka.
Denna kommentar minimerades av moderatoren på webbplatsen
tack för din kod. Det fungerar för att byta olika ark baserat på rullgardinsmenyn.
Men jag har flera frågor.
1. efter att jag bearbetat det relaterade arket och vill gå tillbaka till huvudmenyn (med arkrullgardinslista), hur skulle jag kunna göra utan att använda musen?
2. När jag öppnar filen vill jag ha huvudmenyn (med rullgardinslista) som standard. Så jag kunde börja från den här menyn
tack
reste sig
Denna kommentar minimerades av moderatoren på webbplatsen
hi there,
Tack så mycket för koden som skapar en dynamisk kombinationsruta för att navigera i arken. Tyvärr fick jag ett fel. Efter att ha navigerat några ark stängs filen automatiskt. Den visar inte ens något felmeddelande. Jag kunde inte komma på orsaken. Jag uppskattar hjälpen
Tack
Denna kommentar minimerades av moderatoren på webbplatsen
samma fel också, kom du på det?
Denna kommentar minimerades av moderatoren på webbplatsen
hej, är det möjligt att kombinera olika alternativ från olika rullgardinsmenyer och öppna ark därefter.

t.ex.: om Alternativ1 från rullgardinsmeny1 är valt och Alternativ2 från rullgardinsmenyn2 är valt så öppnas endast Blad2
Denna kommentar minimerades av moderatoren på webbplatsen
Rullgardinslistan kommer inte att öppna dolda ark, kan den öppna dolda ark?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL