Preskoči na glavno vsebino

Kako krmariti med delovnimi listi s pomočjo spustnega seznama v Excelu?

Recimo, da imate delovni zvezek, ki vsebuje več delovnih listov, zdaj morate ustvariti spustni seznam ali kombinirano polje, v katerem so navedena vsa imena listov in ko izberete eno ime lista s spustnega seznama, bo takoj preskočil na ta list. V tem članku bom predstavil, kako se s pomočjo spustnega seznama v Excelu premikate med delovnimi listi.

Premikajte se med delovnimi listi s pomočjo spustnega seznama v Excelu


Premikajte se med delovnimi listi s pomočjo spustnega seznama v Excelu

Če želite s pomočjo spustnega seznama skočiti na vsak izbrani list, naredite naslednje:

1. Kliknite Razvojni > Vstavi > Kombinirana škatla (nadzor ActiveX), glej posnetek zaslona:

2. Nato povlecite miško, da narišete kombinirano polje, in nato z desno miškino tipko kliknite in izberite Ogled kode v priročnem meniju si oglejte posnetek zaslona:

3. V odprti Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo, da zamenjate prvotno kodo, glejte posnetek zaslona:

Koda VBA: premikajte se med delovnimi listi s spustnim seznamom

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. Nato shranite in zaprite to okno s kodo in kliknite Način oblikovanja če želite izklopiti način oblikovanja, bo zdaj, ko izberete eno ime lista iz kombiniranega polja, šel na ta list hkrati, glejte posnetek zaslona:


Premikajte se med delovnimi listi s pomočjo hiperpovezav ali gumbov:

z Kutools za Excel's Ustvari seznam imen listov Pripomoček lahko na hitro poiščete vsa imena delovnih listov na novem listu s hiperpovezavami ali gumbi makra, nato pa lahko med njimi krmarite po svojih željah.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The drop down list will not open hidden sheets, is it able to open hidden sheets?
This comment was minimized by the moderator on the site
hi, is it possible to combine various option from different dropdowns and open sheets accordingly.

eg: if Option1 from dropdown1 is selected and Option2 from dropdown2 is selected then only the Sheet2 will open
This comment was minimized by the moderator on the site
hi there,
Thank you very much for the code which create a dynamic combo box to navigate the sheets. Unfortunately I got an error. After navigating few sheets, the file automatically close. It doesn't even show any error message. I couldn't figure out the reason. I appreciate the help
Thanks
This comment was minimized by the moderator on the site
same error too, Did you figure it out?
This comment was minimized by the moderator on the site
thanks for your code. It works for switching different sheet based on dropdown list.
But I have several questions.
1. after I process the related sheet, and want to go back to main menu(with sheet dropdown list), how could I do without using mouse?
2. when I open the file, I would like the main menu(with dropdown list) as default . So I could start from this menu
thanks
rose
This comment was minimized by the moderator on the site
How do you change this to only show/select visible worksheets?
This comment was minimized by the moderator on the site
Hi,
To ignore the hidden sheets from the drop down list, and only keep the visible worksheets, the following VBA code may help you:

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
If xSheet.Visible Then
ComboBox1.AddItem xSheet.Name
End If
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

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
It worked! Thank you! Do you know if this code will cause problems if sheets are renamed or will it update the list automatically?
This comment was minimized by the moderator on the site
Hello,
The above code works well when renaming the sheet name and the items in the drop down list will be updated automatically.
You can try it.
This comment was minimized by the moderator on the site
How can I add only specific sheets? and not all the sheet in the workbook
This comment was minimized by the moderator on the site
Did you have any joy finding code to show only certain sheets in the dropdown box?
This comment was minimized by the moderator on the site
How can I make the hidden sheet active and hide the home page?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations