Liitkast on ripploend, kust kasutaja saab valida üksuse või täita oma valiku. Et luua a liitkast sisse Exceli VBA, täitke järgmised sammud.
1. Klõpsake vahekaardil Arendaja nuppu Lisa.
2. Grupis ActiveX -juhtelemendid klõpsake liitkast.
3. Lohistage oma töölehel liitkast.
Märkus: saate juhtelemendi nime muuta, paremklõpsates juhtelemendil (veenduge, et valitud on kujundusrežiim) ja seejärel klõpsates nuppu Atribuudid. Praegu jätame liitkasti nimeks ComboBox1.
Töövihiku avatud sündmuse loomine. Töövihiku avamise sündmusele lisatud kood käivitatakse töövihiku avamisel Excel VBA abil.
4. Avage Visual Basic Editor.
5. Topeltklõpsake Project Exploreris sellel töövihikul.
6. Valige vasakust ripploendist Töövihik ja paremalt ripploendist Ava.
7. Üksuste lisamiseks liitkasti lisage töövihiku avatud sündmusele järgmised koodiridad:
Lehega1.ComboBox1
.Lisa "Pariis"
.Lisage "New York"
.Lisa London
Lõpeta
Märkus. Kasutage lehte2, kui teie liitkast asub teisel töölehel, lehte 3, kui liitkast asub kolmandal töölehel jne. Kui kasutate neid koodiridu väljaspool töövihiku avamise sündmust, võiksite lisada koodiridad enne neid koodiridu. Esimene koodirida tühjendab liitkasti. Nii ei lisata teie üksusi mitu korda, kui täidate oma koodi mitu korda. Teine koodirida kustutab teie enda valiku.
ComboBox 1. Selge
ComboBox1.Value = ""
8. Selle liitkasti lahtriga linkimiseks paremklõpsake liitkastil (veenduge, et kujundusrežiim on valitud) ja klõpsake nuppu Atribuudid. LinkedCelli jaoks täitke D2.
Märkus. Vaadake ka atribuuti ListFillRange, et täita lahtrivahemikuga liitkast.
9. Salvestage, sulgege ja avage uuesti Exceli fail.
Tulemus:
Ehkki mõnes olukorras võib olla kasulik töölehele otse lisakast paigutada, on liitkasti kasutajavormile paigutamisel eriti kasulik.
