《VBA技巧14单元格中的批注.doc》由会员分享，可在线阅读，更多相关《VBA技巧14单元格中的批注.doc（3页珍藏版）》请在金锄头文库上搜索。
1、技巧1 单元格中的批注1-1 判断单元格是否存在批注在VBA中，可以利用Range对象的Comment属性判断单元格是否存在批注，如下面的代码所示。#001 Sub HasComment()#002 If Range(A1).Comment Is Nothing Then#003 MsgBox A1单元格中没有批注!#004 Else#005 MsgBox A1单元格中批注内容为： & Chr(13) & Range(A1).Comment.Text#006 End If#007 End Sub代码解析：HasComment过程判断A1单元格是否存在批注，并用消息框显示批注信息。Range对象
2、的Comment属性返回一个批注对象，如果指定的单元格不存在批注，该属性返回Nothing。运行HasComment过程结果如图 141所示。图 11显示批注内容1-2 为单元格添加批注如果希望为单元格添加批注，那么可以使用AddComment方法，如下面的代码所示。#001 Sub Comment_Add()#002 With Range(A1)#003 If .Comment Is Nothing Then#004 .AddComment Text:=.Value#005 .Comment.Visible = True#006 End If#007 End With#008 End Sub
3、代码解析：Comment_Add判断单元格A1中是否存在批注，如果没有批注则为单元格A1添加批注并将单元格数值作为批注文本，同时显示批注对象。第4行代码使用Range对象的AddComment方法为单元格添加批注。该方法只有一个参数Text，代表批注文本。如果单元格已经存在批注，则该方法返回一个错误。第5行代码显示批注对象，Visible属性确定对象是否可视。当单元格A1中不存在批注时，运行代码后的结果如图 142所示。图 12添加批注1-3 删除单元格中的批注如果需要删除单元格中的批注，那么可以使用ClearComments方法、ClearNotes方法或者Delete方法，如下面的代码所示
4、。#001 Sub Commentdel()#002 On Error Resume Next#003 Range(A1).ClearComments#004 Range(A2).ClearNotes#005 Range(A3).Comment.Delete#006 End Sub代码解析：Notesdel过程删除单元格中的批注。第2行代码错误处理语句，如果单元格中没有批注，那么运行第5行代码时会发生错误，所以使用On Error语句来忽略错误第3行代码使用ClearComments方法删除单元格A1中的批注。ClearComments方法清除指定区域的所有单元格批注，语法如下：expression.ClearComments第4行代码使用ClearNotes方法删除A2单元格中的批注。ClearNotes方法清除指定区域中所有单元格的附注和语音批注，语法如下：expression.ClearNotes第5行代码使用Delete方法删除删除A3单元格中的批注.Range对象的Comment属性返回一个Comment对象，该对象代表与该区域左上角单元格相关联的批注。
