当我手动添加注释到电池（使用插入注释命令）的文本由我以加粗字体的用户名之前。
是否有可能复制在创建这一特点征求意见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
文章来源: Excel: Add comment author using vba
