もくじ
セルにコメントを入力す
そんなに使うことないかもですが、、、
セルにコメントを入力する方法を紹介します!
AddComment.Textメソッド
構文
Rangeオブジェクト.AddComment.Text "コメントの内容"
RangeオブジェクトのAddCommentメソッドでコメントの挿入が出来ます。
コメントの内容を指定する場合は、続けてTextメソッドを実行します。
引数に指定した文字列がコメント内のテキストに設定されます。
A1セルにコメントを入力してみます。

コードは次のようになります。
Sub sample()
'A1セルにコメントを入力(ひらちんの部屋)
Range("A1").AddComment.Text "ひらちんの部屋"
End Sub
では実行してみましょう。
コメントが入力されましたね(^o^)

ちなみに、コメントはコメントが入っているセルに実行するとエラーになるので、まずはコメントが入っていないかどうかを確認する必要があります。
すでにコメントが入力されているかどうかを確認するには、TypeName関数を利用します。
コメントが入っているかどうか調べたいセルのCommentオブジェクトに対してTypeName関数を実行すると、コメントがすでに入っている場合は”Comment”という文字列が返ります。
先程コメントを入力した、A1セルのCommentオブジェクトに対してTypeName関数を実行してみます。
Sub sample()
'A1セルのCommentオブジェクトに対してTypeName関数を実行する
MsgBox TypeName(Range("A1").Comment)
End Sub
実行します。
また、コメントが入っていないセルのCommentオブジェクトにTypeName関数を実行すると”Nothing”が変えるので、これを利用してコメントが入っているかどうかを調べましょう。
次のコードは、A1セルにコメントが入っていなければ”ひらちんの部屋”とコメントを入れる。すでにコメントが入っていいる場合は、そのコメントを消す。というコードです。
Sub sample()
'コメントが入っているかどうか確認する
If TypeName(Range("A1").Comment) = "Nothing" Then
'入っていない場合コメントを入れる
Range("A1").AddComment.Text "ひらちんの部屋"
Else
'入っていいる場合コメントを消す
Range("A1").ClearComments
End If
End Sub
入っているコメントを消すには、ClearCommentメソッドを使います。
実行してみましょう。
コメントが入っている場合とそうでない場合の条件分岐が出来ました(^o^)
【EXCEL VBA | ListColumns.Add】テーブルに新しい列(データ)を追加する
もくじ テーブルに新しい列(データ)を追加するテーブルに新しい列を追加する追加した列に列名を付ける追加した列にデータを入れる テーブルに新しい列(データ)を追加する テーブル形式のリストにデータを追加する方法を紹介します続きを読む
【EXCEL VBA | ListRows.Add】テーブルに新しい行(データ)を追加する
もくじ テーブルに新しい行(データ)を追加するテーブルに空行を追加する追加した行にデータを入力する テーブルに新しい行(データ)を追加する テーブル形式のリストにデータを追加する方法を紹介します! テーブル テーブルって続きを読む
【EXCEL VBA | ListObject】シートの範囲をテーブル形式に変換する
ワークシートでもVBAでもテーブルは便利(^o^) ワースシート上でもお馴染みのテーブル形式の表をVBAで作成する方法を紹介します! テーブル テーブルってこんなやつです。 ワークシート上にある表の中に、アクティブセルを続きを読む
【EXCEL VBA | ListObject】ワークシートでもVBAでもテーブルは便利(^o^) その2
もくじ ワークシートでもVBAでもテーブルは便利(^o^)オートフィルターコピーと貼り付け行の削除列の挿入 ワークシートでもVBAでもテーブルは便利(^o^) 前回次の記事で、VBAでテーブルを扱うときに使用するList続きを読む
【EXCEL VBA | ListObject】ワークシートでもVBAでもテーブルは便利(^o^) その1
もくじ ワークシートでもVBAでもテーブルは便利(^o^)ListObject(リストオブジェクト)テーブルを捕まえるテーブル内のデータを取得する(見出し・データ・行・列)構造化参照を使ってテーブルを指定するまとめ ワー続きを読む