Jak otevřít list výběrem jeho názvu v poli se seznamem v aplikaci Excel?

Předpokládejme, že máte v sešitu aplikace Excel Combo Box obsahující seznam všech názvů listů. Chcete otevřít konkrétní list výběrem jeho názvu z pole se seznamem. Tato příručka ukazuje, jak toho dosáhnout pomocí kódu VBA, s kroky k naplnění Combo Boxu názvy listů a povolení požadované funkce.

Otevřete list výběrem jeho názvu v poli se seznamem s kódem VBA

Otevřete list výběrem jeho názvu v poli 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ě.

Pozor: Pokud Combo Box neobsahuje žádný název listu ve vašem listu, postupujte podle níže uvedeného tipu a rychle přidejte všechny názvy listů do tohoto Combo Boxu. Pokud již existuje Combo Box obsahující všechny názvy listů, pokračujte přímo na kroku 1.

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

Pozor: 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í výběrem libovolného názvu listu v poli se seznamem se automaticky otevře odpovídající list.

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?