En kryssruta är ett fält som kan markeras för att lagra information. Att skapa en kryssruta i Excel VBA, utför följande steg.
1. Klicka på Infoga på fliken Utvecklare.
2. Klicka på kryssrutan i gruppen ActiveX -kontroller.
3. Dra en kryssruta på ditt kalkylblad.
4. Högerklicka på kryssrutan (se till att Designläge är markerat).
5. Klicka på Visa kod.
Obs! Du kan ändra bildtexten och namnet på en kontroll genom att högerklicka på kontrollen (se till att Design Mode är valt) och sedan klicka på Properties. Ändra rubriken för kryssrutan till MyCheckBox. För närvarande lämnar vi CheckBox1 som namnet på kryssrutan.
6. Lägg till följande kodrader:
Om CheckBox1.Value = True Then Range ("D2"). Värde = 1
Om CheckBox1.Value = False Then Range ("D2"). Värde = 0
7. Markera kryssrutan på arket (se till att Design Mode är avmarkerat).
Resultat:
Även om det i vissa situationer kan vara användbart att placera en kryssruta direkt i kalkylbladet, är en kryssruta särskilt användbar när den placeras i en användarform.
