Ez az oktatóanyag bemutatja, hogyan kell használni az adatellenőrzést az Excel legördülő listáival való munkához VBA használatával.
Az Excel adatellenőrzés lehetővé teszi, hogy korlátozza, hogy milyen érték (ek) adhatók meg egy cellában vagy tartományban. Korlátozhatja a bejegyzéseket pozitív egész számokra, szövegre, dátumokra és még sok másra. Ebben az oktatóanyagban megvizsgáljuk, hogyan hozhat létre adatellenőrzési legördülő listát egy cellában VBA használatával.
Megjegyzés: Az adatellenőrzés legördülő listájának alternatívája a ListBox objektum. A ListBoxok hozzáadhatók az Excel munkalapokhoz. A ListBoxok olyan makrókat indíthatnak el, amelyek minden alkalommal futnak, amikor a ListBox értéke megváltozik. A ListBoxokat a VBA Userforms -ban is használják.
Legördülő lista létrehozása a VBA használatával
Az A1 cellában a Gyümölcs szöveg szerepel, és az A2 cellában egy legördülő listát fogunk létrehozni, öt bejegyzéssel.
A Validation.Add metódust fogjuk használni, és megadjuk, hogy a Type paraméter az xlValidateList. A kívánt elemeket hozzáadhatja a listához a Formula1 paraméter használatával.
A következő kód létrehoz egy adatellenőrző legördülő listát az A2 cellában:
| 123456 | Sub DropDownListinVBA ()Tartomány ("A2"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "Narancs, alma, mangó, körte, őszibarack"End Sub |
Az eredmény:
Töltsön le egy legördülő listát a VBA név szerinti tartományából
Használhatja az elemeket tartalmazó elnevezett tartományt a VBA legördülő listájának kitöltéséhez. Az alábbiakban bemutatjuk az állatok megnevezett tartományát:
Be kell állítanunk a Formula1 paramétert a megnevezett tartományt. A következő kód létrehoz egy adatellenőrző legördülő listát az A7 cellában a megnevezett tartomány elemei alapján:
| 123456 | Sub populateFromANamedRange ()Tartomány ("A7"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Képlet1: = "= Állatok"End Sub |
Az eredmény:
A legördülő lista eltávolítása
A Validation.Delete módszerrel eltávolíthatja a legördülő listát a cellából. A következő kód eltávolítja a legördülő listát az A7 cellából a fenti példában:
| 12345 | Sub RemoveDropDownList ()Tartomány ("A7"). Validation.DeleteEnd Sub |
