[已解决]求助，关于判断不存在与存在

fatdogdog

我有一份表，里面有些批注是显示出来的。现在想让他判断单元个上是否存在批注
如果没有什么事都不用干。
如果有就让他把该单元格的批注给隐藏掉！
这个怎么写呢？？？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-20 16:19

1. Sub Macro1()
   
2.     For Each CL In ActiveSheet.UsedRange
   
3.         Set HasCom = CL.Comment
   
4.         If Not HasCom Is Nothing Then CL.Comment.Visible = False
   
5.     Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Sub Macro1()
   
2.     For Each CL In ActiveSheet.UsedRange
   
3.         Set HasCom = CL.Comment
   
4.         If Not HasCom Is Nothing Then CL.Comment.Visible = False
   
5.     Next
   
6. End Sub
   

复制代码

liuguansky

for each c in activesheet.comments
c.visible=false
next