为单元格添加批注

muerjun

       如果希望为单元格添加批注，那么可以使用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

muerjun

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