Kasutajavormide loomisel Exceli VBA, saate kasutada Juhib kogumist juhtelementide hõlpsaks sirvimiseks ja iga juhtelemendi atribuudi kindlale väärtusele seadmiseks.
Kasutajavorm, mille me loome, näeb välja järgmine:
Selle Userformi loomiseks toimige järgmiselt.
1. Avage Visual Basic Editor. Kui Project Explorer pole nähtav, klõpsake View, Project Explorer.
2. Klõpsake Insert, Userform. Kui tööriistakasti automaatselt ei kuvata, klõpsake nuppu Vaade, tööriistakast. Ekraan tuleks seadistada järgmiselt.
3. Lisage silt, tekstiväljad (esimene ülaosas, teine esimese all jne) ja käsunupp. Kui see on lõpule viidud, peaks tulemus olema kooskõlas varem näidatud Userformi pildiga. Näiteks saate luua tekstikasti juhtelemendi, klõpsates tööriistakastis käsku TextBox. Järgmisena saate lohistada Userformi tekstivälja.
4. Kasutajavormi, sildi ja käsunupu pealdise muutmiseks klõpsake nuppu Vaade, Atribuutide aken ja klõpsake iga juhtelementi.
5. Kasutajavormi kuvamiseks pange oma töölehele käsunupp ja lisage järgmine koodirida:
Privaatne alamkäsk Button1_Click ()
UserForm1.Show vbModeless
End Sub
Selgitus: vbModeless lisamisega saate kasutada Userformi ja töötada samal ajal oma töölehel.
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui klõpsame Userformi käsunupul.
6. Avage Visual Basic Editor.
7. Topeltklõpsake Project Exploreris nuppu UserForm1.
8. Topeltklõpsake käsunuppu.
9. Lisage järgmised koodiridad:
Privaatne alamkäsk Button1_Click ()
Dim i As täisarv
I = 1 kuni 10
Juhtelemendid ("TextBox" & i) .Väärtus = Lahtrid (i + 1, 1) .Väärtus
Edasi i
End Sub
Selgitus: Vaid mõne rea koodiga saame täita tekstiväljad lehe telefoninumbritega. Elementide ühendamiseks (ühendamiseks) kasutasime operaatorit &. Need koodiridad töötavad, kuna me ei muutnud tekstikasti juhtelementide nimesid (TextBox1, TextBox2, TextBox3 jne). Juhtelementide nimede muutmiseks klõpsake nuppu Vaade, Atribuutide aken ja klõpsake iga juhtelementi.
Tulemus, kui klõpsate lehel käsunuppu:
