1-19.セルの操作：セルにコメントを挿入するには？

セル.AddComment.Text 文字列

セルにコメントを挿入するには、セル（Rangeオブジェクト）のAddCommentメソッドを使います。ただし、すでにコメントが挿入されているセルにAddCommentメソッドを実行するとエラーになります。そこで、セルにコメントが挿入されているかどうかを事前に判定するとよいでしょう。

　コメントの有無を調べるにはTypeName関数を使います。セルのCommentオブジェクトが「Comment」という文字列を返すかどうかを調べればOKです。

コメントの有無を判定した上で、なければコメントを挿入する

Sub Sample()

If TypeName(ActiveCell.Comment) <> “Comment” Then

ActiveCell.AddComment.Text “コメントを入力しました”

End If

End Sub

実行結果

Excel学習室