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

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

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

PR

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

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

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

「AddComment」によってコメントを追加できます。

コメント設定済みのセルにコメントを追加するとエラーとなるため、追加する前に念のため削除します。
※「ClearComments」によって削除できます。

存在しないコメントの削除をしても、エラーになりません。

必要に応じて公式サイトをご確認ください。



PR

実行結果

セルにコメントを追加できました。

実行結果
実行結果
PR

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

「Comment.Visible」に
 ・「False」を設定すれば「非表示」
 ・「True」を設定すれば「表示」
とできます。

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

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

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

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

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

PR

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

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

Sub sample04()
    
    '全てのコメントを表示させる
    Application.DisplayCommentIndicator = xlCommentAndIndicator
    
End Sub
実行結果
実行結果
全てのコメントの表示のまとめ

xlCommentIndicatorOnly・・・全てのコメントを「コメントマークのみ表示」
xlCommentAndIndicato・・・全てのコメントを表示

タイトルとURLをコピーしました