I VBA kan du skapa en Kryssruta där en användare kan markera eller avmarkera alternativet. En kryssruta används ofta i användarformulär, men kan också användas i ett kalkylblad. I den här självstudien lär du dig hur du skapar en kryssruta, får ett användarval i VBA och använder det i kod.
Om du vill lära dig hur du skapar en listbox, klicka här: VBA Listbox
Om du vill lära dig hur du skapar en Combobox, klicka här: VBA Combobox
Skapa en kryssruta
För att infoga en kryssruta i kalkylbladet måste du gå till Fliken Utvecklare, klick Föra in och välj under ActiveX -kontroller Kryssruta:
Bild 1. Infoga en kryssruta i kalkylbladet
När du markerar kryssrutan som du infogade kan du klicka på Egenskaper under Fliken Utvecklare:
Bild 2. Ändra kryssrutans egenskaper
Här kan du ställa in olika egenskaper för kryssrutan. Till att börja med ändrade vi attributet namn till cmbCheckbox. Nu kan vi använda kryssrutan med detta namn i VBA -kod.
Vi ändrade också texten som visas bredvid kryssrutan till Håller med villkoren. För att göra detta måste du ange attributet Rubrik.
Få ett valt objekt i en kryssruta i VBA
Syftet med en kryssruta är att få användarnas val (kryssrutan markerad eller inte). För att hämta ett värde som väljs av användaren måste du använda den här koden:
| 123456789 | If Sheet1.chbCheckBox.Value = True ThenSheet1.Range ("C3") = "Håller med"AnnanSheet1.Range ("C3") = "Håller inte med"Avsluta om |
Vi vill fylla i cellen C3 med Hålla med om kryssrutan är markerad och Håller inte med annat. Värdet för kryssrutan finns iVärde objektets attribut Sheet1.chbCheckbox. Värdet för kryssrutan kan vara sant eller falskt.
Bild 3. Hämta ett valt värde från kryssrutan i VBA
När vi markerade kryssrutan, värdet på Sheet1.chbCheckbox.Value är sant, så resultatet i C3 är Hålla med.
Använd en kryssruta i en användarform
Som vi nämnde används kryssrutan oftast i användarformulär. För att förklara hur du kan göra kommer vi först att infoga en användarform. I VBA-editor, högerklicka på modulnamn, klicka på Föra in och välj UserForm:
Bild 8. Infoga en användarform
För att visa kontroller för infogning måste du aktivera Verktygslåda. För att göra detta, klicka påVerktygslåda ikonen i verktygsfältet. Efter det får du fönstren med alla tillgängliga kontroller. Du kan klicka på Kryssruta för att skapa den i användarformen:
Bild 9. Infoga en kryssruta i användarformuläret
I egenskapsfönstret ändrar vi namnet på kryssrutan till chbCheckBox och bildtext till Håller med villkoren. När vi kör Userform får vi kryssrutan i den.
Bild 10. Kryssrutan i användarformen
Om du vill få valt värde från kryssrutan måste du använda samma logik för kryssrutan i ett arbetsblad, vilket förklaras tidigare i artikeln.
