VBA技巧14单元格中批注.doc

单元格中的批注 判断单元格是否存在批注 在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对象的Comment属性返回一个批注对象，如果指定的单元格不存在批注，该属性返回Nothing。 运行HasComment过程结果如图 141所示。 图 141 显示批注内容 为单元格添加批注 如果希望为单元格添加批注，那么可以使用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 代码解析： Comment_Add判断单元格A1中是否存在批注，如果没有批注则为单元格A1添加批注并将单元格数值作为批注文本，同时显示批注对象。 第4行代码使用Range对象的AddComment方法为单元格添加批注。该方法只有一个参数Text，代表批注文本。如果单元格已经存在批注，则该方法返回一个错误。 第5行代码显示批注对象，Visible属性确定对象是否可视。 当单元格A1中不存在批注时，运行代码后的结果如图 142所示。 图 142 添加批注 删除单元格中的批注 如果需要删除单元格中的批注，那么可以使用ClearComments方法、ClearNotes方法或者Delete方法，如下面的代码所示。 #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对象，该对象代表与该区域左上角单元格相关联的批注。