VBA Excel - O uso dos Laços - Loop Through Controls on a UserForm. Textbox, ComboBox, CheckBox etc

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

Os laços são parte integrante de qualquer linguagem de programação.

É de se reconhecer que muitas pessoas os utilize, mas não saibam o seu nome ou a extensão de até onde podem ser utilizados.

Loop através dos objetos (controls) de um formulário:

Os controles dentro de um formulário são uma ótima maneira de apresentar / coletar dados dos usuários. Haverão ocasiões que será necessário percorrer todos os controles em um formulário (UserForm), ou apenas valores especificados.

Loop através de todos os controles:

Private Sub CommandButton1_Click()

Dim cCont As Control

For Each cCont In Me.Controls

'Digite as suas ações aqui.

Next cCont

End Sub

Loop somente através de controles específicos:

Private Sub CommandButton1_Click()

Dim cCont As Control

For Each cCont In Me.Controls

If TypeName(cCont) = "TextBox" Then

'Digite as suas ações aqui.

End If

Next cCont

End Sub

Loop através de Controles específicos em páginas específicas de um controle MultiPage:

Private Sub CommandButton1_Click()

Dim cCont As Control

For Each cCont In Me.MultiPage1.Pages(0).Controls

If TypeName(cCont) = "TextBox" Then

'Digite as suas ações aqui.

End If

Next cCont

End Sub

Tags: VBA, Excel, Loop, through, userform, textbox, combobox, checkbox, laço, multipage