En listruta är en lista från vilken en användare kan välja ett objekt. Att skapa en listruta i Excel VBA, utför följande steg.
1. Klicka på Infoga på fliken Utvecklare.
2. Klicka på Listruta i gruppen ActiveX -kontroller.
3. Dra en listruta 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 nu lämnar vi ListBox1 som namnet på listrutan.
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 listrutan lägger du till följande kodrader i Workbook Open Event:
Med Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Sluta med
Obs! Använd Sheet2 om din listruta finns i det andra kalkylbladet, Sheet3 om din listruta finns på det tredje kalkylbladet etc. Om du använder dessa kodrader utanför Workbook Open -händelsen kanske du vill lägga till följande kodrad före dessa kodrader. Denna kodrad rensar listrutan. 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.
ListBox 1. Rensa
8. För att länka listlistan till en cell, högerklicka på listrutan (se till att designläge är valt) och klicka på Egenskaper. Fyll i D3 för LinkedCell.
Obs! Se även egenskapen ListFillRange för att fylla i en listruta med ett cellintervall.
9. Spara, stäng och öppna Excel -filen igen.
Resultat:
Även om det i vissa situationer kan vara användbart att placera en listruta direkt i kalkylbladet, är en listruta särskilt användbar när den placeras i en användarform.
