/ / Excel VBA Combo Box

Excel VBA Combo Box

En kombinationsboks er en rullemenu fra, hvor en bruger kan vælge et emne eller udfylde sit eget valg. At oprette en kombinationsfelt i Excel VBA, udfør følgende trin.

1. På fanen Udvikler skal du klikke på Indsæt.

2. I ActiveX Controls-gruppen skal du klikke på kombinationsboks.

Opret en kombinationsboks i Excel VBA

3. Træk en kombinationsboks på dit regneark.

Træk en kombinationsboks

Bemærk: Du kan ændre navnet på en kontrol ved at højreklikke på kontrollen (sørg for Design Mode er valgt), og klik derefter på Egenskaber. For nu vil vi forlade ComboBox1 som navnet på kombinationsboksen.

Opret en Arbejdsbog Open Event. Kode føjet til Workbook Open Event udføres af Excel VBA, når du åbner projektmappen.

4. Åbn Visual Basic Editor.

5. Dobbeltklik på Denne Workbook i Project Explorer.

6. Vælg Arbejdsbog i den venstre rullemenu og vælg Åbn i den højre rulleliste.

Workbook Open Event i Excel VBA

7. For at tilføje elementer til kombinationsboksen, skal du føje følgende kodelinjer til Arbejdsbogens åbne begivenhed:

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

Bemærk: brug Sheet2, hvis din kombinationsboks findes på det andet regneark, Sheet3, hvis din kombinationsboks er placeret på det tredje regneark. osv. Hvis du bruger disse kode linjer uden for Arbejdsbog Åbn begivenhed, kan du tilføje koden linjer nedenfor før disse kode linjer. Den første kode linje sletter kombinationsboksen. På denne måde vil dine varer ikke blive tilføjet flere gange, hvis du udfører din kode mere end én gang. Den anden kode linje sletter dit eget valg.

ComboBox1.Clear
ComboBox1.Value = ""

8. For at linke denne kombinationsboks til en celle skal du højreklikke på kombinationsboksen (sørg for, at designtilstand er valgt), og klik på Egenskaber. Udfyld D2 for LinkedCell.

LinkedCell

Bemærk: Se også listen ListFillRange for at udfylde en kombinationsboks med en række celler.

9. Gem, luk og genåb Excel-filen.

Resultat:

Kombinationsfelt

Selv om det i nogle situationer kan være nyttigt at placere en kombinationsboks direkte på dit regneark, er en kombinationsboks særlig nyttig, når den placeres på en brugerformular.

Læs også: