Outra coisa Mauro, tentei adaptar o seu exemplo só que dessa vez com Combobox's.
Dim i As Integer
For i = 2 To 4
If TypeOf UserForm1.Controls(i) Is MSForms.TextBox Then
UserForm1.Controls(i).BackColor = vbYellow
End If
Next i
Não sei o porque, mais não funcionou de jeito nenhum..
Wolney cada "Control" tem o nome especifico, então para ComboBox,seria :
If TypeOf UserForm1.Controls(i) Is MSForms.ComboBox Then
Se fosse controle CheckBox, seria:
If TypeOf UserForm1.Controls(i) Is MSForms.CheckBox Then
Quanto a expressão TypeOf - estamos nos referindo ao tipi de controle, temos tambem "TypeName" onde nos referimos aos nomes dos controles.
Veja algumas referencias:
CheckBox: Forms.CheckBox.1
ComboBox: Forms.ComboBox.1
CommandButton: Forms.CommandButton.1
Frame: Forms.Frame.1
Image: Forms.Image.1
Label: Forms.Label.1
ListBox: Forms.ListBox.1
MultiPage: Forms.MultiPage.1
OptionButton: Forms.OptionButton.1
ScrollBar: Forms.ScrollBar.1
SpinButton: Forms.SpinButton.1
TabStrip: Forms.TabStrip.1
TextBox: Forms.TextBox.1
ToggleButton: Forms.ToggleButton.1
Adicionando controles dinamicamente no VBA
http://www.tomasvasquez.com.br/blog/mic ... nte-no-vba
Loop Through Controls on a UserForm. Textbox, ComboBox, CheckBox etc
http://www.ozgrid.com/VBA/control-loop.htm
Se pesquisar na Net por :
TypeOf UserForm1.Controls excel vba
encontrara uma infinidade de links a respeito.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/08/2013 6:01 pm