Excel：使用vba添加评论作者

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

是否有可能使用Range.AddComment() （无论哪个用户正在运行macros）复制在vba中创build的注释这个特性？

Answer 1

您可以添加login的用户名（粗体显示用户名），如下所示 – 单元格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