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

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




Nenhum comentário:

Postar um comentário

diHITT - Notícias