I denne artikel lærer vi, hvordan du tilføjer en inputmeddelelse i datavalidering, mens du indtaster de specifikke poster i cellen ved hjælp af VBA i Microsoft Excel.
Datavalidering er det værktøj, der bruges til at begrænse indtastning i et område eller data, så vi kan definere, hvilken type data der skal indtastes i arket.
Lad os tage et eksempel og forstå:-
Vi har landenes navn i D -kolonnen, og i celle A1 vil vi oprette et drop -down filter for landenes navn.
Vi vil fremhæve cellen A1 og lave rullelisten til landenes navn og sætte meddelelsen for at lade brugerne vide, hvilke poster der skal indtastes i intervallet.
Følg nedenstående trin og kode:-
- Åbn VBE -siden for at trykke på tasten Alt+F11.
- Indsæt modulet for at skrive koden.
- Skriv nedenstående kode:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Arbejdsark ("ark1"). Celler (rækker.Tælling, "D"). Afslut (xlUp) .Række med område ("A1: A10"). Validering. Tilføj type: = xlValidateList, AlertStyle: = xlValidAlertStop, Operator: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Angiv kun landes navn" Range ("A1: A10"). Interiør.ColorIndex = 37 Slut med ende Sub
Kode Forklaring:-
Først havde vi defineret alle variablerne, derefter havde vi oprettet det område, der ville hjælpe med at skabe det dynamiske drop -down filter. På samme måde havde vi defineret inputtitlen og inputmeddelelsen. Og så havde vi defineret den destination, hvor vi vil oprette rullelisten, og så ville vi fylde cellen med farve.
For at køre koden skal du trykke på tasten F5 på dit tastatur
- Der vil blive oprettet rulleliste for landene.
- Og også vil cellen blive fyldt med farve.
- Og også når vi indtaster det nye lands navn i intervallet, vælger rullelisten automatisk landets navn.
- Meddelelse vises i den valgte celle i området A1: A10.
På denne måde kan vi tilføje en inputmeddelelse i datavalidering via VBA i Microsoft Excel.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet