Question

我有一个带有重置命令按钮的excel用户窗体，用于清除用户字段。我的用户表单由文本框和组合框组成。我使用下面的脚本重置字段。问题在于它没有清除我使用的icontrol.name like "Txt*"组合框中的值。我尝试了"Txt*","Comb*"，但它给了我一个错误

Private Sub CmdReset_Click()

Dim iControl As Control

For Each iControl In Me.Controls
If iControl.Name Like "Txt*" Then iControl = vbNullString
Next

End Sub

Answer 1

为了获得更高的准确性，您可以使用以下代码：

For Each iControl In Me.Controls
   If TypeName(iControl) = "TextBox" Or TypeName(iControl) = "ComboBox" then iControl.Value = vbNullString
Next iControl

重置文本框和组合框的命令

1 个答案: