Sąrašo laukas yra sąrašas, iš kurio vartotojas gali pasirinkti elementą. Norėdami sukurti a sąrašo langelį į Excel VBA, atlikite šiuos veiksmus.
1. Skirtuke Kūrėjas spustelėkite Įterpti.
2. Grupėje „ActiveX“ valdikliai spustelėkite Sąrašo laukelis.
3. Vilkite sąrašo laukelį darbalapyje.
Pastaba: valdiklio pavadinimą galite pakeisti dešiniuoju pelės klavišu spustelėdami valdiklį (įsitikinkite, kad pasirinktas projektavimo režimas), tada spustelėdami Ypatybės. Kol kas sąrašo laukelį pavadinsime „ListBox1“.
Sukurkite atvirą darbaknygės įvykį. Kodas, pridėtas prie darbaknygės atidarymo įvykio, bus paleistas naudojant „Excel VBA“, kai atidarysite darbaknygę.
4. Atidarykite „Visual Basic“ redaktorių.
5. „Project Explorer“ dukart spustelėkite Ši darbo knyga.
6. Kairiajame išskleidžiamajame sąraše pasirinkite Darbaknygė ir dešiniajame išskleidžiamajame sąraše pasirinkite Atidaryti.
7. Norėdami įtraukti elementų į sąrašo lauką, prie darbaknygės atidarymo įvykio pridėkite šias kodo eilutes:
Su Sheet1.ListBox1
.AddItem "Paryžius"
.AddItem "Niujorkas"
.AddItem "Londonas"
Pabaiga su
Pastaba: naudokite „Sheet2“, jei jūsų sąrašo laukelis yra antrame darbalapyje, „Sheet3“, jei jūsų sąrašo laukelis yra trečiame darbalapyje ir tt prieš šias kodo eilutes. Ši kodo eilutė išvalo sąrašo laukelį. Tokiu būdu jūsų elementai nebus pridėti kelis kartus, jei kodą vykdysite daugiau nei vieną kartą.
ListBox1.Aiškus
8. Norėdami susieti šį sąrašo laukelį su langeliu, dešiniuoju pelės mygtuku spustelėkite sąrašo laukelį (įsitikinkite, kad pasirinktas projektavimo režimas) ir spustelėkite Ypatybės. „LinkedCell“ užpildykite D3.
Pastaba: taip pat žr. Ypatybę ListFillRange, kad užpildytumėte langelių sąrašo laukelį.
9. Išsaugokite, uždarykite ir vėl atidarykite „Excel“ failą.
Rezultatas:
Nors kai kuriose situacijose gali būti naudinga tiesiogiai įdėti sąrašo laukelį į savo darbalapį, sąrašo laukas yra ypač naudingas, kai jis pateikiamas „Userform“.
