Jak naplnit Userform ComboBox se všemi názvy listů v aplikaci Excel?

Tento článek hovoří o naplnění všech názvů listů aktuálního sešitu do uživatelského pole se seznamem v aplikaci Excel.

Naplňte Userform ComboBox všemi názvy listů kódem VBA

Naplňte Userform ComboBox všemi názvy listů kódem VBA

Následující kód VBA vám pomůže vložit všechny názvy listů aktuálního sešitu do rozbalovacího seznamu userform. Postupujte prosím následovně.

1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, vložte Userform kliknutím Vložit > Formulář uživatele jak je ukázáno níže.

3. Poté nakreslete a vložte ovládací prvek se seznamem do formuláře Userform. Viz screenshot:

4. Klepněte pravým tlačítkem na vložené rozevírací pole a vyberte Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:

5. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte pod kód VBA a v okně Kód nahraďte původní.

Kód VBA: Naplňte Userform ComboBox všemi názvy listů aktuálního sešitu

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Pozor: V kódu je ComboBox1 název vloženého Combo Boxu. Změňte jej prosím na svůj vlastní.

6. zmáčkni F5 klíč ke spuštění kódu. V úvodním uživatelském formuláři můžete vidět všechny názvy listů aktuálního sešitu, které se zobrazují v poli se seznamem, jak je uvedeno níže:

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 otevřít konkrétní list podle vybrané hodnoty pole se seznamem 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?