Ar dažām koda rindām mēs varam viegli cilpa caur vadības ierīcēm uz Excel VBA lietotāja veidlapa. Lietotāja veidlapa, kuru mēs izveidosim, izskatās šādi:
Lai izveidotu šo Userform, veiciet tālāk norādītās 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, atzīmējiet izvēles rūtiņas (vispirms augšpusē, otro zem pirmās un tā tālāk) un komandu pogu. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš parādītajam Userform attēlam. Piemēram, izveidojiet izvēles rūtiņas vadīklu, rīkjoslā noklikšķinot uz izvēles rūtiņas. Pēc tam lietotāja veidlapā varat vilkt izvēles rūtiņu.
4. Varat mainīt vadīklu nosaukumus un parakstus. Vārdi tiek izmantoti Excel VBA kodā. Paraksti ir tie, kas parādās jūsu ekrānā. Ir laba prakse mainīt vadības ierīču nosaukumus, taču šeit tas nav nepieciešams, jo šajā piemērā mums ir tikai dažas vadīklas. Lai mainītu Userform, etiķetes, izvēles rūtiņu un komandu pogas parakstu, noklikšķiniet uz Skatīt, Rekvizītu logs 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
Beigu apakš
Tagad esam izveidojuši Userform pirmo daļu. Lai gan tas jau izskatās glīti, vēl nekas nenotiks, kad noklikšķināsim uz pogas Notīrīt.
6. Atveriet Visual Basic redaktoru.
7. Project Explorer veiciet dubultklikšķi uz UserForm1.
8. Veiciet dubultklikšķi uz pogas Notīrīt.
9. Pievienojiet šādas koda rindiņas:
Privāta apakškomandaButton1_Click ()
Dim contr Kā kontrole
Katram kontam UserForm1.Controls
Ja TypeName (contr) = "CheckBox" Tad
contr.Value = Nepareizi
Beigas Ja
Nākamais
Beigu apakš
Paskaidrojums: Excel VBA izmanto cilni, izmantojot visas Userform vadīklas. Funkcija TypeName tiek izmantota, lai filtrētu izvēles rūtiņu vadīklas. Ja tiek atzīmēta izvēles rūtiņa, Excel VBA noņem atzīmi no izvēles rūtiņas. contr šeit tiek izvēlēts nejauši, varat izmantot jebkuru nosaukumu. Neaizmirstiet atsaukties uz šo vārdu pārējā koda daļā.
Rezultāts, noklikšķinot uz pogas Notīrīt:
