Excel表格里出现了很多文本框,怎么办
使得系统里很慢很慢,有时跟本无法打开,这种东东是怎么来的???又要怎么解决它(快速又有效的方法)急.........
使得系统里很慢很慢,有时跟本无法打开,这种东东是怎么来的???又要怎么解决它(快速又有效的方法)急......
展开
8个回答
展开全部
打开你的文件,选择“工具”-“宏”-“visua basic 编辑器”
在编辑器界面,选择“插入”-“模块”
在模块代码框内输入以下代码,按F5,点击运行即可。
Sub deljx()
Dim i As Integer
On Error Resume Next
For i = 1 To 9999
ActiveSheet.Shapes("Rectangle " & i & "").Select
Selection.Delete
Next
End Sub
注意:for i = 1 to 9999 可能需要根据你的实际情况来改,9999的意思是假设你的文件里有9999个文本框,如果超过9999个文本框,那把9999改一下就好了。
看你的问题,应该是宏出了问题,建议针对宏病毒杀下毒,然后修改excel里宏的安全性。
在编辑器界面,选择“插入”-“模块”
在模块代码框内输入以下代码,按F5,点击运行即可。
Sub deljx()
Dim i As Integer
On Error Resume Next
For i = 1 To 9999
ActiveSheet.Shapes("Rectangle " & i & "").Select
Selection.Delete
Next
End Sub
注意:for i = 1 to 9999 可能需要根据你的实际情况来改,9999的意思是假设你的文件里有9999个文本框,如果超过9999个文本框,那把9999改一下就好了。
看你的问题,应该是宏出了问题,建议针对宏病毒杀下毒,然后修改excel里宏的安全性。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
将文件扩展名.XLSX改成.ZIP,双击打开,找到xl文件夹,打开,找到drawings文件夹,删除,关闭,扩展名再改回来,双击打开,报错单击是,关闭弹出的对话框,另存一份,原文件删除,打开另存的就不会再有报错提示,文件变小了也能正常打开。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选择编辑->定位->点击 定位条件->选择对象->点击确认->按DEL键,或者删除键搞定!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询