string

In the following code, I'm attempting to make all my checkboxes clear to a .false state, using a for next loop, Instead of typing each box in.

I'm new to vb and am unsure how I use a string variable with the checkbox objects. Have a look and see if you can help.

Thanks Dennis

Private Sub Cm1_Click()

Dim x As String

For c = 1 To 55
'Dim x As String
x = "a" + c
x.Value = False
next c
'instead of below
'a1.Value = False
'a2.Value = False
'a3, a4, a5,...
't1.Text = ""

End Sub

Are these checkboxes in a userform or checkboxes on a worksheet?

If they're on a worksheet, are they from the Forms toolbar or from the Control
toolbox toolbar.

On a Userform:

Option Explicit
Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is msforms.CheckBox Then
ctrl.Object.Value = False
End If
Next ctrl
End Sub

On a worksheet from the Forms toolbar:

Option Explicit
Sub testme()
Worksheets("Sheet1").CheckBoxes.Value = False
End Sub

One a worksheet from the Control Toolbox Toolbar:

Option Explicit
Private Sub CommandButton1_Click()
Dim OLEObj As OLEObject
For Each OLEObj In Me.OLEObjects
If TypeOf OLEObj.Object Is msforms.CheckBox Then
OLEObj.Object.Value = False
End If
Next OLEObj
End Sub

The me. keyword refers to the thing that owns the code--either the userform or
the worksheet with the button and checkboxes.


terrysoper1973 wrote:
>
> In the following code, I'm attempting to make all my checkboxes clear to
> a .false state, using a for next loop, Instead of typing each box in.
>
> I'm new to vb and am unsure how I use a string variable with the
> checkbox objects. Have a look and see if you can help.
>
> Thanks Dennis
>
> Private Sub Cm1_Click()
>
> Dim x As String
>
> For c = 1 To 55
> 'Dim x As String
> x = "a" + c
> x.Value = False
> next c
> 'instead of below
> 'a1.Value = False
> 'a2.Value = False
> 'a3, a4, a5,...
> 't1.Text = ""
>
> End Sub
>
> --
> terrysoper1973
> ------------------------------------------------------------------------
> terrysoper1973's Profile: http://www.excelforum.com/member.php...o&userid=30161
> View this thread: http://www.excelforum.com/showthread...hreadid=498925

--

Dave Peterson

I don't use excelforum so I can't see the attachment.

But I wouldn't open an attachment anyway. (Lots of people won't.)

Better to post in plain text.

terrysoper1973 wrote:
>
> The checkboxes are in a worksheet, not sure about the other.
>
> I've uploaded a sample for you.
>
> +-------------------------------------------------------------------+
> |Filename: fool balance.zip |
> |Download: http://www.excelforum.com/attachment.php?postid=4191 |
> +-------------------------------------------------------------------+
>
> --
> terrysoper1973
> ------------------------------------------------------------------------
> terrysoper1973's Profile: http://www.excelforum.com/member.php...o&userid=30161
> View this thread: http://www.excelforum.com/showthread...hreadid=498925

--

Dave Peterson

To clear all the checkboxes can be done by putting the statment
a1.value = false for each checkbox, however, there would be a lot of code if I need 100-200 checkboxes; so I'm asking if it is possible set up a for next loop that replaces the a1.value = false, a2.value = false, a3.value = false... with a simple sting that replaces the a# part of the object with an
a(string).value = false, but I'm not sure about the syntax, or if it is even possible.

Please help, and sorry about the file upload, we all have to be careful about what we open, won't happen again.

The code below is used to simulate my excel sheet.


Private Sub a1_Click()
'first check box test
Worksheets("sheet1").t1.Text = "fool"

End Sub

Private Sub a2_Click()
'second check box in sheet
Worksheets("sheet1").t1.Text = "fool2"
End Sub

Private Sub Cm1_Click()
'command button to make all checkboxes false

'works until x.value = false line, stops at the x
'For c = 1 To 2
'Dim x As String
'x = "a" + c
'x.Value = False
'next c

'works
'a2.Value = False
'a3, a4, a5,...
't1.Text = ""

End Sub

Private Sub Worksheet_Activate()
'works

a1.Value = False
a2.Value = False

End Sub

You can do something like the following:

Dim Ndx As Long
For Ndx = 1 To 2
UserForm1.Controls("A" & Ndx).Value = False
Next Ndx

Or, to clear all checkboxes,

Dim Ctrl As MSForms.Control
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
Ctrl.Value = False
End If
Next Ctrl

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"terrysoper1973"
<[email protected]>
wrote in message
news:[email protected]...
>
> To clear all the checkboxes can be done by putting the statment
> a1.value = false for each checkbox, however, there would be a
> lot of
> code if I need 100-200 checkboxes; so I'm asking if it is
> possible set
> up a for next loop that replaces the a1.value = false, a2.value
> =
> false, a3.value = false... with a simple sting that replaces
> the a#
> part of the object with an
> a(string).value = false, but I'm not sure about the syntax, or
> if it is
> even possible.
>
> Please help, and sorry about the file upload, we all have to be
> careful
> about what we open, won't happen again.
>
> The code below is used to simulate my excel sheet.
>
>
> Private Sub a1_Click()
> 'first check box test
> Worksheets("sheet1").t1.Text = "fool"
>
> End Sub
>
> Private Sub a2_Click()
> 'second check box in sheet
> Worksheets("sheet1").t1.Text = "fool2"
> End Sub
>
> Private Sub Cm1_Click()
> 'command button to make all checkboxes false
>
> 'works until x.value = false line, stops at the x
> 'For c = 1 To 2
> 'Dim x As String
> 'x = "a" + c
> 'x.Value = False
> 'next c
>
> 'works
> 'a2.Value = False
> 'a3, a4, a5,...
> 't1.Text = ""
>
> End Sub
>
> Private Sub Worksheet_Activate()
> 'works
>
> a1.Value = False
> a2.Value = False
>
> End Sub
>
>
> --
> terrysoper1973
> ------------------------------------------------------------------------
> terrysoper1973's Profile:
> http://www.excelforum.com/member.php...o&userid=30161
> View this thread:
> http://www.excelforum.com/showthread...hreadid=498925
>