Altere o valor / conteúdo de vários controles de formulário de usuário usando VBA no Microsoft Excel

Anonim

Em uma planilha de diálogo do Excel 5/95, é possível alterar o valor / conteúdo de uma coleção de controles por
loop através dos controles na coleção, por exemplo, assim: For Each cb In dlg.CheckBoxes.
No Excel 97 ou posterior, o objeto UserForm não agrupa os controles da mesma maneira.
Abaixo você encontrará alguns exemplos de macros que mostram como
você pode alterar o valor / conteúdo de vários controles do formulário de usuário:

Sub ResetAllCheckBoxesInUserForm () Dim ctrl As Control Para Cada ctrl Em UserForm1.Controls If TypeName (ctrl) = "CheckBox" Then ctrl.Value = False End If Next ctrl End Sub Sub ResetAllOptionButtonsInUserForm () Dim ctrl As Control Para Cada ctrl Em UserForm1. Controles If TypeName (ctrl) = "OptionButton" Then ctrl.Value = False End If Next ctrl End Sub Sub ResetAllTextBoxesInUserForm () Dim ctrl As Controle para cada ctrl em UserForm1.Controls If TypeName (ctrl) = "TextBox" Then ctrl.Text = "" End If Next ctrl End Sub