/ / "Excel" VBA Combo Box

Excel VBA Combo Box

Išskleidžiamasis sąrašas yra išeities taškas, iš kurio vartotojas gali pasirinkti elementą arba užpildyti savo pasirinkimą. Sukurti Combo box in Excel VBAatlikite šiuos veiksmus.

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

2. "ActiveX Controls" grupėje spustelėkite Combo Box.

Sukurkite "Combo" laukelį "Excel VBA"

3. Vilkite sudėtinįjį langelį savo darbalapyje.

Vilkite kombinuotą dėžutę

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 ComboBox1 kaip kombinuotą laukelį pavadinimu.

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 pridėti elementus į kombinuotą laukelį, pridėkite šias kodo eilutes prie darbotvarkės "Atviras įvykis":

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

Pastaba: naudokite "Sheet2", jei jūsų kombinuotasis laukelis yra antrame darbiniame lape, "Sheet3", jei jūsų derinys yra trečiajame darbalapyje ir tt Jei naudojate šias kodo eilutes už "Workbook Open" įvykio, galbūt norėsite pridėti toliau nurodytas kodo eilutes prieš šiuos kodo eilutės. Pirmoji kodo eilutė išvalo kombinuotąjį laukelį. Tokiu būdu jūsų daiktai nebus pridėti keletą kartų, jei vykdysite kodą daugiau nei vieną kartą. Antroji kodo eilutė išvalo jūsų pasirinkimą.

ComboBox1.Clear
ComboBox1.Value = ""

8. Norėdami susieti šį derinį su langeliu, dešiniuoju pelės klavišu spustelėkite kombinuotą laukelį (įsitikinkite, kad pasirinktas dizaino režimas) ir spustelėkite Ypatybės. Užpildykite D2 LinkedCell.

LinkedCell

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

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

Rezultatas:

Combo Box

Nors kai kuriose situacijose gali būti naudinga tiesiogiai įtraukti į savo darbalapį kombinuotą dėžutę, ypač jei naudosite Userform formą, yra sudėtingas dėžutė.

Taip pat perskaitykite: