Kombinētais lodziņš ir nolaižamais saraksts, kurā lietotājs var atlasīt vienumu vai aizpildīt savu izvēli. Lai izveidotu a kombinētā kaste iekšā Excel VBA, izpildiet tālāk norādītās darbības.
1. Cilnē Izstrādātājs noklikšķiniet uz Ievietot.
2. Grupā ActiveX vadīklas noklikšķiniet uz kombinētā lodziņa.
3. Velciet darblapā kombinēto lodziņu.
Piezīme. Vadīklas nosaukumu var mainīt, ar peles labo pogu noklikšķinot uz vadīklas (pārliecinieties, vai ir atlasīts dizaina režīms) un pēc tam noklikšķiniet uz Rekvizīti. Pagaidām mēs atstāsim ComboBox1 kā kombinētās kastes nosaukumu.
Izveidojiet darbgrāmatas atvērto notikumu. Atverot darbgrāmatu, darbgrāmatas atvēršanas notikumam pievienoto kodu izpildīs Excel VBA.
4. Atveriet Visual Basic redaktoru.
5. Veiciet dubultklikšķi uz Šī darbgrāmata Project Explorer.
6. Kreisajā nolaižamajā sarakstā izvēlieties Darbgrāmata un labajā nolaižamajā sarakstā izvēlieties Atvērt.
7. Lai pievienotu vienumus kombinētajam lodziņam, pievienojiet darbgrāmatas atvēršanas notikumam šādas koda rindiņas:
Ar 1. lapu. ComboBox
.Pievienot "Parīze"
.AddItem "Ņujorka"
.Pievienot "Londona"
Beigt ar
Piezīme. Izmantojiet lapu 2, ja jūsu kombinētais lodziņš atrodas otrajā darblapā, un lapu 3, ja jūsu kombinētais lodziņš atrodas trešajā darblapā utt. pirms šīm koda rindiņām. Pirmā koda rinda iztīra kombinēto lodziņu. Tādā veidā jūsu vienumi netiks pievienoti vairākas reizes, ja kodu izpildīsit vairāk nekā vienu reizi. Otrā koda līnija atceļ jūsu izvēli.
ComboBox 1. Skaidrs
ComboBox1.Value = ""
8. Lai saistītu šo kombinēto lodziņu ar šūnu, ar peles labo pogu noklikšķiniet uz kombinētā lodziņa (pārliecinieties, vai ir atlasīts dizaina režīms) un noklikšķiniet uz Rekvizīti. Aizpildiet D2 LinkedCell.
Piezīme. Skatiet arī rekvizītu ListFillRange, lai aizpildītu kombinēto lodziņu ar šūnu diapazonu.
9. Saglabājiet, aizveriet un atkārtoti atveriet Excel failu.
Rezultāts:
Lai gan dažās situācijās var būt lietderīgi izvietot kombinēto lodziņu tieši savā darblapā, kombinētais lodziņš ir īpaši noderīgs, ja to ievieto lietotāja veidlapā.
