Excel之VBA常用功能应用篇：在工作表中添加批注

批注属于指导性功能，在某些时候起到一个指示作用，在实际应用中会经常用到。

如个单元格操作介绍，可以在批注中明确标识，有利于工作表操作。

本文介绍如何利用vba来对批注进行操作，包括添加、修改、删除、显示隐藏等功能。

如下图所示，制作了一个示例，完全展示了批注的一些操作方法。

添加批注

利用Range对象的AddComment进行添加批注

Range("A1").AddComment "批注文本"

如上代码就在A1单元格中添加了一条批注，内容为“批注文本”。

十分简单的一个操作。

删除批注

可以利用Range对象的ClearComments删除批注，也可以利用Comment对象的Delete方法删除。

Range("A1").ClearComments

上述语句就把新建的批注删除了。

添加批注代码

Private Sub CommandButton1_Click()

Dim xStr As String

xStr = VBA.InputBox("添加批注", "输入批注", "新批注")

Selection.Item(1).AddComment xStr

End Sub

Private Sub CommandButton2_Click()

删除

'删除批注

Selection.ClearComments

End Sub

Private Sub CommandButton3_Click()

Dim x As Object

For Each x In Me.Comments

x.Delete

Next x

Set x = Nothing

End Sub

修改

Private Sub CommandButton4_Click()

On Error Resume Next

Dim xStr As String

xStr = VBA.InputBox("修改批注", "修改批注", Selection.Comment.Text)

Selection.Comment.Text Text:=xStr

End Sub

隐藏、显示

'隐藏

Private Sub CommandButton5_Click()

On Error Resume Next

Selection.Comment.Visible = False

End Sub

Private Sub CommandButton6_Click()

'显示

On Error Resume Next

Selection.Comment.Visible = True

End Sub

Private Sub CommandButton7_Click()

'显示所有批注

Dim x As Object

For Each x In Me.Comments

x.Visible = True

Next x

Set x = Nothing

End Sub

Private Sub CommandButton8_Click()

'隐藏所有批注

Dim x As Object

For Each x In Me.Comments

x.Visible = False

Next x

Set x = Nothing

End Sub

Comment 对象方法和属性

对象Comment就是工作表中的批注，指代一个批注，其还有复数形式对象Comments，它是一个集合，包含了工作表中的所有对象。

可通过Comments.item(i)来获取某一个批注对象。

总的来说，这个对象比较简单，在使用过程中，编程方面也很少用到，所以这里也不需要特别记忆，只要知道如何添加和删除就可以了。