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

《VBA技巧14单元格中的批注.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、技巧1单元格中的批注1-1判断单元格是否存在批注在VBA中，可以利用Range对象的Comment属性判断单元格是否存在批注，如下面的代码所示。#001SubHasComment()#002IfRange("A1").CommentIsNothingThen#003MsgBox"A1单元格中没有批注!"#004Else#005MsgBox"A1单元格中批注内容为："&Chr(13)&Range("A1").Comment.Text#006EndIf#007EndSub代码解析：HasComment过程判断A1单元格是否存在批注，并用消息框显示批注信息。Range对象的Commen

2、t属性返回一个批注对象，如果指定的单元格不存在批注，该属性返回Nothing。运行HasComment过程结果如图11所示。图11显示批注内容1-2为单元格添加批注如果希望为单元格添加批注，那么可以使用AddComment方法，如下面的代码所示。#001SubComment_Add()#002WithRange("A1")#003If.CommentIsNothingThen#004.AddCommentText:=.Value#005.Comment.Visible=True#006EndIf#007EndWith#008EndSub代码解析：Comment_Add判断单元

3、格A1中是否存在批注，如果没有批注则为单元格A1添加批注并将单元格数值作为批注文本，同时显示批注对象。第4行代码使用Range对象的AddComment方法为单元格添加批注。该方法只有一个参数Text，代表批注文本。如果单元格已经存在批注，则该方法返回一个错误。第5行代码显示批注对象，Visible属性确定对象是否可视。当单元格A1中不存在批注时，运行代码后的结果如图12所示。图12添加批注1-1删除单元格中的批注如果需要删除单元格中的批注，那么可以使用ClearComments方法、ClearNotes方法或者Delete方法，如下面的代码所示。#001SubComment

4、del()#002OnErrorResumeNext#003Range("A1").ClearComments#004Range("A2").ClearNotes#005Range("A3").Comment.Delete#006EndSub代码解析：Notesdel过程删除单元格中的批注。第2行代码错误处理语句，如果单元格中没有批注，那么运行第5行代码时会发生错误，所以使用OnError语句来忽略错误第3行代码使用ClearComments方法删除单元格A1中的批注。ClearComments方法清除指定区域的所有单元格批注，语法如下：expression.ClearComme

5、nts第4行代码使用ClearNotes方法删除A2单元格中的批注。ClearNotes方法清除指定区域中所有单元格的附注和语音批注，语法如下：expression.ClearNotes第5行代码使用Delete方法删除删除A3单元格中的批注.Range对象的Comment属性返回一个Comment对象，该对象代表与该区域左上角单元格相关联的批注。