【Excel】セルにコメントを挿入するマクロ

セルにコメントを挿入するには、AddCommentメソッドを使います。

例

たとえば、セルB3にコメントを挿入するには次のように記述します。

1 2 3 4 5 6 7 8 9

Sub AddCellComment()           If TypeName(Range("B3").Comment) <> "Comment" Then                   Range("B3").AddComment.Text "ハロー"           End If   End Sub

この例では、対象のセルにすでにコメントが挿入されているかをTypeNameを使ってチェックし、未挿入の場合だけAddCommentでコメントを挿入しています。


実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/06/excel-vba-addcomment.html 【Excel】セルにコメントを挿入するマクロ