"Excel VBA Controls Collection"

Kuriant "Userforms" sistemoje Excel VBA, galite naudoti Kontrolės rinkimas lengvai valdyti per kontrolę ir nustatyti kiekvienos valdiklio nuosavybę tam tikrai vertei.

"Userform", kurį ketiname kurti, atrodo taip:

"Controls Collection" programoje "Excel VBA"

Norėdami sukurti šį Userform, atlikite šiuos veiksmus:

1. Atidarykite "Visual Basic" redaktorių. Jei "Project Explorer" nematoma, spustelėkite "View", "Project Explorer".

2. Spustelėkite Insert, Userform. Jei įrankių dėžė automatiškai pasirodys, spustelėkite Rodyti, įrankių dėžutę. Jūsų ekranas turėtų būti nustatytas žemiau.

3. Įtraukite etiketę, teksto laukus (pirmą viršuje, antrąjį po pirmąja ir tt) ir komandų mygtuką. Kai tai bus baigta, rezultatas turėtų atitikti anksčiau pateiktą "Userform" paveikslėlį. Pavyzdžiui, sukurkite teksto laukelio valdiklį, spragtelėję "TextBox" iš įrankių juostos. Tada galite vilkti "Userform" teksto laukelį.

4. Jei norite pakeisti Userform, etiketės ir komandinio mygtuko antraštę, spustelėkite View, Properties Window ir spustelėkite kiekvieną valdiklį.

5. Norėdami parodyti "Userform", į savo darbalapį pridėkite komandų mygtuką ir pridėkite šią kodo eilutę:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Paaiškinimas: pridedant "vbModeless", galite naudoti "Userform" ir tuo pačiu metu dirbti savo darbalapyje.

Dabar sukūrėme pirmąją "Userform" dalį. Nors tai jau atrodo tvarkinga, dar niekas nebus įvykdytas, kai spustelėsime Userform komandų mygtuką.

6. Atidarykite "Visual Basic" redaktorių.

7. "Project Explorer" dukart spustelėkite "UserForm1".

8. Dukart spustelėkite komandų mygtuką.

9. Įtraukite šias kodo eilutes:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Paaiškinimas: Naudodami tik kelias kodo eilutes, mes galime užpildyti teksto laukus su telefono numeriais iš lapo. Mes naudojome "&" operatorių, kad sujungtume elementus. Šios kodo eilutės dirba, nes nenorime keisti teksto laukelio valdiklių (TextBox1, TextBox2, TextBox3 ir tt) pavadinimų. Norėdami pakeisti valdiklių pavadinimus, spustelėkite View, Properties Window ir spustelėkite kiekvieną valdiklį.

Rezultatas spustelėjus komandą mygtuką ant lapo: