Ovaj će vodič pokazati kako koristiti provjeru valjanosti podataka za rad s padajućim popisima u Excelu pomoću VBA.
Provjera Excel podataka omogućuje vam da ograničite koje se vrijednosti mogu unijeti u ćeliju ili raspon. Možete ograničiti unose na pozitivne cijele brojeve, tekst, datume i još mnogo toga. U ovom ćemo vodiču pogledati kako stvoriti padajući popis za provjeru valjanosti podataka u ćeliji pomoću VBA.
Napomena: Alternativa padajućem popisu Validacija podataka je objekt ListBox. ListBoxes se može dodati u radne listove programa Excel. ListBoxes mogu pokrenuti makronaredbe koje se izvode svaki put kada se promijeni ListBox vrijednost. ListBoxes se također koriste u VBA korisničkim oblicima.
Izrada padajućeg popisa pomoću VBA -a
U ćeliji A1 imamo tekst Voće i stvorit ćemo padajući popis u ćeliji A2 s pet unosa.
Koristit ćemo metodu Validation.Add i navesti da je parametar Type xlValidateList. Pomoću parametra Formula1 možete na popis dodati određene stavke koje želite.
Sljedeći kôd će stvoriti padajući popis za provjeru valjanosti podataka u ćeliji A2:
123456 | Sub DropDownListinVBA ()Raspon ("A2"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "Naranča, jabuka, mango, kruška, breskva"Kraj podm |
Rezultat je:
Popustite padajući popis iz imenovanog raspona u VBA
Možete koristiti imenovani raspon koji sadrži stavke za popunjavanje padajućeg popisa u VBA. U nastavku imamo imenovane životinje:
Moramo postaviti parametar Formule1 jednak imenovanom rasponu. Sljedeći kôd će stvoriti padajući popis provjere valjanosti podataka u ćeliji A7 na temelju stavki u imenovanom rasponu:
123456 | Sub PopulateFromANamedRange ()Raspon ("A7"). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formula1: = "= Životinje"Kraj podm |
Rezultat je:
Uklanjanje padajućeg popisa
Pomoću metode Validation.Delete možete ukloniti padajući popis iz ćelije. Sljedeći kôd uklonio bi padajući popis iz ćelije A7 u gornjem primjeru:
12345 | Sub RemoveDropDownList ()Raspon ("A7"). Validacija.BrisanjeKraj podm |