Changing the backcolor of all controls on a userform

RawlinsCross

Active Member
Joined
Sep 9, 2016
Messages
437
Hi there,

I have a few dozen textboxes on a userform, might add a few, might take a few away. Looking to change the backcolor of them all. My first question is: are textboxes counted as controls? So I'm trying to write using the following code - any ideas?

Code:
Dim ctl As MSForms.Control
 
For Each ctl In Me.Controls
    Me.Controls.BackColor = RGB(211, 211, 211)
   'clearly not working here... 
Next ctl
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
Code:
For Each ctl In Me.Controls
    If TypeName(ctl) = "TextBox" Then
        ctl.BackColor = RGB(211, 211, 211)
    End If
Next ctl
 
Upvote 0
Try this.
Code:
Dim ctl As MSForms.Control
 
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.TextBox Then
        ctl.BackColor = RGB(211, 211, 211)
    End If
Next ctl
 
Upvote 0

Forum statistics

Threads
1,223,264
Messages
6,171,081
Members
452,377
Latest member
bradfordsam

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top