[已解决]excel一列出现很多绿色小对勾

nonger

excel里编有vba，突然之间某一列有很多上边这样的小对勾 。
而且随着你往下拖动滚动条，它也跟着往下添加。
excel本身不方便上传，哪位高手遇到过这种情况，请多多指教~

最佳答案

月排行榜 / 总排行榜

rebornxldeng

2012-9-14 11:35

楼主对VBA对象应该也不是很熟悉...我也不是很熟悉
看代码的大致意思
这个工作薄利用了工作薄相关事件的.
生成小对勾的代码不是在模块1-8里边.

而是在工作薄对象的代码模块里
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.RemovePersonalInformation = False
End Sub
删除代码

RibbonX_Code里边的代码
'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
    Application.Run ("fDialog")
End Sub
'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets("RES").Range("A10").Value
End Sub
删除
然后再表格里按F5,定位到 对象 将绿色小勾全部删除
这可能是一个对某个经营项目进行判断并标识的代码.殊不知利用太多外部图形元素会消耗掉大量内存.
这个代码的效率也不高,远不如EXCEL自身的条件格式.删除不可惜的.

跳转到最佳答案楼层

mxg825

如果是03版，可能是VBA 代码添加的！
如果是07版，看一下是否 条件格式生成的！

rebornxldeng

上传附件吧...这类问题一定要看看代码的

jlf2003

这个问题有意思:
楼主传一下附件或者你双击一下"小对勾"看有无反应?

jlf2003

忘记告诉你:
你先杀一下宏病毒,看是什么效果?
若无误,再用杀病毒软件对此文件扫描一次.

nonger

jlf2003 发表于 2012-9-13 13:03
忘记告诉你:
你先杀一下宏病毒,看是什么效果?
若无误,再用杀病毒软件对此文件扫描一次.

没有查出宏病毒。
双击图标显示调整图片格式，每个对勾是个图片。
每次拖动到显示这一列时，它才会从上往下出现，耽搁几秒钟，等它铺完这列，才能接着拖动。

附件里有图片和excel，我把文件删得差不多了，对勾还在。
谢谢指教~

nonger

rebornxldeng 发表于 2012-9-13 11:32
上传附件吧...这类问题一定要看看代码的

谢谢，麻烦看下6楼的附件。我把代码都删了，对勾还是阴魂不散。求指教~

nonger

mxg825 发表于 2012-9-13 11:31
如果是03版，可能是VBA 代码添加的！
如果是07版，看一下是否 条件格式生成的！

是07版，木有条件格式。

爱疯

1）按F5（就是定位），选择对象，确定。
2）按del（就是删除），确定。

jlf2003

1. 
   
2. Sub BachDeleteObjects()
   
3. 
   
4. Dim sh As Worksheet, s
   
5. 
   
6. For Each sh In ThisWorkbook.Worksheets
   
7. 
   
8.    
   
9. 
   
10.     sh.DrawingObjects.Select
    
11. 
    
12.    
    
13. 
    
14.     Selection.Delete
    
15. 
    
16.     s = s + 1
    
17. 
    
18. Next
    
19. 
    
20. MsgBox "总共完成了：" & s & "工作表。"
    
21. 
    
22. End Sub

复制代码

1\空位－－对象，按DEL键，如果一次性删除不完，多操作几次就可以了
2\选择整行--查找--替换""--OK
3\用代码删除: