/ / Excel VBA kombinált doboz

Excel VBA kombinált doboz

A kombinált mező egy olyan legördülő lista, ahonnan a felhasználó választhat egy elemet, vagy kitöltheti saját választásait. A kombinált doboz ban ben Excel VBAhajtsa végre a következő lépéseket.

1. A Fejlesztő lapon kattintson a Beszúrás gombra.

2. Az ActiveX-vezérlők csoportban kattintson a Kombinált doboz elemre.

Hozzon létre egy kombinált mezőt az Excel VBA-ban

3. Húzza össze a kombinált mezőt a munkalapon.

Húzza össze a kombinált dobozt

Jegyzet: megváltoztathatja a vezérlő nevét a jobb egérgombbal történő kattintással (győződjön meg róla, hogy a Tervezési mód van kiválasztva), majd kattintson a Tulajdonságok gombra. Most a ComboBox1-et hagyjuk a kombinált doboz nevére.

Munkafüzet nyitott esemény létrehozása. A Munkafüzet megnyitott eseményhez hozzáadott kódot az Excel VBA fogja végrehajtani a munkafüzet megnyitásakor.

4. Nyissa meg a Visual Basic Editor alkalmazást.

5. Kattintson duplán a Work Explorer-re a Project Explorerben.

6. Válassza ki a Munkafüzetet a bal oldali legördülő listából, és válassza a Megnyitás lehetőséget a megfelelő legördülő listából.

Munkafüzet megnyitása az Excel VBA programban

7. Elemek hozzáadásához a kombinált mezőbe adja meg a következő kódsorokat a Munkafüzet megnyitott eseményhez:

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

Jegyzet: használja a Sheet2-et, ha a kombinált mező a második munkalapon található, a Sheet3, ha a kombinált mező a harmadik munkalapon található stb. Ha ezeket a kódsorokat a Workbook Open eseményen kívül használja, érdemes hozzáadnia az alábbi kódsorokat, mielőtt ezek kódsorok. Az első kódsor törli a kombinált dobozt. Így az elemek többször is hozzáadódnak, ha többször is végrehajtja a kódot, a második kódsor pedig a saját választását.

ComboBox1.Clear
ComboBox1.Value = ""

8. Ha ezt a kombinált mezőt egy cella összekapcsolja, kattintson jobb gombbal a kombinált mezőre (győződjön meg arról, hogy a tervezési mód van kiválasztva), majd kattintson a Tulajdonságok gombra. Töltse ki a D2-t a LinkedCell-hez.

LinkedCell

Megjegyzés: lásd a ListFillRange tulajdonságot is, ha egy kombinált mezőt tölt be cellákkal.

9. Mentse el, zárja be és indítsa újra az Excel fájlt.

Eredmény:

Kombinált doboz

Bár egyes esetekben hasznos lehet egy kombinált doboz elhelyezése a munkalapon, a kombinált doboz különösen akkor hasznos, ha Userform-ra kerül.

Szintén olvasható: