Adress till CheckBox

[short]

Jag har 15 CheckBoxar numrerade 1-15. Jag vill ändra några boxars värde i ett program. Jag ver bara inte hur jag ska nå dem. Om jag skriver Sheets("Blad1").CheckBox(t) så går det inte. Jag vill alltså låta värdet på t styra vilken box jag vill nå.

[Monshi]

Du har såkallade "ActiveX" boxar, inte formulär.

 

Dessa kan du stega igenom med namnen via samligen OLEObjects som finns på varje blad.

 

Själva objektet, din kryssrutas egenskaper, når du via Object.

exempelvis för att kolla/ställa in värdet på en kryssruta denna väg:

Me.OLEObjects("Checkbox1").Object.Value

Och här kan då alltså skriva

For i = 1 to 10 
Me.OLEObjects("Checkbox" & i).Object.Value = True
Next i

Me - referensen till det blad koden står på, byt ut till annan bladreferens om utanför bladet.

 

 

Om det vore Formulärkontroller, då skulle du får gå via samlingen Shapes istället.

[short]

Nu fungerar det!