VBA常用技巧代码解析

hhzjxss

多谢yuanzhuping 版主大公无私、倾情奉献。一定要向版主学习！

zhenghua9256

谢谢分享！一定要努力学习

163wx

越学越发现自己无知，好的工具能事倍功半，谢谢yuanzhuping

冻豆腐

期待word版本！占位

一_一

哇!
您真是大好人,能与大家分享,
非常感谢您付出辛苦的工作.

白天睡觉

袁版辛苦了，又是一大部头。
有的看了，呵呵。

lysm

楼主好人哪!!!!!!!!!!!!!!!!!!

poor.456

Thank you very much!

口是心非

多谢袁版分享，非常好，继续关注中，同时希望早日成书，以便收藏反复体味。

yuanzhuping

技巧14         单元格中的批注
14-1        判断单元格是否存在批注
       在VBA中，可以利用Range对象的Comment属性判断单元格是否存在批注，如下面的代码所示。

1. #001  Sub HasComment()
   
2. #002      If Range("A1").Comment Is Nothing Then
   
3. #003          MsgBox "A1单元格中没有批注!"
   
4. #004      Else
   
5. #005          MsgBox "A1单元格中批注内容为：" & Chr(13) & Range("A1").Comment.Text
   
6. #006      End If
   
7. #007  End Sub

复制代码

代码解析：
       HasComment过程判断A1单元格是否存在批注，并用消息框显示批注信息。
       Range对象的Comment属性返回一个批注对象，如果指定的单元格不存在批注，该属性返回Nothing。
       运行HasComment过程结果如图所示。


14-2        为单元格添加批注
       如果希望为单元格添加批注，那么可以使用AddComment方法，如下面的代码所示。

1. #001  Sub Comment_Add()
   
2. #002      With Range("A1")
   
3. #003          If .Comment Is Nothing Then
   
4. #004              .AddComment Text:=.Value
   
5. #005              .Comment.Visible = True
   
6. #006          End If
   
7. #007      End With
   
8. #008  End Sub

复制代码

代码解析：
       Comment_Add判断单元格A1中是否存在批注，如果没有批注则为单元格A1添加批注并将单元格数值作为批注文本，同时显示批注对象。
       第4行代码使用Range对象的AddComment方法为单元格添加批注。该方法只有一个参数Text，代表批注文本。如果单元格已经存在批注，则该方法返回一个错误。
        第5行代码显示批注对象，Visible属性确定对象是否可视。
当单元格A1中不存在批注时，运行代码后的结果如图所示。

14-3        删除单元格中的批注
       如果需要删除单元格中的批注，那么可以使用ClearComments方法、ClearNotes方法或者Delete方法，如下面的代码所示。

1. #001  Sub Commentdel()
   
2. #002      On Error Resume Next
   
3. #003      Range("A1").ClearComments
   
4. #004      Range("A2").ClearNotes
   
5. #005      Range("A3").Comment.Delete
   
6. #006  End Sub

复制代码

格中的批注。
       第2行代码错误处理语句，如果单元格中没有批注，那么运行第5行代码时会发生错误，所以使用On Error语句来忽略错误。
       第3行代码使用ClearComments方法删除单元格A1中的批注。ClearComments方法清除指定区域的所有单元格批注，语法如下：
expression.ClearComments
       第4行代码使用ClearNotes方法删除A2单元格中的批注。ClearNotes方法清除指定区域中所有单元格的附注和语音批注，语法如下：
expression.ClearNotes
       第5行代码使用Delete方法删除删除A3单元格中的批注.Range对象的Comment属性返回一个Comment对象，该对象代表与该区域左上角单元格相关联的批注。

[ 本帖最后由 yuanzhuping 于 2009-2-16 22:25 编辑 ]