Přejít k hlavnímu obsahu

Jak otevřít konkrétní list podle vybrané hodnoty pole se seznamem v aplikaci Excel?

Předpokládejme, že máte rozevírací seznam, který obsahuje všechny názvy listů aktuálního sešitu, jak je uvedeno níže. A teď chcete otevřít konkrétní list při výběru odpovídajícího názvu listu v rozevíracím seznamu. Jak toho dosáhnout? Metoda v tomto článku vám může pomoci.

Otevřete konkrétní list o vybranou hodnotu pole se seznamem s kódem VBA


Otevřete konkrétní list o vybranou hodnotu pole se seznamem s kódem VBA

Níže uvedený kód VBA vám pomůže přejít na konkrétní list založený na výběru pole se seznamem v aplikaci Excel. Postupujte prosím následovně.

Poznámka: Pokud pole se seznamem neobsahuje v listu žádný název listu, postupujte podle níže uvedeného tipu a rychle přidejte všechny názvy listů do tohoto pole se seznamem. A pokud již existuje rozbalovací seznam obsahující všechny názvy listů, přejděte na kroku 1 přímo.

Tip: Vložte příkazové tlačítko 1 do listu, klikněte na něj pravým tlačítkem a vyberte Zobrazit kód z nabídky pravého kliknutí. Poté zkopírujte a vložte níže uvedený kód VBA do Kód okno a stiskněte Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikaci okno. Klikněte na vložené příkazové tlačítko, poté se do ComboBox1 automaticky přidají všechny názvy listů aktuálního sešitu.

Kód VBA: Snadno přidejte všechny názvy listů do rozevíracího seznamu

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Pokud již existuje rozbalovací seznam obsahující všechny názvy listů, postupujte následovně.

1. Zapnout Režim návrhu pod Vývojka Karta.

2. Klikněte pravým tlačítkem na rozbalovací seznam s názvy listů a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

pole se seznamem dokumentů otevřený list 12png

3. Potom Microsoft Visual Basic pro aplikace Zobrazí se okno, nahraďte prosím původní kód VBA v okně Kód níže uvedeným kódem VBA.

Kód VBA: Otevřete konkrétní list podle vybrané hodnoty pole se seznamem

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

Poznámka: v kódu je ComboBox1 název pole se seznamem, které obsahuje názvy listů.

4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno a vypněte Režim návrhu pod Vývojka Karta.

Nyní, když vyberete jakýkoli název listu v rozevíracím seznamu, automaticky se otevře odpovídající list.


Snadný seznam všech názvů listů aktuálního sešitu v aplikaci Excel:

Použití indexu listů v sešitu vám usnadní správu listů. S Vytvořte seznam názvů listů užitečnost Kutools pro Excel, můžete snadno vytvořit index listu obsahující všechny názvy listů v aktuálním sešitu. Poté se můžete rychle přesunout na určitý list pouhým kliknutím na název listu v listu Index. Viz níže uvedený snímek obrazovky:
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations