【VBA】セルへコメントの挿入／コメントの取得方法

こんにちは、Ryoです。
Excelで使うコメント機能は便利なので、何かと使用する機会も多いかと思います。

勿論VBAを使ってコメントを挿入したり、コメント内容を取得することも可能なので、
記録として残したいけど他に使う予定がないデータ等をコメントとして挿入しておいたり、
場合によっては多用されたコメントから内容を取得してセルへ表示したり出来ますので、
今回はその内容についてご紹介します。

1.コメントを挿入する

コメントをセルに挿入する場合は「AddComment」を使用します。
以下のサンプルコードでは「セルA1～A10へコメントを挿入」するものです。

Sub Commnet_Insert()

 Dim i As Integer
 
 Cells(1, 1).Select

  For i = 1 To 10
     With ActiveCell.AddComment("No." & i & "これはコメントを" & _
          vbCrLf & "セルへ挿入する" & vbCrLf & "サンプルです。")
          .Shape.AutoShapeType = msoShapeRoundedRectangle
          .Visible = False
      End With
    ActiveCell.Offset(1, 0).Select
  Next i

End Sub

サンプルコードでのコメントを指定する部分

     With ActiveCell.AddComment("No." & i & "これはコメントを" & _
          vbCrLf & "セルへ挿入する" & vbCrLf & "サンプルです。")
          .Shape.AutoShapeType = msoShapeRoundedRectangle
          .Visible = False
      End With

ActiveCell.AddComment(“この中にコメントを記入”)の様に記述します。
本例ではコメント間に& vbCrLf &を入れることで改行して表示させています。

Withを使用しているのは「記述が面倒」だからですね。
使わない場合の記述はどうなるかと言うと、

　　　ActiveCell.AddComment ("No." & i & "これはコメントを" & _
     vbCrLf & "セルへ挿入する" & vbCrLf & "サンプルです。")
     ActiveCell.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
     ActiveCell.Comment.Visible = False

この様になります。
どちらでも実行結果は同じになりますが、何度も同じ記述をしなければならない場合には
「With」関数を使うと記述が楽になります。

AutoShapeTypeでの指定は色々ありますので、お好みで良いと思います。

私も全て試したわけではありませんが、指定出来る種類はたくさんありますので用途に応じて使い分けられるのが良いところですね。

2.コメントを取得する

次にセルに付加されたコメントの内容を取得し、別のセルに表示するサンプルコードです。
これは上で紹介したサンプルコードを実行するとセルA1～A10にコメントが挿入されるので、その後当サンプルコードを実行すると、セルB1～B10にコメント内容が書き込まれます。

Sub Comment_Get()

  Dim i As Integer
  Dim ComTxt As String

　For i = 1 To 10

   If Not Cells(i, 1).Comment Is Nothing Then
       ComTxt = Cells(i, 1).Comment.Text
       Cells(i, 2) = ComTxt
   End If

 Next i

End Sub

先ず　If Notでコメントの有無を確認しています。
コメント有れば、指定したセルのコメントテキストをComTxtに読み込み、書き込み先の
B列セルにComTxtを代入しています。

実行してもらえれば、B列にズラーっとコメントのテキストが書き込まれたと思います。
こうすることでコメントのデータを取得することは出来ますが、何かと処理に手間がかかりますから、必要なデータの場合はコメントを多用しない方が無難ですね。

以上がVBAでコメントの挿入、及びコメント内容を取得する方法の紹介になります。
上手く使えば何かと便利ですので、機会あればぜひ活用してみてください。
今回の記事が何かの参考になれば幸いです。

Ryo