第94回.コメント（Comment）
マクロVBAでセルにコメントを入れたり、編集したり、削除したりするVBAコードを解説します。
セルに対する注意書き等をコメントとして入れておくことで、使いやすいシートにします。
コメント（Comment）に関する各種オブジェクト
| 名前 | 説明 | |
| プロパティ | Comment | セル範囲の左上隅のセルに関連付けられているコメントを表す Comment オブジェクトを取得します。 |
| メソッド | AddComment | 範囲にコメントを追加します。 |
| ClearComments | 指定されたセル範囲からすべてのコメントを消去します。 |
Commentオブジェクト
| 名前 | 説明 | |
| プロパティ | Application | 対象となるオブジェクトが指定されない場合は、Excel アプリケーション (Application オブジェクト) を返します。 対象となるオブジェクトが指定された場合は、指定されたオブジェクトを作成した Application オブジェクトを返します。 OLE オートメーションを使っていて、オブジェクトのアプリケーションにアクセスするときなどに、このプロパティを使います。 値の取得のみ可能です。 |
| Author | コメントの作成者を示す文字列を返します。 値の取得のみ可能です。 文字列型 (String) の値を使用します。 |
|
| Creator | 現在のオブジェクトが作成されたアプリケーションを示す 32 ビットの整数を取得します。 値の取得のみ可能です。長整数型 (Long) の値を使用します。 |
|
| Parent | 指定されたオブジェクトの親オブジェクトを取得します。 値の取得のみ可能です。 |
|
| Shape | 指定されたコメントに結合される図形を表す Shape オブジェクトを返します。 | |
| Visible | オブジェクトを表示するかどうかを表すブール型 (Boolean) の値を設定します。 値の取得および設定が可能です。 |
|
| メソッド | Delete | オブジェクトを削除します。 |
| Next | 次のコメントを表す Comment オブジェクトを返します。 | |
| Previous | 前のコメントを表す Comment オブジェクトを返します。 | |
| Text | コメントの文字列を設定します。 |
Commentsコレクション
| 名前 | 説明 | |
| プロパティ | Application | 対象となるオブジェクトが指定されない場合は、Excel アプリケーション (Application オブジェクト) を返します。 対象となるオブジェクトが指定された場合は、指定されたオブジェクトを作成した Application オブジェクトを返します。 OLE オートメーションを使っていて、オブジェクトのアプリケーションにアクセスするときなどに、このプロパティを使います。 値の取得のみ可能です。 |
| Count | コレクションに含まれるオブジェクトの数を表す長整数型 (Long) の値を返します。 | |
| Creator | 現在のオブジェクトが作成されたアプリケーションを示す 32 ビットの整数を取得します。 値の取得のみ可能です。長整数型 (Long) の値を使用します。 |
|
| Parent | 指定されたオブジェクトの親オブジェクトを取得します。 値の取得のみ可能です。 |
|
| メソッド | Item | コレクションから単一のオブジェクトを返します。 |
コメント（Comment）の挿入
Range("A1").AddComment "練習"
Textは、コメント テキストを指定します。
Textは省略可能です、その場合はコメントの枠だけが挿入されることになります。
既にコメントが挿入されている場合は、AddCommentはエラーとなります。
コメント（Comment）の削除
または、
Range.Comment.Delete
Range("A1").Comment.Delete
どちらでもコメントは削除できます。
Range.ClearCommentsは問題なく実行できますが、
Range.Comment.Deleteは、エラーとなります。
コメント（Comment）の編集
Range.Comment
これでCommentオブジェクトを取得し、
そのCommentオブジェクトのプロパティ、メソッドを使います。
Range("A1").Comment.Text "練習"
コメント（Comment）実践例
Sub sample1()
With
Range("A1").AddComment
.Text Text:="yamaoka:" & vbLf &
"コメント"
.Visible = True
.Shape.Select
With
Selection.Font
.Size = 14
.Bold = True
End
With
.Visible = False
End With
End
Sub
マクロの記録を参考にして普通に書くとこんな感じになったりしますが、
.Shape.Select
With Selection.Font
この部分が、どうにもスッキリしていないです。
そこで、以下のようにします。
Sub samle2()
Dim cm As Comment
With
Range("A1").AddComment
.Text Text:="yamaoka:" & vbLf &
"コメント"
With .Shape.TextFrame
.Characters.Font.Size =
14
.Characters.Font.Bold = True
End With
End With
End
Sub
Shape.TextFrame
コメントとは直接関係なくなってしまうのですが、
オートシェイプのテキストを変更する場合の指定です。
つまり、コメント（Comment）の実態部分はオートシェイプと同じShapeオブジェクトでできているという事です。
これさえ理解していれば、
後はオートシェイプ同様にShapeオブジェクトを操作すれば良いという事が分かります。
第97回.図形オートシェイプ（Shape）
こちらもご参考に
コメントの位置移動と自動サイズ調整する（Comment）
同じテーマ「マクロVBA入門」の記事
第126回.入力規則（Validation）
第92回.名前定義（Names）
第93回.ピボットテーブル（PivotTable）
第94回.コメント（Comment）
第95回.ハイパーリンク（Hyperlink）
第96回.グラフ（Chart）
第97回.図形オートシェイプ（Shape）
第136回.フォームコントロール
第137回.ActiveXコントロール
第98回.Findメソッド（Find,FindNext,FindPrevious）
第99回.Replaceメソッド（置換）
新着記事NEW ・・・新着記事一覧を見る
ユーザーに絶対に停止させたくない場合のVBA設定｜VBA技術解説（4月1日）
CharactersプロパティとCharactersオブジェクト｜VBA技術解説（3月31日）
指数近似/対数近似/累乗近似（掲載順位とCTR）｜エクセル関数超技（3月31日）
練習問題32（連続数値部分を取り出し記号で連結）｜VBA練習問題（3月24日）
連続数値部分を取り出し記号で連結｜エクセル関数超技（3月24日）
数式バーの高さを数式の行数で自動設定｜VBAサンプル集（3月21日）
LET関数（数式で変数を使う）｜エクセル入門（3月21日）
スピルに対応したXSPLITユーザー定義関数（文字区切り）｜VBAサンプル集（3月15日）
XMATCH関数（範囲から値を検索し一致する相対位置）｜エクセル入門（3月14日）
XLOOKUP関数（範囲を検索し一致する対応項目を返す）｜エクセル入門（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.繰り返し処理（For Next)｜VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)｜エクセル関数超技
10.セルに文字を入れるとは（Range,Value）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。