Excel：使用vba添加评论作者

Question

当我手动向单元格添加注释时（使用insert comment命令），文本前面是粗体字的用户名。

是否可以使用Range.AddComment()为vba中创建的评论复制此特征（对于运行该宏的用户）？

Answer 1

您可以添加登录的用户名（用户名以粗体显示），例如单元格A1：

Sub EasyTest()
Dim shCmt As Comment
On Error Resume Next
Set shCmt = [a1].Comment
On Error GoTo 0
If shCmt Is Nothing Then
Set shCmt = [a1].AddComment
shCmt.Text Text:=Environ$("UserName") & Chr(10) & "TestMe"
shCmt.Shape.TextFrame.Characters(1, Len(Environ$("UserName"))).Font.Bold = True
Else
MsgBox "cell already has a comment"
End If
End Sub