excel - Excel: vba を使用してコメント作成者を追加する

Question

手動でセルにコメントを追加すると (insert comment コマンドを使用)、テキストの前に自分のユーザー名が太字で表示されます。

(マクロを実行しているユーザーに対して)を使用して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