Veidojot Userforms Excel VBA, varat izmantot Kontrolē kolekciju viegli pārvietoties pa vadīklām un iestatīt katras vadīklas rekvizītam noteiktu vērtību.
Lietotāja veidlapa, kuru mēs izveidosim, izskatās šādi:
Lai izveidotu šo Userform, veiciet šādas darbības:
1. Atveriet Visual Basic redaktoru. Ja Project Explorer nav redzams, noklikšķiniet uz View, Project Explorer.
2. Noklikšķiniet uz Ievietot, Lietotāja forma. Ja Toolbox neparādās automātiski, noklikšķiniet uz View, Toolbox. Ekrāns ir jāiestata, kā norādīts zemāk.
3. Pievienojiet etiķeti, tekstlodziņus (vispirms augšpusē, otro zem pirmā utt.) Un komandu pogu. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš parādītajam Userform attēlam. Piemēram, izveidojiet tekstlodziņa vadīklu, rīkjoslā noklikšķinot uz TextBox. Pēc tam lietotāja veidlapā varat vilkt tekstlodziņu.
4. Lai mainītu Userform, uzlīmes un komandu pogas parakstu, noklikšķiniet uz View (Skatīt), Properties Window (Rekvizīti) un noklikšķiniet uz katras vadīklas.
5. Lai parādītu Userform, ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:
Privāta apakškomandaButton1_Click ()
UserForm1.Show vbModeless
Beigu apakš
Paskaidrojums: pievienojot vbModeless, vienlaikus varat izmantot Userform un strādāt savā darblapā.
Tagad esam izveidojuši Userform pirmo daļu. Lai gan tas jau izskatās glīti, vēl nekas nenotiks, kad Userform noklikšķināsim uz komandas pogas.
6. Atveriet Visual Basic redaktoru.
7. Project Explorer veiciet dubultklikšķi uz UserForm1.
8. Veiciet dubultklikšķi uz komandas pogas.
9. Pievienojiet šādas koda rindiņas:
Privāta apakškomandaButton1_Click ()
Dim i As Integer
Ja i = 1 līdz 10
Vadīklas ("TextBox" & i). Vērtība = šūnas (i + 1, 1). Vērtība
Tālāk i
Beigu apakš
Paskaidrojums: Izmantojot tikai dažas koda rindiņas, mēs varam aizpildīt tekstlodziņus ar lapas numuriem. Mēs izmantojām & operatoru, lai savienotu (savienotu) elementus. Šīs kodu rindas darbojas, jo mēs nemainījām tekstlodziņa vadīklu nosaukumus (TextBox1, TextBox2, TextBox3 utt.). Lai mainītu vadīklu nosaukumus, noklikšķiniet uz Skatīt, Rekvizītu logs un noklikšķiniet uz katras vadīklas.
Rezultāts, noklikšķinot uz komandas pogas lapā:
