变化在Excel中使用VBA的几个用户窗体，控件的值/含量

发表于： 2020年10月22日 2020年11月12日
标签： user-forms-input-boxes-in-vba

|在Excel 5/95对话框中，可以通过循环访问控件集合中的控件来更改控件集合的值/内容。像这样：对于dlg.CheckBoxes中的每个cb。

在Excel 97或更高版本中，UserForm对象不会以相同的方式对控件进行分组。

在下面，您将找到一些示例宏，这些宏显示了如何更改几个UserForm控件的值/内容：

Sub ResetAllCheckBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "CheckBox" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllOptionButtonsInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "OptionButton" Then

ctrl.Value = False

End If

Next ctrl

End Sub

Sub ResetAllTextBoxesInUserForm()

Dim ctrl As Control

For Each ctrl In UserForm1.Controls

If TypeName(ctrl) = "TextBox" Then

ctrl.Text = ""

End If

Next ctrl

End Sub