Ši pamoka parodys, kaip naudoti duomenų patvirtinimą, kad būtų galima dirbti su išskleidžiamaisiais „Excel“ sąrašais naudojant VBA.
„Excel“ duomenų tikrinimas leidžia apriboti, kokią vertę (-es) galima įvesti į langelį ar diapazoną. Galite apriboti įrašus teigiamais sveikais skaičiais, tekstu, datomis ir dar daugiau. Šioje pamokoje apžvelgsime, kaip ląstelėje, naudojant VBA, sukurti išskleidžiamąjį duomenų patvirtinimo sąrašą.
Pastaba: Išskleidžiamojo duomenų patvirtinimo sąrašo alternatyva yra „ListBox“ objektas. „ListBox“ galima pridėti prie „Excel“ darbalapių. „ListBoxes“ gali suaktyvinti makrokomandas, kurios paleidžiamos kiekvieną kartą keičiant „ListBox“ vertę. „ListBoxes“ taip pat naudojami „VBA Userforms“.
Išskleidžiamojo sąrašo kūrimas naudojant VBA
A1 langelyje turime tekstą Vaisiai ir A2 langelyje sukursime išskleidžiamąjį sąrašą su penkiais įrašais.
Mes naudosime metodą Validation.Add ir nurodysime, kad parametro tipas yra xlValidateList. Naudodami „Formula1“ parametrą, galite įtraukti konkrečius elementus į savo sąrašą.
Šis kodas sukurs išskleidžiamąjį duomenų patvirtinimo sąrašą langelyje A2:
| 123456 | Sub DropDownListinVBA ()Diapazonas („A2“). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formulė 1: = "Apelsinas, obuolys, mango, kriaušė, persikas"Pabaiga Sub |
Rezultatas yra toks:
Užpildykite išskleidžiamąjį sąrašą iš pavadinto diapazono VBA
Norėdami užpildyti išskleidžiamąjį VBA sąrašą, galite naudoti pavadintą diapazoną, kuriame yra elementai. Mes turime pavadintą gyvūnų diapazoną, parodytą žemiau:
Turime nustatyti „Formula1“ parametrą, lygų nurodytam diapazonui. Šis kodas sukurs išskleidžiamąjį duomenų patvirtinimo sąrašą langelyje A7, remdamasis nurodyto diapazono elementais:
| 123456 | Sub populateFromANamedRange ()Diapazonas („A7“). Validation.Add Type: = xlValidateList, AlertStyle: = xlValidAlertStop, _Formulė 1: = "= Gyvūnai"Pabaiga Sub |
Rezultatas yra toks:
Išskleidžiamojo sąrašo pašalinimas
Norėdami pašalinti išskleidžiamąjį sąrašą iš langelio, galite naudoti metodą Validation.Delete. Šis kodas pašalintų išskleidžiamąjį sąrašą iš A7 langelio aukščiau pateiktame pavyzdyje:
| 12345 | Sub RemoveDropDownList ()Diapazonas („A7“). Patvirtinimas. IštrintiPabaiga Sub |
