Kodirajte ili programirajte popis za provjeru valjanosti podataka - Primjeri VBA koda

Sadržaj

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
wave wave wave wave wave