[[20020622173804]]　『VBAでセルにコメントがあるかどうか』（マッスル）　ページの最後に飛ぶ

『VBAでセルにコメントがあるかどうか』（マッスル）

VBマクロでセルにコメントがあるかどうかの判断とコメントの参照（マッスル）

エクセルのＶＢマクロをみようみまねでやっています。

コメントがあるかどうかを判断して、あればそれを参照したいのですが、

どうすればできますか？

 ExcelのVBEの中に入ってからヘルプメニュー→Microsoft VisualBasicヘルプを

 参照してください。

『コメント』として、検索すると下のCommentオブジェクトがでてきます。

 xxx = Worksheets(1).Range("E5").Comment.Text

 でコメントに入っている文字列を得ることができます。

 （kazu）

 [Microsoft VisualBasic HELPの中身]

 Comment オブジェクト

 関連項目 プロパティ メソッド イベント ｱﾌﾟﾘｹｰｼｮﾝ情報

 Range

 Comments (Comment)

 セルのコメントを表します。Comment オブジェクトは、

 Comments コレクションのメンバーです。

 使い方

 Comment オブジェクトを取得するには、Comment プロパティを使用します。

 次の使用例は、セル E5 のコメント内のテキストを変更します。

 Worksheets(1).Range("E5").Comment.Text "reviewed on " & Date

 Comments コレクションから単体の Comment オブジェクトを取得するには、

 Comments(index) プロパティを使用します。引数 index には、コメント番号を

 指定します。次の使用例は、ワークシート 1 のコメント 2 を非表示にします。

 Worksheets(1).Comments(2).Visible = False

 セル範囲にコメントを追加するには、AddComment メソッドを使用します。

 次の使用例は、ワークシート 1 のセル E5 にコメントを追加します。

 With Worksheets(1).Range("e5").AddComment

    .Visible = False

    .Text "コメントの追加 :" & Date

 End With

コメント返信：