シート内のコメント（Comments プロパティ）

ワークシート内のコメントを操作したい場合は Comments プロパティを使用します。

ワークシートの Comments プロパティは、セルの Comment オブジェクトのコレクションです。Count プロパティを使用することでコレクション内の Comment オブジェクト数を取得可能です。また、コレクションに対してインデックスを指定することで各 Comment オブジェクトを操作することも可能です。

～目次～

Commentsプロパティの使用方法
1. 使用例 – コメントセルの数とアドレス表示

Commentsプロパティの使用方法

構文

' Comment オブジェクト数の取得 object.Comments.Count ' Comment オブジェクト object.Comments( Index ) ' Comment が設定されているセルオブジェクト object.Comments( Index ).Parent

※objectはワークシートオブジェクトを表す変数

使用例 – コメントセルの数とアドレス表示

アクティブシート内のコメントが設定されているセルの数とアドレスを表示する例です。

Sub sample_eb07a_01()
'アクティブシートのコメントが追加されているセルを一覧表示
    Dim i           As Integer
    Dim cellAdr     As String

    With ActiveSheet
        'コメントが追加されているセルの個数をチェック
        If .Comments.Count = 0 Then
            MsgBox "このシートにはコメントは追加されていません。", _
                    vbExclamation
            End     'コメントがない場合はここで処理終了
        End If

        For i = 1 To .Comments.Count
            '親オブジェクト(セル)のアドレスを変数へ追加保存
            cellAdr = cellAdr & vbLf & .Comments(i).Parent.Address
        Next i

        MsgBox "コメントが追加されているセルは" & .Comments.Count & _
                "個です。" & vbLf & cellAdr, vbInformation
    End With
End Sub

ワークシートにはコメントが3か所設定されています。右上に赤三角のあるセルがコメントセルです。

マクロを実行すると、コメントセルの数とそのアドレスが表示されました。

セルのコメントを追加・削除する