VBA中批注

批注在VBA中是一种非常有用的功能，它允许你向Excel工作表的单元格添加额外的文本信息，以提供解释、说明或备注。批注对于增强数据可读性、协作和数据验证等方面非常重要。

基本用法

包括添加、删除、修改、显示、判断批注是否存在、插入文本、替换文本、清除批注以及添加图片到批注中。

    Range("A1").AddComment "1"
    '这行代码向单元格A1添加批注，批注文本为 "1"。
    
    Range("A1").Comment.Delete
    '这行代码删除A1单元格上的批注。
    
    a = Range("A1").Comment.Text
    '这行代码将A1单元格批注的文本内容存储在变量a中。
    
    Range("A1").Comment.Visible = True
    '这行代码将A1单元格的批注设置为可见状态。
    
    If Range("A1").Comment Is Nothing Then
    End If
    '这行代码用于检查A1单元格是否包含批注。如果批注存在，表达式将返回False；如果没有批注，表达式将返回True。

    Range("A1").Comment.Text Text:="ok", Start:=2
    '这行代码用于在A1单元格的批注文本中的第2个位置及以后的字符覆盖为"ok"
    
    Range("A1").Comment.Text Text:="ok", Start:=1, Overwrite:=False
    '这行代码用于在A1单元格的批注文本中的第1个字符处插入文本 "ok"。参数 Overwrite 设置为False，表示不覆盖原有文本。
    
    Range("A1").Comment.Text Text:="hi"
    '这行代码用新文本 "hi" 替换A1单元格的批注文本。
    
    Range("A1").ClearComments
    '这行代码清除A1单元格上的所有批注。
    
    Range("A1").AddComment.Shape.Fill.UserPicture "D:\qwer\1234.png"
    '这行代码添加一张图片作为A1单元格的批注。图片的路径是 "D:\qwer\1234.png"。
    
    Comment.Text(Text, Start, Overwrite)
    '这是批注对象的方法，用于设置批注文本。
    'Text 是要设置的文本。
    'Start 是文本插入的位置
    'Overwrite 是一个可选参数，用于指定是否覆盖现有文本。默认值是true,如果为 True，则覆盖现有文件。 False（插入文本）。

示例

1.添加或删除批注

Sub aa()
    Set a = ActiveSheet
    '在A1单元格添加"你好"的批注
    a.Cells(1, 1).AddComment "你好"
    ' 删除A1单元格的批注
    a.Cells(1, 1).Comment.Delete
End Sub

2.获得批注内容和显示批注

Sub aa()
    Set a = ActiveSheet
    a.Cells(1, 1).AddComment "你好"
    b = a.Cells(1, 1).Comment.Text
    Debug.Print b '打印出 你好
    a.Cells(1, 1).Comment.Visible = True '显示A1单元格的批注
End Sub

 3.判断批注是否存在

Sub aa()
    Set a = ActiveSheet
    a.Cells(1, 1).Comment.Delete
    If a.Cells(1, 1).Comment Is Nothing Then
        Debug.Print "不存在"
    End If
End Sub
'将会打印 不存在

 4.替换，覆盖和插入批注

Sub aa()
    Set a = ActiveSheet
    a.Cells(1, 1).AddComment "你好"
    a.Cells(1, 1).Comment.Text Text:="你好呀"
    '新文本 "hi" 替换A1单元格的批注文本。
    a.Cells(1, 1).Comment.Text Text:="我", Start:=1, Overwrite:=False
    '在批注文本的第1个字符处插入文本 "我"。
    a.Cells(1, 1).Comment.Text Text:="你", Start:=1
    'A1单元格的批注文本中的第1个位置及以后的字符覆盖为"你"
    a.Cells(1, 1).ClearComments
    '这行代码清除A1单元格上的所有批注。
End Sub

批注是VBA中的重要功能，可用于提高数据的可读性、协作和数据验证。通过添加批注，你可以提供额外的信息、注释和解释，以帮助用户更好地理解工作表中的数据。