VBA-批量删除文本框内容（用类实现）

1.首先，我们创建一个类，类里面包含控件个数，并且有相应的方法，具体代码如下

Option Explicit
Private arr() As MSForms.TextBox
Private count As Integer '控件个数
'获得文本框个数，将文本框存入数组
Sub addcontrol(con As MSForms.TextBox)
    count = count + 1
    ReDim Preserve arr(1 To count) As MSForms.TextBox
    Set arr(count) = con
End Sub
'批量清空文本框
Sub cleartextbox()
    Dim i As Integer
    For i = 1 To UBound(arr)
        arr(i).Text = ""
        Next i
       
End Sub

2.我们来做一个窗体，其布局和效果如下图所示

3.要想把文本框中的内容全部清除，就要将所有的文本框选中，然后清空，具体代码如下所示

Option Explicit
Dim mytext As New clstexbox '创建一个对象

Private Sub CommandButton2_Click() '清空所有的文本框
    mytext.cleartextbox
End Sub

Private Sub UserForm_Initialize()
    Dim c As Control
        For Each c In Me.Controls '遍历每一个控件
          If TypeName(c) = "TextBox" Then '控件类型为“TextBox”
           mytext.addcontrol c '将文本框添加入数组
           End If
           Next
           

End Sub

4.效果如下所示，未按清空按钮之前

按了清空按钮之后，我们可以看到，只要是文本框的内容都被清空了