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