Kurdami „Userforms“ Excel VBA, galite naudoti Kontroliuoja kolekciją lengvai pereiti per valdiklius ir nustatyti kiekvieno valdiklio ypatybę į tam tikrą vertę.
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ę, teksto laukelius (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 teksto laukelio valdiklį spustelėdami „TextBox“ įrankių dėžėje. Tada galite vilkti teksto laukelį „Userform“.
4. Norėdami pakeisti „Userform“, etiketės ir komandos mygtuko antraštę, spustelėkite „View“, „Properties Window“ ir „Properties Window“.
5. Norėdami parodyti „Userform“, įdėkite komandų mygtuką į savo darbalapį ir pridėkite šią kodo eilutę:
Privati antrinė komandaButton1_Click ()
UserForm1.Show vbModeless
Pabaiga Sub
Paaiškinimas: pridėję „vbModeless“, galite naudoti „Userform“ ir vienu metu dirbti su darbalapiu.
Dabar sukūrėme pirmąją „Userform“ dalį. Nors atrodo jau tvarkingai, dar nieko neįvyks, kai spustelėsime „Userform“ komandos mygtuką.
6. Atidarykite „Visual Basic“ redaktorių.
7. „Project Explorer“ dukart spustelėkite UserForm1.
8. Dukart spustelėkite komandos mygtuką.
9. Pridėkite šias kodo eilutes:
Privati antrinė komandaButton1_Click ()
Dim i As Integer
Jei i = nuo 1 iki 10
Valdikliai („TextBox“ & i) .Value = Ląstelės (i + 1, 1) .Vertybė
Kitas I.
Pabaiga Sub
Paaiškinimas: Turėdami kelias kodo eilutes, teksto laukelius galime užpildyti lapo telefono numeriais. Naudojome & operatorių elementų sujungimui (sujungimui). Šios kodo eilutės veikia, nes nepakeitėme teksto laukelio valdiklių pavadinimų (TextBox1, TextBox2, TextBox3 ir kt.). Norėdami pakeisti valdiklių pavadinimus, spustelėkite Rodinys, ypatybių langas ir spustelėkite kiekvieną valdiklį.
Rezultatas, kai lape spustelėsite komandų mygtuką:
