Turėdami vos kelias kodo eilutes, galime lengvai kilpą per valdiklius ant „Excel VBA Userform“. Vartotojo forma, kurią ketiname sukurti, atrodo taip:
Norėdami sukurti šią vartotojo formą, atlikite šiuos veiksmus.
1. Atidarykite „Visual Basic“ redaktorių. Jei „Project Explorer“ nematomas, spustelėkite „View“, „Project Explorer“.
2. Spustelėkite Įterpti, Vartotojo forma. Jei įrankių dėžė nerodoma automatiškai, spustelėkite Rodinys, įrankių dėžė. Jūsų ekranas turi būti nustatytas taip, kaip nurodyta toliau.
3. Pridėkite etiketę, pažymėkite langelius (pirmasis viršuje, antras po pirmuoju ir pan.) Ir komandų mygtuką. Kai tai bus baigta, rezultatas turėtų atitikti anksčiau pateiktą „Userform“ paveikslėlį. Pvz., Sukurkite žymės langelio valdiklį spustelėdami žymės langelį įrankių dėžėje. Tada galite vilkti žymės langelį „Userform“.
4. Galite pakeisti valdiklių pavadinimus ir antraštes. Pavadinimai naudojami „Excel“ VBA kode. Subtitrai yra tie, kurie rodomi jūsų ekrane. Gera praktika yra pakeisti valdiklių pavadinimus, tačiau čia tai nėra būtina, nes šiame pavyzdyje turime tik keletą valdiklių. Norėdami pakeisti „Userform“, etiketės, žymės langelių ir komandų mygtuko antraštę, spustelėkite „View“, „Properties Window“ ir spustelėkite kiekvieną valdiklį.
5. Norėdami parodyti „Userform“, įdėkite komandų mygtuką į savo darbalapį ir pridėkite šią kodo eilutę:
Privati antrinė komandaButton1_Click ()
UserForm1.Show
Pabaiga Sub
Dabar sukūrėme pirmąją „Userform“ dalį. Nors jau atrodo tvarkingai, dar nieko neįvyks, kai spustelėsime mygtuką Išvalyti.
6. Atidarykite „Visual Basic“ redaktorių.
7. „Project Explorer“ dukart spustelėkite UserForm1.
8. Dukart spustelėkite mygtuką Išvalyti.
9. Pridėkite šias kodo eilutes:
Privati antrinė komandaButton1_Click ()
„Dim contr“ kaip valdymas
Kiekvienam „UserForm1.Controls“ valdikliui
Jei TypeName (contr) = "CheckBox" Tada
contr.Value = Netiesa
Pabaiga Jei
Kitas
Pabaiga Sub
Paaiškinimas: „Excel VBA“ perjungia visus „Userform“ valdiklius. „TypeName“ funkcija naudojama filtruoti žymės langelio valdiklius. Jei žymimasis laukelis valdomas, „Excel VBA“ panaikina žymės langelio žymėjimą. contr čia pasirinktas atsitiktinai, galite naudoti bet kokį pavadinimą. Nepamirškite nurodyti šio pavadinimo likusioje kodo dalyje.
Rezultatas spustelėjus mygtuką Išvalyti:
