Tässä artikkelissa opimme lisäämään syöttösanoman tietojen validointiin syöttäessäsi tietyt merkinnät soluun käyttämällä VBA: ta Microsoft Excelissä.
Tietojen validointi on työkalu, jota käytetään rajoittamaan alueen tai datan syöttämistä, jotta voimme määrittää, minkä tyyppiset tiedot taulukkoon tulisi syöttää.
Otetaan esimerkki ja ymmärretään:-
Meillä on maiden nimi D -sarakkeessa ja solussa A1 haluamme luoda avattavan suodattimen maiden nimille.
Haluamme korostaa solun A1 ja tehdä pudotusvalikosta maiden nimen ja laittaa viestin, jotta käyttäjät tietävät, mitkä merkinnät on syötettävä alueelle.
Noudata alla annettuja ohjeita ja koodia:-
- Avaa VBE -sivu ja paina näppäin yhdistelmää Alt+F11.
- Kirjoita koodi asentamalla moduuli.
- Kirjoita alla mainittu koodi:-
Sub DropDownFilter () Dim lastrow As Long lastrow = Laskentataulukot ("sheet1"). Solut (Rows.Count, "D"). End (xlUp) .Row With Range ("A1: A10"). Validointi. Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, Operaattori: = xlBetween, Formula1: = "= $ D $ 2: $ D" & lastrow .IgnoreBlank = True .InCellDropdown = True .InputTitle = "Message" .InputMessage = "Anna vain maiden nimi" Range ("A1: A10"). Interior.ColorIndex = 37 Lopeta lopussa
Koodin selitys:-
Ensin olimme määritelleet kaikki muuttujat, sitten loimme alueen, joka auttaisi luomaan dynaamisen pudotusvalikon. Samoin olimme määritelleet tulon otsikon ja syöttösanoman. Ja sitten olimme määritelleet määränpään, johon haluamme luoda avattavan luettelon, ja sitten täytämme solun värillä.
Voit suorittaa koodin painamalla näppäimistön näppäintä F5
- Maille luodaan avattava luettelo.
- Ja myös solu täytetään väreillä.
- Ja aina kun lisäämme uuden maan nimen alueelle, avattavasta luettelosta valitaan maan nimi automaattisesti.
- Viesti näkyy valitussa solussa alueella A1: A10.
Tällä tavalla voimme lisätä syöttösanoman tietojen validointiin Microsoft Excelin VBA: n kautta.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse