Excel:使用vba添加评论作者

Question

当我手动向单元格添加注释时(使用insert comment命令),文本前面是我的粗体字用户名.

是否可以使用(对于运行宏的用户)为vba中创建的注释复制此特性Range.AddComment()？

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