JotaPêAh!

Controle MultiPage

em 26/01/2010 19:16:07

Loop Through UserForm Controls

Excel VBA UserForms and their associated controls are a great way to present/collect

data from users. There are often occasions however when we need to loop through

all controls on a UserForm, or only certain specified controls.

Loop Through All Controls

Use the code below to loop through all Controls on a UserForm

Private Sub CommandButton1_Click()

Dim cCont As Control

For Each cCont In Me.Controls

‘DO STUFF HERE

Next cCont

End Sub

Loop Through Specific/Specified Controls

Use the code below to loop through only specified Controls on a UserForm.

Private Sub CommandButton1_Click()

Dim cCont As Control

For Each cCont In Me.Controls

If TypeName(cCont) = “TextBox” Then

‘DO STUFF HERE

End If

Next cCont

End Sub

Loop Through Specific Controls on a Specified Page of a MultiPage

Control

Use the code below to loop through only specific Controls on a specified page of

a MultiPage Control. Note that Pages(0) is always the first page of any MultiPage

Control.

Private Sub CommandButton1_Click()

Dim cCont As Control

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

If TypeName(cCont) = “TextBox” Then

‘DO STUFF HERE

End If

Next cCont

End Sub

Loop Through Specified Controls on all Pages of a MultiPage Control

Use the code below to loop through specified controls on all pages of a MultiPage

Control.

Private Sub CommandButton1_Click()

Dim pPage As Page, cCont As Control

For Each pPage In Me.MultiPage1.Pages

For Each cCont In pPage.Controls

If TypeName(cCont) = “ComboBox” Then

‘DO STUFF HERE

End If

Next cCont

Next pPage

End Sub


Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: