Can I refer to Checkbox1 using "Checkbox & i" (where i=1) ?

[squidgeny]

Hi everyone,

This is something I've struggled with for a long time. It's proving quite difficult to google so I've come here.

I have a form with countless checkboxes, all neatly named (Checkbox1, Checkbox2 etc).

A subroutine loads this form and assigns values (i.e. true/false) to these checkboxes before showing it, based on various conditions. However it is immensely wasteful to put an "IF THEN" line of code for each and every one... is there a way I can loop through them, using the pattern in their control names? Can it be done for variables?

Thanks!

Here's a (very) simplified example of my code:

If integer1 = 7 then .Checkbox1 = True
If integer2 = 7 then .Checkbox2 = True
If integer3 = 7 then .Checkbox3 = True
If integer4 = 7 then .Checkbox4 = True

And here is an example of what I'm trying to do (except obviously this code doesn't work):

For i = 1 To 4
If integer & i = 7 then .Checkbox & i = True
Next i

 

[pjmorris]

Hi,

I think you need to do 2 things:

1. Define your variable integer1, integer2 etc as an array; something like this will do: dim nInteger(5) as integer note I've changed the name to nInteger as 'integer' itself is a reserved word.
2. Your code should then look like this:

For n = 1 To 4
    If nInteger(n) = 7 Then UserForm1.Controls("Checkbox" & n) = True
Next

Hope this helps.

Regards