LOOP EM OBJETOS

ALELUIZ 09/03/2012 13:56:35
#396811
Uma duvida que me persegue , a um maneira de fazer loop em alguns textbox e realizar alteração neles ?
Já vi uma sub que percorre todos os controles do formulario ,
o exemplo abaixo é mais ou menos o que preciso.
tem uma maneira de fazer isto funcionar ?

Sub teste()
Dim Objeto As object
For i = 1 To 10
Set Objeto = textbox & i
 With Objeto
 .Visible = True
 End With
end sub
SERGIOPASCOAL 09/03/2012 14:08:52
#396812 Resposta escolhida
aleluiz, coloque suas texts como array depois só fazer assim:
form i = 0 to 10
textbox(i).visible = true
next
ALELUIZ 09/03/2012 14:20:22
#396814
Estou utilizando VBA - EXCEL . não tem controle nativo e array
ALELUIZ 09/03/2012 14:34:11
#396815
Resolvido !

Dim controle(1 To 10) As Control
Dim i As Integer
For i = 1 To 10
Set controle(i) = Controls([Ô]texto[Ô] & i)
controle(i).Visible = True
Next i


Abraços
Tópico encerrado , respostas não são mais permitidas
Voltar