ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

コメントの設定(Comments, Comment, AddComment, ClearComment)

   

コメントの設定

セルにコメントを新規に挿入するには、AddComment メソッド を使用します。挿入されたコメントに、文字列を追加、変更したり、コメントを削除したりするには、Comment プロパティ を使用します。ワークシート内のコメント全体を操作するには、Comments プロパティ を使用します。


AddComment メソッド

指定されたセルにコメントを挿入します。

【書式】

object.AddComment ( [ text ] )


引数・戻り値

  • object  ・・・  対象となる セル(Range オブジェクト)を指定します。
  • text  ・・・  コメントの文字列を指定します。
  • 戻り値  ・・・  コメントを表す Comment オブジェクト を返します。

すでにコメントが有るセルに、このメソッドを使用するとエラーになります。そのため、事前に、TypeName 関数 等を使って、コメントが挿入されているかどうかを判定します。
 
  If TypeName ( ActiveCell.Comment ) = “Nothing” Then
      ActiveCell.AddComment.Text “コメント挿入”
  End If
 
TypeName ( ActiveCell.Comment ) で、コメントが挿入されている場合は、“Comment” という文字列が返ります。


ClearComment メソッド

指定されたセル範囲からすべてのコメントを消去します。

【書式】

object.ClearComment


引数・戻り値

  • object  ・・・  対象となる Range オブジェクトを指定します。


Comment プロパティ


【書式】

object.Comment


引数・戻り値

  • object  ・・・  対象となる Range オブジェクトを指定します。
  • 戻り値  ・・・  object で指定したセル範囲の左上端に関連付けられているコメントを表す Comment オブジェクト を返します。


Comment プロパティの主なメソッド

  • Comment.Delete
    コメントを削除します。
     
  • Comment.Next
    次のコメントを表す Comment オブジェクト を返します。このメソッドは、1 つのシートだけで実行されます。シートの最後のコメントでこのメソッドを使用すると、Null 値が返されます。
     
  • Comment.Previous
    前のコメントを表す Comment オブジェクト を返します。このメソッドは、1 つのシートだけで実行されます。シートの最初のコメントでこのメソッドを使用すると、Null 値が返されます。
     
  • Comment.Text ( [ text, start, overwrite ] )
    コメント(文字列型:String)を返します。
    text:追加するテキストを指定します(省略可)。
    start:文字列を配置する文字の位置番号を指定します。省略すると、コメントの既存の文字列は削除されます(省略可)。
    overwriteTrue を指定すると、既存の文字列が指定した文字列に置き換えられます。False を指定すると、既存の文字列に指定した文字列が追加されます。既定値は、False(省略可)。


Comment プロパティの主なプロパティ

  • Comment.Visible = boolean
    オブジェクトを表示するかどうかを表すブール型(Boolean)の値を設定します。値の取得および設定が可能です。
    boolean:コメントを表示する場合、True を指定、非表示にする場合、False を指定します。
     
  • Comment.Shape
    コメントに結合される図形を表す Shape オブジェクト を返します。
    ※ 図形を選択する場合、コメントを表示した状態にします( Comment.Visible プロパティ = True )。非表示の状態で選択すると、エラーになります。


Comments プロパティ


【書式】

object.Comments


引数・戻り値

  • object  ・・・  対象となる Worksheet オブジェクトを指定します。
  • 戻り値  ・・・  指定されたシート内の全てのコメント(Comments コレクション)を返します。


Comment プロパティの主なメソッド

  • Comments.Item ( index )
    単一の Comment オブジェクト を返します。
    index:オブジェクトのインデックス番号を指定します。これを指定することで、シート内の各コメントにアクセスし、操作することが可能になります。


Comment プロパティの主なプロパティ

  • Comments.Count
    シート内のコメント数を表す長整数型(Long)の値を返します。


コメントの設定 使用例 1

サンプルVBAソース


実行結果

コメントの設定 使用例01



コメントの設定 使用例 2

サンプルVBAソース


Find メソッド(コメントの検索)使用例 実行結果

サンプルVBAソース実行前

コメントの設定 使用例01

実行後

コメントの挿入 使用例02


 - セルの操作 , , , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  関連記事

オートフィルタ(色で抽出する)AutoFilter メソッド

オートフィルタ(色で抽出する) フォントの色、セルの背景色(条件付き書式による設 …

入力規則(他セルや数式を利用して許容値を設定)Validation オブジェクト

他のセルや数式を利用して許容値を設定する 入力規則(その5) での設定を、マクロ …

次の検索(FindNext メソッド,FindPrevious メソッド)

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

入力規則(エラーメッセージの設定)Validation オブジェクト

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

対象のセルを参照している全てのセルを取得(Dependents プロパティ)

Dependents プロパティ Dependents プロパティは、対象のセル …

セルの幅・高さの自動調整(AutoFit メソッド)

AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲(R …

対象のセルが直接参照しているセル全てを取得(DirectPrecedents プロパティ)

DirectPrecedents プロパティ DirectPrecedents …

AutoFill メソッド 使用例 1
連続データを入力する(AutoFill メソッド)

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

列名・列番号取得 使用例
列名を取得、列番号を取得(Address プロパティ,Column プロパティ)

列番号を取得する セル番地(「A1」や「B3」)や列名(「A」「B」「C」&#8 …

現在選択されているセルを参照(RangeSelection プロパティ)

RangeSelection プロパティ 実際に何が選択されているかにかかわらず …