Šajā rakstā mēs uzzināsim, kā pievienot ievades ziņojumu datu validācijā, ievadot konkrētus ierakstus šūnā, izmantojot VBA programmā Microsoft Excel.
Datu validācija ir rīks, ko izmanto, lai ierobežotu diapazona vai datu ievadīšanu, lai mēs varētu noteikt, kāda veida dati jāievada lapā.
Ņemsim piemēru un sapratīsim:-
Mums slejā D ir valstu nosaukums, un šūnā A1 mēs vēlamies izveidot nolaižamo filtru valstu nosaukumiem.
Mēs vēlamies izcelt šūnu A1 un izveidot nolaižamo sarakstu ar valstu nosaukumu un ievietot ziņojumu, lai lietotāji zinātu, kuri ieraksti ir jāievada diapazonā.
Izpildiet tālāk norādītās darbības un kodu:-
- Atveriet VBE lapu, lai nospiestu taustiņu Alt+F11.
- Ievietojiet moduli, lai rakstītu kodu.
- Ierakstiet zemāk minēto kodu:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Darblapas ("lapa1"). Šūnas (Rows.Count, "D"). Beigas (xlUp). Rinda ar diapazonu ("A1: A10"). Validācija. Pievienot tips: = xlValidateList, AlertStyle: = xlValidAlertStop, operators: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Ievadiet tikai valstu nosaukumu" ("A1: A10"). Interior.ColorIndex = 37 Beigt ar beigu apakšdaļu
Koda skaidrojums:-
Vispirms mēs bijām definējuši visus mainīgos, pēc tam izveidojām diapazonu, kas palīdzētu izveidot dinamisko nolaižamo filtru. Līdzīgi mēs bijām definējuši ievades nosaukumu un ievades ziņojumu. Un tad mēs bijām definējuši galamērķi, kur mēs vēlamies izveidot nolaižamo sarakstu, un tad mēs aizpildītu šūnu ar krāsu.
Lai palaistu kodu, nospiediet tastatūras taustiņu F5
- Valstīm tiks izveidots nolaižamais saraksts.
- Un arī šūna būs piepildīta ar krāsu.
- Turklāt ikreiz, kad mēs ievadīsim diapazonā jauno valsts nosaukumu, nolaižamais saraksts automātiski izvēlēsies valsts nosaukumu.
- Ziņojums parādīsies atlasītajā šūnā diapazonā A1: A10.
Tādā veidā mēs varam pievienot ievades ziņojumu datu validācijā, izmantojot Microsoft Excel VBA.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē