Seznam je seznam, ze kterého si uživatel může vybrat položku. Chcete -li vytvořit a seznam v Excel VBA, proveďte následující kroky.
1. Na kartě Vývojář klikněte na Vložit.
2. Ve skupině Ovládací prvky ActiveX klikněte na Seznam.
3. Přetáhněte pole seznamu na listu.
Poznámka: název ovládacího prvku můžete změnit kliknutím pravým tlačítkem na ovládací prvek (ujistěte se, že je vybrán režim návrhu) a poté kliknutím na Vlastnosti. Prozatím ponecháme ListBox1 jako název pole se seznamem.
Vytvořte událost otevření sešitu. Kód přidaný do události Otevření sešitu bude spuštěn aplikací Excel VBA při otevření sešitu.
4. Otevřete editor jazyka.
5. Poklepejte na Tento sešit v Průzkumníku projektů.
6. Z levého rozevíracího seznamu vyberte Sešit a z pravého rozevíracího seznamu zvolte Otevřít.
7. Chcete -li přidat položky do seznamu, přidejte do události Otevření sešitu následující řádky kódu:
S Sheet1.ListBox1
.Přidat položku „Paříž“
.AddItem „New York“
.Přidat položku „Londýn“
Konec s
Poznámka: použijte List2, pokud je pole se seznamem umístěno na druhém listu, List3, pokud je pole se seznamem umístěno na třetím listu atd. Pokud tyto řádky kódu použijete mimo událost Otevřít sešit, možná budete chtít přidat následující řádek kódu před těmito řádky kódu. Tento řádek kódu vymaže pole se seznamem. Tímto způsobem nebudou vaše položky přidány vícekrát, pokud spustíte kód více než jednou.
ListBox 1. Jasné
8. Chcete -li propojit toto pole se seznamem s buňkou, klikněte pravým tlačítkem na seznam (zkontrolujte, zda je vybrán režim návrhu) a klikněte na Vlastnosti. Vyplňte D3 pro LinkedCell.
Poznámka: viz také vlastnost ListFillRange k vyplnění pole se seznamem buněk.
9. Uložte, zavřete a znovu otevřete soubor aplikace Excel.
Výsledek:
Ačkoli v některých situacích může být užitečné přímo umístit pole seznamu na list, pole seznamu je zvláště užitečné, když je umístěno na Userform.
