コメントを設定する
広告
指定してセルに対してコメントを設定するには、コメントを付けたいRangeオブジェクトに対して「AddComment」メソッドを使います。
Dim range1 As Range Set range1 = Range("A1") range1.AddComment Text:="コメント"
設定するコメントは「Text」引数に文字列で設定します。
まとめて次のように記述しても構いません。
Range("A").AddComment Text:="コメント"
サンプルプログラム
では簡単なサンプルで試してみましょう。
Sub テスト() Dim range1 As Range Set range1 = Range("B2") range1.AddComment Text:="2006年9月度" End Sub
上記マクロを実行すると次のようになります。
セルB2にコメントを設定しました。コメントが設定されているセルは、セルの右上が少し赤くなっています。デフォルトではセルの上にマウスが乗っている時にだけコメントが表示されます。
( Written by Tatsuo Ikura )
Profile

著者 / TATSUO IKURA
初心者~中級者の方を対象としたプログラミング方法や開発環境の構築の解説を行うサイトの運営を行っています。