VBA完全操作Excel单元格备注Cell Comments的代码-英雄云拓展知识分享

一、获得单元格的备注

Private SubCommandButton1_Click()

Dim strGotIt As String

strGotIt

= WorksheetFunction.Clean(Range("A1").Comment.Text)

MsgBox strGotIt

End Sub

Range.Comment.Text用于得到单元格的备注文本，如果当前单元格没有添加备注，则会引发异常。注意代码中使用了WorksheetFunction对象，该对象是Excel的系统对象，它提供了很多系统函数，这里用到的Clean函数用于清楚指定文本中的所有关键字(特殊字符)，具体信息可以查阅Excel自带的帮助文档，里面提供的函数非常多。下面是一个使用Application.WorksheetFunction.Substitute函数的例子，其中第一个Substitute将给定的字符串中的author:替换为空字符串，第2个Substitute将给定的字符串中的空格替换为空字符串。

Private FunctionCleanComment(author As String, cmt As String) As String

Dim tmp As String

tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "")

tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), "")

CleanComment = tmp

End Function

2、修改Excel单元格内容时自动给单元格添加Comments信息

Private SubWorksheet_Change(ByVal Target As Excel.Range)

Dim newText As String

Dim oldText As String

For Each cell In Target

With cell

On Error Resume Next

oldText = .Comment.Text

If Err <> 0 Then .AddComment

newText = oldText & " Changed by " & Application.UserName & " at " & Now & vbLf

MsgBoxnewText

.Comment.Text newText

.Comment.Visible = True

.Comment.Shape.Select

Selection.AutoSize = True

.Comment.Visible = False

End With

Next cell

End Sub

Comments内容可以针对需要自己修改，Worksheet_Change方法在Worksheet单元格内容被修改时履行。

3、改变Comment标签的显示状态

SubToggleComments()

If Application.DisplayCommentIndicator = xlCommentAndIndicator Then

Application.DisplayCommentIndicator = xlCommentIndicatorOnly

Else

Application.DisplayCommentIndicator = xlCommentAndIndicator

End If

End Sub

Application.DisplayCommentIndicator有3种状态：xlCommentAndIndicator-始终显示Comment标签、xlCommentIndicatorOnly-当鼠标指向单元格的Comment pointer时显示Comment标签、xlNoIndicator-隐藏Comment标签和单元格的Comment pointer。

4、改变Comment标签的默许大小

SubCommentFitter1()

With Range("A1").Comment

.Shape.Width = 150

.Shape.Height = 300

End With

End Sub

注意：旧版本中的Range.NoteText方法一样可以返回单元格中的Comment，依照Excel的帮助文档中的介绍，建议在新版本中一致使用Range.Comment方法。