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