Excel VBA(エクセル マクロ) コメントの挿入、編集、表示、削除のマクロ化

Excelツールでコメントの挿入、編集、表示、削除の取り込みがある。
検索でヒットしたら、コメントを挿入して表示させたい。

コメント文を挿入、編集、表示、削除するマクロを作成する。

Sub 追加()
  Range("A2").AddComment
  Range("A2").Comment.Visible = False
  Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & ""
End Sub

Range("A2").AddCommentでコメント追加。
Range("A2").Comment.Visible = Falseで通常非表示でマウスが重なったら表示。
Range("A2").Comment.Text Text:=""でコメント欄の内容を書く。


Sub 削除()
  Range("A2").ClearComments
End Sub

Range("A2").ClearCommentsでコメント削除。


難しかったのが下記。
コメント枠のサイズを指定してコメントを表示させる方法。

何度もエラーが出て困ったが何とかなった。

Sub コメント表示して追加()
  Range("A2").AddComment
  Range("A2").Comment.Visible = True
  Range("A2").Comment.Shape.Select True
  Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & ""
  Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeft
  Selection.ShapeRange.ScaleHeight 0.41, msoFalse, msoScaleFromTopLeft
End Sub

Range("A2").AddCommentでコメント追加。

Range("A2").Comment.Visible = Trueでコメントを常に表示。

Range("A2").Comment.Shape.Select Trueでコメントの中身を変更することを宣言。
Range("A2").Comment.Visible = Trueとしておかないとエラーが出る。

Range("A2").Comment.Text Text:="エラーです。" & Chr(10) & ""でテキスト内容の書き換え。

Selection.ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromTopLeftでコメント欄の幅指定
Selection.ShapeRange.ScaleHeight 0.41, msoFalse, msoScaleFromTopLeftでコメント欄の高さ指定

以上でマクロでコメント欄を表示することが可能となった。


忍者Admaxのテキスト広告で収入UP!

実践!ExcelデータベースTOP