En kombinationsruta är en rullgardinslista där en användare kan välja ett objekt eller fylla i sitt eget val. Att skapa en Kombinationsrutan i Excel VBA, utför följande steg.
1. Klicka på Infoga på fliken Utvecklare.
2. Klicka på kombinationsrutan i gruppen ActiveX -kontroller.
3. Dra en kombinationsruta på ditt kalkylblad.
Obs! Du kan ändra namnet på en kontroll genom att högerklicka på kontrollen (se till att Design Mode är valt) och sedan klicka på Properties. För närvarande lämnar vi ComboBox1 som namnet på kombinationsrutan.
Skapa en Workbook Open Event. Koden som läggs till i Workbook Open Event kommer att kö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 listrutan och välj Öppna från den högra listrutan.
7. Om du vill lägga till objekt i kombinationsrutan lägger du till följande kodrader i Workbook Open Event:
Med Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Sluta med
Obs! Använd Sheet2 om kombinationsrutan finns i det andra kalkylbladet, Sheet3 om kombinationsrutan finns på det tredje kalkylbladet etc. Om du använder dessa kodrader utanför Workbook Open -händelsen kanske du vill lägga till kodraderna nedan före dessa kodrader. Den första kodraden raderar kombinationsrutan. På så sätt kommer dina objekt inte att läggas till flera gånger om du kör koden mer än en gång. Den andra kodraden rensar ditt eget val.
ComboBox 1. Rensa
ComboBox1.Value = ""
8. För att länka denna kombinationsruta till en cell, högerklicka på kombinationsrutan (se till att designläge är valt) och klicka på Egenskaper. Fyll i D2 för LinkedCell.
Obs! Se även egenskapen ListFillRange för att fylla en kombinationsruta med ett antal celler.
9. Spara, stäng och öppna Excel -filen igen.
Resultat:
Även om det i vissa situationer kan vara användbart att direkt placera en kombinationsruta i ditt kalkylblad, är en kombinationsruta särskilt användbar när den placeras på en användarform.
