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.
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:
- Jak kopírovat hodnotu pole se seznamem do aktivní buňky v aplikaci Excel?
- Jak zobrazit formát data ve výstupu pole se seznamem v aplikaci Excel?
- Jak skrýt nebo odkrýt příkazové tlačítko na základě zadané hodnoty buňky v aplikaci Excel?
- Jak zabránit nebo zakázat psaní v poli se seznamem v aplikaci Excel?
- Jak vybrat tabulku z rozbalovacího seznamu a vybrat konkrétní buňku v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!