300 Piemēri

Daudzkolonnu kombinētā kaste

Multicolumn Combo Box

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:

Daudzkolonnu kombinētais lodziņš programmā Excel VBA





Lai izveidotu šo Userform, veiciet tālāk norādītās darbības.

kā ātri aizpildīt Excel 2016

1. Atveriet Visual Basic redaktors . 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.

Userform ekrāna iestatīšana programmā Excel VBA

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 a komandu pogu darblapā un pievienojiet šādu koda rindiņu:

kā jūs šķirojat Excel
Privāts SubCommandButton1_Click ()

UserForm1.Show

Beigas Sub

Tagad mēs izveidosim Sub UserForm_Initialize. Ja lietotāja formai izmantojat Rādīšanas metodi, šī apakšiedaļa tiks izpildīta automātiski.

6. Atveriet Visual Basic redaktors .

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 SubUserForm_Initialize ()

ComboBox1.ColumnCount = 2

NavFilmas (1Uz5, 1Uz2) Stīga
Navi Vesels skaitlis, j 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

Beigas Sub

Paskaidrojums: Pirmā koda rindiņa nosaka kombinētā lodziņa kolonnu skaitu uz 2. Tā vietā, lai izpildlaika laikā iestatītu kolonnu skaitu, šo iestatījumu 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īvs . Pēdējā koda rindiņa 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āts SubCommandButton1_Click ()

Izkraut Mani

MsgBox 'Jūs izvēlējāties' & ComboBox1.Value

Ieslēgts Kļūda Turpināt Nākamais
MsgBox 'Jums patīk' un ComboBox 1. kolonna (1) un 'filmas'

Beigas Sub

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āts SubCommandButton2_Click ()

Izkraut Mani

Beigas Sub

Rezultāts, atlasot Ātrums un noklikšķinot uz Labi.

kā ievietot paroli

Vairāku kolonnu kombinētās kastes rezultāts

Vairāku kolonnu kombinētās kastes rezultāts

6/11 Pabeigts! Uzziniet daudz vairāk par userforms>
Doties uz nākamo nodaļu: Diapazons



^