【VBA】セルにコメントを追加する

セルにコメントを追加する方法を
記載します!

「ClearComments」で削除してから、
「AddComment」で追加します!

セルにコメントを追加する

ここでは例として、
 ・シート「sample」のセル「B2」に
 ・コメントを追加
します。

すでにコメントが追加されているセルに対し追加を試みるとエラーとなるため、
追加する前に削除します。

Sub sample()
    
    'コメントを削除
    Worksheets("sample").Range("B2").ClearComments
    'コメントを追加
    Worksheets("sample").Range("B2").AddComment ("コメントを挿入します。")
    
End Sub

実行結果

セルにコメントを追加することが出来ました。

1つのコメントを非表示/表示させる

「Comment.Visible」に
 ・「False」を設定すれば「非表示」
 ・「True」を設定すれば「表示」
させることが出来ます。

Sub sample02()
    
    '1つのコメントを非表示
    Worksheets("sample").Range("B2").Comment.Visible = False
    
End Sub

全てのコメントを「コメントマークのみ表示」にする

「DisplayCommentIndicator」に「xlCommentIndicatorOnly」を設定することで、
 ・全てのコメントを「コメントマークのみ表示」
させることが出来ます。

Sub sample03()
    
    '全てのコメントを「コメントマークのみ表示」にする
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    
End Sub

↑「赤い◥」がコメントマークです。

全てのコメントを表示させる

「DisplayCommentIndicator」に「xlCommentAndIndicator」を設定することで、
 ・全てのコメントを表示
させることが出来ます。

Sub sample04()
    
    '全てのコメントを表示させる
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    
End Sub
タイトルとURLをコピーしました