下沙论坛

标题: 怎样清除excel中的一堆文本框(从别人那里转来的) [打印本页]

作者: 下沙大学生网    时间: 2011-11-16 14:26
标题: 怎样清除excel中的一堆文本框(从别人那里转来的)

   
$ E" b" R' Y/ ^0 p- z1 j最近客户反映他们的Excel打开特别慢,而且改一个数值需要10几20分钟,特别不正常。我要求客户将有问题的Excel文件Email给我后,我发现一个简单的Excel文件有10几M,甚至几百M。

打开Excel文件,经过漫长的等待后,点击表格格线附近,发现很多隐形透明的文本框,数量非常多。有的几十个有的几百个,百度一下也没有找到到如何删除这个病毒的解决方法,可能杀毒软件没把这个当作是病毒吧,我将这定义为Excel文本框病毒

   
$ s0 @7 h' \3 g. I  B/ U如何清除Excel文本框病毒呢?我现在没有时间来写这样一个软件,不过可以告诉大家一个清除的方法:

   / f! f4 M+ s5 V" a" u* \0 f
首先打开要清除的Excel文件,因为Office2007及Office2003(Office XP及Office2000)的界面有所不同,我在这里分别讲。

    * k5 O: N# F1 Z1 D& `
在Office2007中
,点击“查找和选择”按钮 ,在弹出一下拉菜单中,选择“
选择对像” ,选中之后,按CTRL+A全选,然后再按DEL删除,然后再保存。

在旧版的Office(Office2003/OfficeXP/Office200)中,中需要选择图形工具栏,然后点左边的图标,然后按CTRL+A全选,再按DEL删除,然后再保存就可以了。

   
6 b2 Z: `5 ^' c: J当然,如果你上面两个都不会,那也没关系,按F5,点击定位条件按钮,在弹出的定位窗口中选择“对象”,按确定,然后再按DEL删除,然后再保存。


作者: 下沙大学生网    时间: 2011-11-16 14:30
打开你的文件,选择“工具”-“宏”-“visua basic 编辑器”
1 l" X/ g- ^9 b$ @2 R' ]* X! a: a1 v+ I0 X8 c
在编辑器界面,选择“插入”-“模块”
5 r+ y* s( Y- N: g. g
/ A) l7 S% E. q" [- _在模块代码框内输入以下代码,按F5,点击运行即可。
  r7 S' }- f/ f3 V( ?6 _1 B; V& K* Z2 i4 Y$ ?  ~+ v: E; ?* }0 r( z
Sub deljx()
- Z+ {$ n2 w0 K0 g! Z" h) v! ^    Dim i As Integer# l& e$ z: l1 X# _
    On Error Resume Next& @/ H" e' c- a( J+ W  D) ]( t
        For i = 1 To 9999
0 d) C3 k+ y+ L4 @/ O. f            ActiveSheet.Shapes("Rectangle " & i & "").Select. f3 [3 P  y" }; l$ X3 U
            Selection.Delete4 |7 B. g0 l2 B5 U" F
        Next
0 n- f  [% L6 N  T9 q- d8 w6 _# [End Sub
1 \6 x7 s% ?9 g! C9 `6 g( }! w
- t. v- h- J4 S# w2 A0 M注意:for i = 1 to 9999 可能需要根据你的实际情况来改,9999的意思是假设你的文件里有9999个文本框,如果超过9999个文本框,那把9999改一下就好了。
8 w( \; `( F  Z9 p, P( M) K9 k+ ^  Z. a( F3 [  z% h
看你的问题,应该是宏出了问题,建议针对宏病毒杀下毒,然后修改excel里宏的安全性。
作者: qaz963120    时间: 2011-11-16 17:35
谢谢你的分享哦
作者: 九溪黑玫瑰    时间: 2011-11-27 13:05
谢谢分享  正在学习研究中




欢迎光临 下沙论坛 (http://bbs.xiasha.cn/) Powered by Discuz! X3.3