用vba 刷新窗体中许多个textbox的值为空格的代码

Question

比例窗体中有textbox1,textbox2,textbox3……textbox50
如何实现点击"刷新"后，这50个textbox的值都为空格,麻烦高人指点。
有许多个textbox，如果用 textbox1.value=""方法是很慢的。想用for循环实现。

Answer 1

将窗体内需要使用程序清空的Textbox控件的Tag属性设置为一特定字符（比方说：Textbox），在程序中使用For Each语句遍历窗体的每个一Control，判断其Tag属性是否为设定的字符串，如果是则清空其Text属性。请参考下图：

Answer 2

窗体中的控件可用下面的方法：
-------------
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
If LCase(TypeName(c)) = "textbox" Then
c.Text = ""
' MsgBox TypeName(c) & " = ""textbox"""
Else
' MsgBox TypeName(c) & " <> ""TextBox"""
End If
Next
End Sub