Excel 2007 批量删除隐藏的文本框

最新推荐文章于 2021-03-17 21:11:04 发布
转载 最新推荐文章于 2021-03-17 21:11:04 发布 · 232 阅读 · 0 ·
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/findw/p/3737343.html

本文介绍了一种使用VBA宏批量删除Excel工作表中所有文本框的方法。通过提供的VBA代码，用户可以轻松地清除指定工作表上的文本框元素。

该方法取自百度知道，该朋友给出函数，我详细写一下方法。

 

打开有文本框的excel文件。

按 Alt+F11 打开编辑器。

将下面的函数复制进去：

Sub deltxbox()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then s.Delete
Next
End Sub

然后按 F5  执行即可！

转载于:https://www.cnblogs.com/findw/p/3737343.html

Excel 2007版的常用功能（1）：Excel基本操作
qq_29704567的博客
07-27 1884
1.Excel的布局了解： Excel重视功能性，PPT既注重功能又注重审美性 标题栏：​ 功能选项卡：​ 每个功能选项卡都有自己的功能区：​ 工作表控制按钮：​ 名称框和编辑栏：​ 状态栏： ​ 工作区：​ 视图切换区：​ 使用快速访问工具栏新建工作簿： 点击图中下拉箭头​--选择“新建”，即将“新建”按钮添加到快速访问工具栏—直接单击快速访问工具栏中的“新建”，即可新建...
文本框 清空_Excel VBA 基础教程——清空累加练习
weixin_39787089的博客
01-15 1060
接着上一节内容，练习几个例子熟悉一下。例子1. 自动完成数据累计在本示例中，将在Excel工作表中添加两个按钮，通过录制宏来实现自动累加计算和清空月数据的功能。打开Excel工作簿，在“sheet1”工作表中输入以下数据信息，如下图所示：“开发工具”→【录制宏】→在“宏名”文本框中输入“累加数据”→确定复制B列数据，到C栏相对应的位置（本例子中是C3），选择性粘贴，在“选择性粘贴”窗口中的“运算”...
快速删除工作表中所有的文本框
sinat_39566400的博客
08-02 1289
不仅可以删除所有文本框，其他插入的对象，如图片、自选图形等都可以用同样的方式删除哦。 一、在“开始”选项卡中，找到“查找和选择”中的【定位条件】   二、在【定位条件中】选择【对象】   最后选中所有文本框后按【Delete】键删除即可   群福利 群号码：615147109 1. Office安装程序及激活。 2. PPT模版，简历模版。 3. 原创
excel删除text box
03-08 1881
Ctrl+G定位（F5）——定位条件——对象——确定——删除。 （如果对象是用控件，可调出控件工具箱，点击第一个按钮进入编辑状态，然后再用定位，删除。 Sub Macro1()   For Each a In ActiveSheet.Shapes    a.Delete    Next End Sub Sub Macro1() J = 1 Dim aa As Shap...
优加 把外框线变成红色 内圈变成黑色
jialan75的博客
03-17 193
Sub youjia() Dim s As Shape Dim w As Double Dim h As Double ActiveDocument.Unit = cdrMillimeter For Each s In ActivePage.Shapes.All s.GetSize w, h If w >= 429 And h >= 304 Then s.Outline.Color.CMYKAssign 0, 100, 100, 0 Else s.Outline.Co...
Excel VBA 删除 表格中的图片
禅：戒定慧
01-19 7105
在excel中建立了一个模板，希望大家使用完成后，里面的数值进行初始化， 那么，就需要将其中的文字、文本框、图片进行删除 Sub DeletePic() Dim p As Shape For Each p In Sheet1.Shapes If p.Type = 13 Then p.Delete End If Next End Sub 代码中的type可以参考如下， 在删除图片后，我又想制定某些的区域代码，那么如何进行修改？
VBA-批量删除文本框内容（用类实现）
oyq的博客
07-13 6826
1.首先，我们创建一个类，类里面包含控件个数，并且有相应的方法，具体代码如下Option ExplicitPrivate arr() As MSForms.TextBoxPrivate count As Integer '控件个数'获得文本框个数，将文本框存入数组Sub addcontrol(con As MSForms.TextBox)    count = count + 1    ReDim...
Excel2007使用技巧大全
08-09
- 使用条件格式化高亮显示空行，然后批量删除。 **39. 绘制斜线表头** - 使用文本框绘制斜线，并设置旋转角度。 **40. 绘制斜线单元格** - 在单元格中使用文本框绘制斜线。 **41. 每次选定同一单元格** - ...
wps 删除页面文本框还在
03-14
- 参考《AI数据处理实战108招：ChatGPT+Excel+VBA》中的VBA代码示例，编写宏批量删除残留文本框[^3]： ```vba Sub DeleteAllTextboxes() Dim shp As Shape For Each shp In ActiveDocument.Shapes If shp.Type...
深入解析VBA：5大技巧实现Excel图片批量提取与保存
本文旨在探讨VBA编程在Excel中的应用，特别关注批量处理图片的功能。第一章为VBA编程的基础知识，涵盖在Excel中的应用基础。第二章深入介绍VBA与Excel对象模型之间的关系，包括对象的引用、文件和文件夹操作，以及...
【自动化打印任务】：BarTender解决EXCEL数据批量处理的黄金方案
[BarTender怎样批量打印EXCEL里的数据?](https://www.smartsheet.com/sites/default/files/styles/full_width_desktop/public/IC-Bartender-Audit_Trail.png?itok=uxnjJQZH) # 摘要 随着信息技术的快速发展，自动化...
提取WORD中的所有InlineShape图片并保存成文件
09-05 5544
InlineShape表示的类型其实不只是图片，还包括OLE, ACTIVE X等。 下面是MSDN中的定义：Represents an object in the text layer of a document（表示文档中文本层的一个对象）。 可以通过InlineShape的Type属性获得这个对象的具体类型。Type是一个WdInlineShapeType的枚举类型。WdInlineShap
excel 宏命令 VB 批量删除word表格的指定行
yyfjm1994的博客
12-21 2397
Sub 删表格红色行() '每个表格只能有一个红色的行，有多个只处理第一个 Dim tb As Table, cl As Cell For Each tb In ActiveDocument.Tables For Each cl In tb.Range.Cells If cl.Range.Font.Color = 255 Then cl.Row.Delete .
VBA批量删除Shape
weixin_34343000的博客
08-13 2895
2019独角兽企业重金招聘Python工程师标准>>> ...
VBA 删除Excel中所有的图片
weixin_30555125的博客
03-08 1640
Sub DeletePic() Dim p As Shape For Each p In Sheet1.Shapes If p.Type = 13 Then p.Delete End If Next End Sub 附上删除的图形类型见下表： 转载于:https://www.cnblogs....
chromedriver-linux64-142.0.7399.0(Canary).zip
最新发布
09-07
chromedriver-linux64-142.0.7399.0(Canary).zip
软件测试与验证第二次作业-基于黑盒测试和白盒测试方法的综合测试用例设计与执行包括等价类划分边界值分析路径覆盖和条件覆盖等测试技术结合JUnit和Selenium框架进行自动.zip
09-07
stm32软件测试与验证第二次作业_基于黑盒测试和白盒测试方法的综合测试用例设计与执行包括等价类划分边界值分析路径覆盖和条件覆盖等测试技术结合JUnit和Selenium框架进行自动.zip
perl-Pod-Checker-4:1.73-395.el8.tar.gz
09-07
# 适用操作系统：Centos8 #Step1、解压 tar -zxvf xxx.el8.tar.gz #Step2、进入解压后的目录，执行安装 sudo rpm -ivh *.rpm
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值