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.要想把⽂本框中的内容全部清除，就要将所有的⽂本框选中，然后清空，具体代码如下所⽰
html内容文本框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.效果如下所⽰，未按清空按钮之前
按了清空按钮之后，我们可以看到，只要是⽂本框的内容都被清空了

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。