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

Jak se pohybovat mezi listy pomocí rozevíracího seznamu v aplikaci Excel?

Předpokládejme, že máte sešit, který obsahuje více listů, nyní musíte vytvořit rozevírací seznam nebo rozbalovací seznam se seznamem všech názvů listů a když vyberete jeden název listu z rozevíracího seznamu, okamžitě na něj přeskočí. V tomto článku představím, jak procházet mezi listy pomocí rozevíracího seznamu v aplikaci Excel.

Procházejte mezi listy pomocí rozevíracího seznamu v aplikaci Excel


Procházejte mezi listy pomocí rozevíracího seznamu v aplikaci Excel

Chcete-li přeskočit na každý vybraný list pomocí rozevíracího seznamu, proveďte následující kroky:

1, klikněte Vývojka > Vložit > Rozbalovací seznam (ovládací prvek ActiveX), viz screenshot:

2. Poté tažením myši nakreslete pole se seznamem a poté na něj klikněte pravým tlačítkem, vyberte Zobrazit kód z kontextové nabídky viz screenshot:

3. V otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód, který nahradí původní kód, viz screenshot:

Kód VBA: Procházejte mezi listy pomocí rozevíracího seznamu

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. Poté uložte a zavřete toto okno s kódem a poté klikněte Režim návrhu Chcete-li vypnout režim návrhu, nyní při výběru jednoho názvu listu z rozbalovacího seznamu přejde na tento list najednou, viz screenshot:


Procházejte mezi listy pomocí hypertextových odkazů nebo tlačítek:

S Kutools pro Excel's Vytvořte seznam názvů listů nástroj, můžete rychle vypsat všechny názvy listů v novém listu pomocí hypertextových odkazů nebo tlačítek maker, poté můžete mezi nimi procházet podle svých potřeb.

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (12)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jak mohu aktivovat skrytý list a skrýt domovskou stránku?
Tento komentář byl moderátorem webu minimalizován
Jak mohu přidat pouze konkrétní listy? a ne celý list v sešitu
Tento komentář byl moderátorem webu minimalizován
Podařilo se vám najít kód pro zobrazení pouze určitých listů v rozevíracím poli?
Tento komentář byl moderátorem webu minimalizován
Jak to změníte, aby se zobrazovaly/vybíraly pouze viditelné listy?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Chcete-li ignorovat skryté listy z rozevíracího seznamu a zachovat pouze viditelné listy, může vám pomoci následující kód VBA:

Private Sub ComboBox1_Change()
'Aktualizovat 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
Pokud ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Vymazat
Pro každý xSheet v ThisWorkbook.Sheets
If xSheet.Visible Then
ComboBox1.AddItem xSheet.Name
End If
Další xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Fungovalo to! Děkuji! Víte, zda tento kód způsobí problémy při přejmenování listů nebo bude seznam automaticky aktualizovat?
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Výše uvedený kód funguje dobře při přejmenování názvu listu a položky v rozevíracím seznamu se automaticky aktualizují.
Můžeš to zkusit.
Tento komentář byl moderátorem webu minimalizován
díky za váš kód. Funguje pro přepínání různých listů na základě rozevíracího seznamu.
Ale mám několik otázek.
1. poté, co zpracuji související list a chci se vrátit do hlavní nabídky (s rozevíracím seznamem listů), jak bych se mohl obejít bez použití myši?
2. Když otevřu soubor, chtěl bych hlavní nabídku (s rozevíracím seznamem) jako výchozí. Takže bych mohl začít z tohoto menu
Díky
růže
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Velice vám děkuji za kód, který vytváří dynamické pole se seznamem pro navigaci v listech. Bohužel jsem dostal chybu. Po procházení několika listů se soubor automaticky zavře. Nezobrazuje ani žádné chybové hlášení. Nemohl jsem přijít na důvod. Oceňuji pomoc
Díky
Tento komentář byl moderátorem webu minimalizován
stejná chyba, přišel jsi na to?
Tento komentář byl moderátorem webu minimalizován
ahoj, je možné podle toho kombinovat různé možnosti z různých rozevíracích a otevřených listů.

např.: pokud je vybrána možnost 1 z rozevíracího seznamu 1 a možnost 2 z rozevíracího seznamu 2, otevře se pouze list 2
Tento komentář byl moderátorem webu minimalizován
Rozbalovací seznam neotevře skryté listy, je schopen otevřít skryté listy?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL