当我手动向单元格添加注释（使用插入注释命令）时，文本前面会以粗体显示我的用户名。
是否可以为创建的评论复制此特征vba using Range.AddComment()（对于运行宏的用户）？
您可以添加登录的用户名（用户名以粗体显示），如下所示 - 此示例针对单元格 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
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
