Tento tutoriál ukáže, ako používať validáciu údajov na prácu s rozbaľovacími zoznammi v programe Excel pomocou VBA.
Validácia údajov programu Excel vám umožňuje obmedziť hodnoty, ktoré je možné zadať do bunky alebo rozsahu. Záznamy môžete obmedziť na kladné celé čísla, text, dátumy a oveľa viac. V tomto tutoriále sa pozrieme na to, ako vytvoriť rozbaľovací zoznam na overenie údajov v bunke pomocou VBA.
Poznámka: Alternatívou k rozbaľovaciemu zoznamu Overenie údajov je objekt ListBox. ListBoxe je možné pridať do pracovných hárkov Excelu. ListBoxy môžu spúšťať makrá, ktoré sa spustia pri každej zmene hodnoty ListBox. ListBoxy sa používajú aj v užívateľských formulároch VBA.
Vytvorenie rozbaľovacieho zoznamu pomocou VBA
V bunke A1 je text Ovocie a v bunke A2 vytvoríme rozbaľovací zoznam s piatimi položkami.
Použijeme metódu Validation.Add a špecifikujeme, že parameter Type je xlValidateList. Konkrétne položky, ktoré by ste chceli, môžete pridať do svojho zoznamu pomocou parametra Formula1.
Nasledujúci kód vytvorí rozbaľovací zoznam na overenie údajov v bunke A2:
| 123456 | Sub DropDownListinVBA ()Rozsah ("A2"). Validation.Add Typ: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "Pomaranč, jablko, mango, hruška, broskyňa"Koniec pod |
Výsledkom je:
Naplňte rozbaľovací zoznam z pomenovaného rozsahu vo VBA
Pomenovaný rozsah obsahujúci položky môžete použiť na vyplnenie rozbaľovacieho zoznamu vo VBA. Nižšie uvádzame pomenovaný rozsah Zvieratá:
Parameter Formula1 musíme nastaviť tak, aby sa rovnal pomenovanému rozsahu. Nasledujúci kód vytvorí rozbaľovací zoznam na overenie údajov v bunke A7 na základe položiek v pomenovanom rozsahu:
| 123456 | SubpopulateFromANamedRange ()Rozsah ("A7"). Validation.Add Typ: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "= Zvieratá"Koniec pod |
Výsledkom je:
Odstránenie rozbaľovacieho zoznamu
Na odstránenie rozbaľovacieho zoznamu z bunky môžete použiť metódu Validation.Delete. Nasledujúci kód by odstránil rozbaľovací zoznam z bunky A7 vo vyššie uvedenom príklade:
| 12345 | Sub RemoveDropDownList ()Rozsah („A7“). Validation.DeleteKoniec pod |
