/ / Excel VBA Combo Box

Excel VBA Combo Box

En kombinationsfält är en rullgardinslista från vilken en användare kan välja ett objekt eller fylla i sitt eget val. För att skapa en combo box i Excel VBA, utför följande steg.

1. På fliken Utvecklare klickar du på Infoga.

2. I ActiveX Controls-gruppen klickar du på Combo Box.

Skapa en kombinationsfält i Excel VBA

3. Dra en kombinationsfält i ditt arbetsblad.

Dra en kombinationsboks

Notera: Du kan ändra namnet på en kontroll genom att högerklicka på kontrollen (se till att designläget är valt) och klicka sedan på Egenskaper. För närvarande lämnar vi ComboBox1 som namnet på kombinationsrutan.

Skapa en Arbetsbok Open Event. Kod som läggs till i Arbetsbokens öppna händelse kommer att utföras av Excel VBA när du öppnar arbetsboken.

4. Öppna Visual Basic Editor.

5. Dubbelklicka på Den här Arbetsboken i Project Explorer.

6. Välj Arbetsbok från den vänstra rullgardinsmenyn och välj Öppna från den nedrullningsbara listan.

Arbetsbok Open Event i Excel VBA

7. Om du vill lägga till objekt i kombinationsrutan lägger du till följande kodlinjer i arbetsbokens öppna händelse:

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

Notera: använd Sheet2 om din kombinationsrutan finns i det andra arbetsbladet Sheet3 om din kombinationsrutan finns i det tredje arbetsbladet. Om du använder dessa kodlinjer utanför arbetsbokens Open-händelse, kanske du vill lägga till kodrubrikerna nedan innan dessa kodlinjer. Den första kodlinjen rensar kombinationsrutan. På så sätt kommer dina saker inte att läggas till flera gånger om du kör koden mer än en gång. Den andra kodlinjen rensar ditt eget val.

ComboBox1.Clear
ComboBox1.Value = ""

8. För att länka den här kombinationsrutan till en cell, högerklicka på kombinationsrutan (se till att designläget är valt) och klicka på Egenskaper. Fyll i D2 för LinkedCell.

LinkedCell

Obs! Se även egenskapen ListFillRange för att fylla en kombinationsfält med ett antal celler.

9. Spara, stäng och öppna Excel-filen igen.

Resultat:

Combo Box

Även om det i vissa situationer kan vara användbart att direkt placera en kombinationsfält i ditt arbetsblad, är en kombinationsboks särskilt användbar när den placeras på en Userform.

Läs också: