アクセス上位ページ
 
最近の更新内容
[NEXT] ⇒ (7)-k.Activate メソッド

Excel VBA ≫ 1.基礎編 - ワークシート(7)-j.ワークシート内のコメント

【ページ内リンク】

ワークシート内のコメント - Comments プロパティ

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

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



  • 【構文】
    object.Comments.Count
        ・・・ Comment オブジェクト数の取得
    object.Comments( Index )
        ・・・ Comment オブジェクト
    object.Comments( Index ).Parent
        ・・・ Comment が設定されているセルオブジェクト
  • ※objectはworksheetオブジェクトを表す変数


  • Comments プロパティの使用例
  • アクティブシート内のコメントが設定されているセルの数とアドレスを表示する例です。
    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
    
    ⇒ サンプルマクロ集 へ


    <sample_eb07a_01 実行前> sample_eb07a_01 実行前 <sample_eb07a_01 実行後>
    sample_eb07a_01 実行後

<サイト内関連リンク> 関連リンクもチェック!!
- セルのコメント
カテゴリ内ページ



Page
Top