I denne artikkelen lærer vi hvordan du legger til en inndatamelding i datavalidering mens du angir de spesifikke oppføringene i cellen ved hjelp av VBA i Microsoft Excel.
Datavalidering er verktøyet som brukes til å begrense oppføringen i et område eller data, slik at vi kan definere hvilken type data som skal legges inn i arket.
La oss ta et eksempel og forstå:-
Vi har landets navn i D -kolonnen, og i celle A1 vil vi lage et nedtrekksfilter for landenes navn.
Vi ønsker å markere cellen A1 og lage rullegardinlisten til landets navn og legge meldingen for å la brukerne vite hvilke oppføringer som må angis i området.
Følg trinnene og koden nedenfor:-
- Åpne VBE -siden for å trykke Alt+F11.
- Sett inn modulen for å skrive koden.
- Skriv koden nedenfor:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Regneark ("sheet1"). Celler (Rows.Count, "D"). End (xlUp) .Row With Range ("A1: A10"). Validering. Legg til Type: = xlValidateList, AlertStyle: = xlValidAlertStop, Operator: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Skriv bare landnavn" Range ("A1: A10"). Interiør.ColorIndex = 37 Slutt med ende Sub
Kode Forklaring:-
Først hadde vi definert alle variablene, deretter hadde vi laget området som ville bidra til å lage det dynamiske nedtrekksfilteret. På samme måte hadde vi definert inndatatittelen og inndatameldingen. Og så hadde vi definert destinasjonen der vi vil lage rullegardinlisten, og så ville vi fylle cellen med farge.
For å kjøre koden, trykk på tasten F5 på tastaturet
- Rullegardinlisten vil bli opprettet for landene.
- Og også vil cellen bli fylt med farge.
- Og når vi skriver inn det nye landnavnet i området, vil rullegardinlisten velge landsnavnet automatisk.
- Meldingen vil vises i den valgte cellen i området A1: A10.
På denne måten kan vi legge til en inngangsmelding i datavalidering gjennom VBA i Microsoft Excel.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post