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.效果如下所示,未按清空按钮之前

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


  • 0
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 3
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值