Excel：使用 vba 添加评论作者

【问题标题】：Excel: Add comment author using vbaExcel：使用 vba 添加评论作者
【发布时间】：2012-08-13 13:31:13
【问题描述】：

当我手动将 cmets 添加到单元格时（使用插入注释命令），文本前面是我的粗体用户名。

是否可以使用 Range.AddComment() 为在 vba 创建的 cmets 复制此特性（对于运行宏的任何用户）？

【问题讨论】：

【解决方案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

【讨论】：