Rozbalovací pole je rozevírací seznam, ze kterého si uživatel může vybrat položku nebo vyplnit svou vlastní volbu. Chcete -li vytvořit a kombinovaný box v Excel VBA, proveďte následující kroky.
1. Na kartě Vývojář klikněte na Vložit.
2. Ve skupině ovládacích prvků ActiveX klikněte na pole se seznamem.
3. Přetáhněte pole se seznamem 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 ComboBox1 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 pole se seznamem, přidejte do události Otevření sešitu následující řádky kódu:
S Sheet1.ComboBox1
.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 použijete tyto řádky kódu mimo událost Otevřít sešit, možná budete chtít přidat řádky kódu níže před těmito řádky kódu. První řá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. Druhý řádek kódu vymaže vaši vlastní volbu.
ComboBox 1. Jasné
ComboBox1.Value = ""
8. Chcete -li propojit toto pole se seznamem s buňkou, klikněte pravým tlačítkem na pole se seznamem (ujistěte se, že je vybrán režim návrhu) a klikněte na Vlastnosti. Vyplňte D2 pro LinkedCell.
Poznámka: viz také vlastnost ListFillRange pro vyplnění pole se seznamem s rozsahem 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 se seznamem na list, pole se seznamem je zvláště užitečné, když je umístěno na Userform.
