excel - Excel：使用 vba 添加评论作者

Question

当我手动向单元格添加评论时（使用插入评论命令），文本前面是我的粗体用户名。

是否可以使用（对于运行宏的任何用户）为在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