/ / "Excel" VBA sąrašo langelis

Excel VBA sąrašo langelis

Sąrašo langelis yra sąrašas, kuriame vartotojas gali pasirinkti elementą. Sukurti sąrašo langelis in Excel VBAatlikite šiuos veiksmus.

1. Kultūros skirtuke spustelėkite Įterpti.

2. "ActiveX Controls" grupėje spustelėkite List box.

Sukurkite "Excel VBA" sąrašo langelį

3. Vilkite sąrašo langelį savo darbalapyje.

Vilkite sąrašo langelį

Pastaba: galite pakeisti valdymo pavadinimą dešiniuoju pelės klavišu ant valdymo mygtuko (įsitikinkite, kad pasirinktas "Design Mode") ir spustelėję Properties (savybės). Dabar mes paliksime ListBox1 sąrašo lauko pavadinimą.

Sukurkite knygos atvirą įvykį. Kodas, pridėtas prie darbotvarkės Atvertas įvykis bus įvykdytas "Excel VBA", atidarius darbo knygą.

4. Atidarykite "Visual Basic" redaktorių.

5. Dukart spustelėkite šią knygą "Project Explorer".

6. Iš kairiojo sąrašo pasirinkite Darbo knygą ir dešinėje išskleidžiamajame sąraše pasirinkite Atidaryti.

Darbalaukio atviras įvykis "Excel VBA"

7. Norėdami įtraukti elementus į sąrašo laukelį, prie darbaknygės atvirų įvykių pridėkite šias kodo eilutes:

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

Pastaba: naudokite Sheet2, jei jūsų sąrašo langelis yra antrame darbiniame lape, Sheet3, jei jūsų sąrašo laukelis yra trečiajame darbalapyje ir tt Jei naudojate šias kodo linijas už darbaknyglio Open event, galbūt norėsite pridėti šią kodo eilutę prieš šias kodo eilutės. Ši kodo eilutė išvalo sąrašo laukelį. Tokiu būdu jūsų daiktai nebus įtraukti kelis kartus, jei vykdysite kodą daugiau nei vieną kartą.

ListBox1.Clear

8. Norėdami susieti šį sąrašo laukelį su langeliu, dešiniuoju pelės mygtuku spustelėkite sąrašo laukelį (įsitikinkite, kad pasirinktas dizaino režimas) ir spustelėkite Ypatybės. Užpildykite D3 "LinkedCell".

LinkedCell

Pastaba: taip pat pamatysite Property ListFillRange, kad užpildytumėte sąrašo langelį su daugybe langelių.

9. Išsaugokite, uždarykite ir vėl atidarykite "Excel" failą.

Rezultatas:

Sąrašo langelis

Nors kai kuriais atvejais gali būti naudinga tiesiogiai įtraukti į savo darbalapį sąrašo langelį, sąrašo langelis yra ypač naudingas, kai jis pateikiamas Userform.

Taip pat perskaitykite: