Zemāk mēs apskatīsim programmu Excel VBA kas izveido Userform, kurā ir daudzkolonnu kombinētā kaste.
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, kombinēto lodziņu un komandu pogas. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš parādītajam Userform attēlam. Piemēram, izveidojiet kombinētā lodziņa vadīklu, rīkjoslā noklikšķinot uz ComboBox. Pēc tam lietotāja veidlapā varat vilkt kombinēto lodziņ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, uzlīmes un komandu pogu 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 mēs izveidosim Sub UserForm_Initialize. Ja lietotāja veidlapai izmantojat Rādīšanas metodi, šī apakšiedaļa tiks izpildīta automātiski.
6. Atveriet Visual Basic redaktoru.
7. Project Explorer ar peles labo pogu noklikšķiniet uz UserForm1 un pēc tam noklikšķiniet uz Skatīt kodu.
8. Kreisajā nolaižamajā sarakstā izvēlieties Userform. Nolaižamajā labajā sarakstā atlasiet Inicializēt.
9. Pievienojiet šādas koda rindiņas:
Privāts apakšlietotājsForm_Initialize ()
ComboBox1.ColumnCount = 2
Dim filmas (no 1 līdz 5, no 1 līdz 2) kā virkne
Dim i kā vesels skaitlis, j kā vesels skaitlis
Filmas (1, 1) = "Gredzenu pavēlnieks"
Filmas (2, 1) = "Ātrums"
Filmas (3, 1) = "Zvaigžņu kari"
Filmas (4, 1) = "Krusttēvs"
Filmas (5, 1) = "Pulp Fiction"
Filmas (1, 2) = "Piedzīvojums"
Filmas (2, 2) = "Darbība"
Filmas (3, 2) = "Sci-Fi"
Filmas (4, 2) = "Noziegums"
Filmas (5, 2) = "Drāma"
ComboBox1.List = Filmas
Beigu apakš
Paskaidrojums: Pirmā koda rindiņa nosaka kombinētā lodziņa kolonnu skaitu uz 2. Tā vietā, lai izpildes laikā iestatītu kolonnu skaitu, šo konfigurāciju var konfigurēt arī projektēšanas laikā. Lai to panāktu, ar peles labo pogu noklikšķiniet uz kombinētā lodziņa vadīklas, noklikšķiniet uz Rekvizīti un iestatiet rekvizītu ColumnCount uz 2. Tālāk mēs deklarējam un inicializējam divdimensiju masīvu. Pēdējā koda līnija piešķir masīvu kombinētajam lodziņam.
Tagad esam izveidojuši Userform pirmo daļu. Lai gan tas jau izskatās glīti, nekas vēl nenotiks, kad noklikšķināsim uz Userform komandu pogām.
10. Project Explorer veiciet dubultklikšķi uz UserForm1.
11. Veiciet dubultklikšķi uz pogas Labi.
12. Pievienojiet šādas koda rindiņas:
Privāta apakškomandaButton1_Click ()
Izkraut Mani
MsgBox "Jūs izvēlējāties" & ComboBox1.Value
Par kļūdu Atsākt nākamo
MsgBox "Jums patīk" & ComboBox1.Column (1) & "filmas"
Beigu apakš
Piezīme: šīs koda rindiņas aizver Excel VBA lietotāja formu un parāda atlasīto vienumu un žanru. Paziņojumā “Par kļūdu atsākt nākamo” netiek ņemta vērā kļūda, kad lietotājs aizpilda savu filmu (šajā gadījumā žanrs nav pieejams).
13. Veiciet dubultklikšķi uz pogas Atcelt.
14. Pievienojiet šādu koda rindiņu:
Privāta apakškomandaButton2_Click ()
Izkraut Mani
Beigu apakš
Rezultāts, atlasot Ātrums un noklikšķinot uz Labi.
