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

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

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

vba 判断文本框内容是否为空_VBA代码用SetFocus精确控制焦点事件
VBA++ 题记: 静下心,多学习有用的知识,多提高自己的水平和能力,这才是正道.时间就像一张网,你撒在哪里,你的收获就在哪里.谨记自己的方向,这是路之所在.适当节制自我的各种欲望,谁都逃不过时间的历 ...
本节作业之显示不同问候语、显示密码、关闭二维码、循环精灵图背景、显示隐藏文本框内容、密码框格式提示错误、京东关闭广告、新浪下拉菜单、开关灯、换肤、表格隔行变色、表单取消全选、tab栏切换、发布删除留言
本节作业之显示不同问候语.显示密码.关闭二维码.循环精灵图背景.显示隐藏文本框内容.密码框格式提示错误.京东关闭广告.新浪下拉菜单.开关灯.换肤.表格隔行变色.表单取消全选.tab栏切换.发布删除留言 ...
vba 判断文本框内容是否为空_校验数据一旦失败，VBA代码自动控制焦点返回的另一备选方案...
大家好,我们今日继续讲解VBA代码解决方案的第95讲内容:如果文本框的录入校验不能通过,光标仍返回文本框中的另一方案.在上一讲中我讲了利用EXIT事件中的Cancel 参数的设置来达到我们的目的(值是 ...
vba 判断文本框内容是否为空_【VBA】数据输入 Inputbox 基本语法
在使用Excel 的过程中,如果需要用户输入简单的数据,作为"已知数",那么可以使用inputbox 函数显示一个对话框,供用户在对话框中输入数据. Inputbox 函数语法在一 ...
vba 判断文本框内容是否为空_Excel/VBA编程用户交互函数(二)——InputBox()函数和inputbox方法...
在上一篇文章Excel/VBA编程用户交互函数(一)--msgbox()函数中,小伙伴们了解了消息弹窗的知识,今天我们来学习一下Excel/VBA编程的第二个用户交互函数Inputbox()函数及In ...
VBA实现从EXCEL单元格更新或修改PPT对应文本框内容并且不改变格式
VBA实现从EXCEL单元格更新或修改PPT对应文本框内容并且不改变格式配置工作开发演示注意点!!! 打赏原创不容易,请不要抄袭! 配置工作 EXCEL 2010版本以上配置文件-选项-自 ...
python tkinter输入框_python TKinter获取文本框内容的方法
python TKinter获取文本框内容的方法更新时间:2018年10月11日 11:36:08 作者:biubiuzzz 今天小编就为大家分享一篇python TKinter获取文本框内容的方法 ...
在ArcMap中批量创建文本框批量输出PDF
先发下牢骚,由于某个家长不负责任的行为导致我家这片区域的小孩上了一个星期的网课... 神兽在家,除了上网课,小奔运动打卡,写字和计算练习当然也要安排上出计算练习题当然也不可能手写,刚好以前做土地确权 ...
世界之窗浏览器删除文本框信息_文本框——Excel里的便利贴
工作表里面的单元格应该是足够我们来记录数据和信息了.但是文本框这个功能在工作表中还是存在,可以理解为便利贴功能. 插入文本框 1.点击"插入"选项卡. 2.然后点击"文本 ...
swing获取文本框内容_营销管理培训课件，大客服销售策略和技巧，全内容PPT拿来就用...
Hello大家好,我是帮帮.今天跟大家分享一张营销管理培训课件,大客服销售策略和技巧,全内容PPT拿来就用. 为了让大家能更稳定的下载模板,我们又开通了全新下载方式(见文章末尾),以便大家可以轻松获得 ...

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

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

最新文章

热门文章