/ / Excel VBA Combo Box

Excel VBA Combo Box

Kombinētais lodziņš ir nolaižamais saraksts, no kura lietotājs var izvēlēties vienumu vai aizpildīt savu izvēli. Lai izveidotu kombinētais lodziņš in Excel VBA, izpildiet sekojošus soļus.

1. Cilnē Izstrādātājs noklikšķiniet uz Ievietot.

2. ActiveX Controls grupā noklikšķiniet uz Combo Box.

Izveidot kombinēto lodziņu programmā Excel VBA

3. Velciet kombinēto lodziņu savā darblapā.

Velciet kombinēto lodziņu

Piezīme: jūs varat mainīt kontroles nosaukumu, ar peles labo pogu noklikšķinot uz vadības paneļa (pārliecinieties, vai ir atlasīts Dizaina režīms) un pēc tam noklikšķinot uz Properties (Rekvizīti). Pašlaik ComboBox1 atstāsim kā kombinēto lodziņu.

Izveidojiet grāmatas atvērto notikumu. Kods, kas pievienots darbgrāmatā Atvērtā notikuma izpildi veic Excel VBA, kad atverat darbgrāmatu.

4. Atveriet Visual Basic Editor.

5. Divreiz uzklikšķiniet uz šī darbgrāmata Project Explorer.

6. Izvēlieties darbgrāmatu no kreisā nolaižamā saraksta un labajā nolaižamajā sarakstā izvēlieties opciju Atvērt.

Darblapas atklātais notikums programmā Excel VBA

7. Lai pievienotu vienumus kombinētajā lodziņā, pievienojiet šādām koda līnijām darbgrāmatas atvērtam notikumam:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Piezīme: izmantojiet Sheet2, ja jūsu kombinētais lodziņš atrodas otrajā darblapā, Sheet3, ja jūsu kombinētais lodziņš atrodas trešajā darblapā utt. Ja jūs izmantojat šīs koda līnijas ārpus darbgrāmatas atvērtā notikuma, iespējams, vēlēsities pirms šīm koda rindām pievienot tālāk norādītās koda rindiņas. kodu līnijas. Pirmā koda rindiņa notīra kombinēto lodziņu. Tādā veidā jūsu vienumus netiks pievienoti vairākas reizes, ja jūs izpildīsiet savu kodu vairāk nekā vienu reizi. Otra koda rindiņa iztīra jūsu izvēli.

ComboBox1.Clear
ComboBox1.Value = ""

8. Lai savienotu šo kombinēto lodziņu ar šūnu, ar peles labo pogu noklikšķiniet uz kombinētās izvēles rūtiņas (pārliecinieties, vai ir atlasīts dizaina režīms) un noklikšķiniet uz Properties (Rekvizīti). Aizpildiet D2 LinkedCell.

LinkedCell

Piezīme. Skatīt arī īpašumu ListFillRange, lai aizpildītu kombinēto lodziņu ar virkni šūnu.

9. Saglabājiet, aizveriet un atveriet Excel failu.

Rezultāts:

Combo Box

Lai gan dažās situācijās var būt noderīgi tieši ievietot kombinēto lodziņu savā darblapā, kombinētais lodziņš ir īpaši noderīgs, ja ievieto Userform.

Lasīt arī: