/ / Excel VBA Combo Box

Excel VBA Combo Box

En kombinasjonsboks er en rullegardinliste hvor en bruker kan velge et element eller fylle ut eget valg. Å opprette en kombinasjonsboksen i Excel VBA, utfør følgende trinn.

1. På fanen Utvikler klikker du Sett inn.

2. I ActiveX Controls-gruppen klikker du på kombinasjonsboksen.

Opprett en kombinasjonsboks i Excel VBA

3. Dra en kombinasjonsboks på regnearket.

Dra en kombinasjonsboks

Merk: Du kan endre navnet på en kontroll ved å høyreklikke på kontrollen (pass på at designmodus er valgt), og klikk deretter på Egenskaper. For nå vil vi forlate ComboBox1 som navnet på kombinationsboksen.

Lag en Arbeidsbok Open Event. Koden som er lagt til i Arbeidsbokens Open Event, blir utført av Excel VBA når du åpner arbeidsboken.

4. Åpne Visual Basic Editor.

5. Dobbeltklikk på Denne arbeidsboken i Project Explorer.

6. Velg Arbeidsbok fra den venstre rullegardinlisten, og velg Åpne fra den høyre rullegardinlisten.

Arbeidsbok Åpen hendelse i Excel VBA

7. Hvis du vil legge til elementer i kombinasjonsboksen, legger du til følgende kodelinjer i Arbeidsbokens åpne hendelse:

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

Merk: bruk Sheet2 hvis kombinasjonsboksen din er plassert på det andre regnearket, Sheet3 hvis kombinasjonsboksen din er plassert på det tredje regnearket osv. Hvis du bruker disse kodelinjene utenfor arbeidsboken Åpne, kan du legge til kodelinjene nedenfor før disse kode linjer. Den første kodelinjen sletter kombinasjonsboksen. På denne måten vil dine elementer ikke bli lagt til flere ganger hvis du kjører koden mer enn en gang. Den andre koden linje fjerner ditt eget valg.

ComboBox1.Clear
ComboBox1.Value = ""

8. For å koble denne kombinasjonsboksen til en celle, høyreklikk på kombinationsboksen (pass på at designmodus er valgt) og klikk på Egenskaper. Fyll inn D2 for LinkedCell.

LinkedCell

Merk: Se også listen ListFillRange for å fylle en kombinasjonsboks med en rekke celler.

9. Lagre, lukk og åpne Excel-filen igjen.

Resultat:

Combo Box

Selv om det i noen situasjoner kan være nyttig å legge en kombinasjonsboks direkte på regnearket, er en kombinasjonsboks spesielt nyttig når den plasseres på en brukerform.

Les også: