Saraksta lodziņš ir saraksts, kurā lietotājs var atlasīt vienumu. Lai izveidotu a saraksta lodziņš 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 Saraksta lodziņš.
3. Velciet darblapā saraksta 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 ListBox1 atstāsim kā saraksta lodziņa 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 saraksta lodziņam pievienotu vienumus, darbgrāmatas atvēršanas notikumam pievienojiet šādas koda rindiņas:
Ar Sheet1.ListBox1
.Pievienot "Parīze"
.AddItem "Ņujorka"
.Pievienot "Londona"
Beigt ar
Piezīme: izmantojiet lapu 2, ja jūsu saraksta lodziņš atrodas otrajā darblapā, un lapu 3, ja jūsu saraksta lodziņš atrodas trešajā darblapā utt. Ja izmantojat šīs koda rindiņas ārpus darbgrāmatas atvēršanas notikuma, iespējams, vēlēsities pievienot šādu koda rindiņu pirms šīm koda rindiņām. Šī koda līnija notīra saraksta lodziņu. Tādā veidā jūsu vienumi netiks pievienoti vairākas reizes, ja kodu izpildīsit vairāk nekā vienu reizi.
ListBox1.Skaidrs
8. Lai saistītu šo saraksta lodziņu ar šūnu, ar peles labo pogu noklikšķiniet uz saraksta lodziņa (pārliecinieties, vai ir atlasīts dizaina režīms) un noklikšķiniet uz Rekvizīti. Aizpildiet D3 LinkedCell.
Piezīme. Skatiet arī rekvizītu ListFillRange, lai aizpildītu saraksta 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 noderīgi tieši izvietot saraksta lodziņu savā darblapā, saraksta lodziņš ir īpaši noderīgs, ja tas tiek ievietots Userform.
