Excel VBA セルにコメント挿入するセルのコメントを削除する

• オブジェクト（必須）
  コメントを挿入したいセルをRangeオブジェクトで指定します。
• Text【ﾃｷｽﾄ】（省略可）
  コメントに表示する文字列を指定します。

※すでにコメントが挿入されているセルに対して、AddComment【ｱﾄﾞｺﾒﾝﾄ】メソッドを実行するとエラーになります。

• オブジェクト（必須）
  コメントを削除するセルまたはセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。

※コメントが挿入されていないセルにClearComment【ｸﾘｱｺﾒﾝﾄ】メソッドを実行するとエラーになります。

Sub コメント削除()
  On Error GoTo エラー処理
      Cells.SpecialCells(xlCellTypeComments).ClearComments
      MsgBox "すべてのコメントを削除しました。"
  Exit Sub
エラー処理:
      MsgBox "コメントは挿入されていません。処理を終了します。"
End Sub

3行目【Cells.SpecialCells(xlCellTypeComments).ClearComments】
Cells【ｾﾙｽﾞ】プロパティですべてのセルを参照してRange【ﾚﾝｼﾞ】オブジェクトのSpecialCells【ｽﾍﾟｼｬﾙｾﾙｽﾞ】メソッドを使用して「コメントが含まれるセル」を参照しRange【ﾚﾝｼﾞ】オブジェクトのClearComments【ｸﾘｱｺﾒﾝﾂ】メソッドを実行して
セルに挿入されているすべてのコメントを削除します。

4行目【 MsgBox “すべてのコメントを削除しました。”】
MsgBox関数を使用してユーザーにコメントを削除したことを伝えます。

5行目【Exit Sub】
Exit【ｴｸﾞｼﾞｯﾄ】ステートメントでSub【ｻﾌﾞ】プロシージャを途中で終了します。

6行目～7行目【エラー処理:
MsgBox “コメントは挿入されていません。処理を終了します。”】
エラーが発生したとき、つまりセルにコメントが設定されていないとき、2行目のGoToステートメントで、エラー処理ラベルまで処理がジャンプしMsgBox関数でユーザーにメッセージを表示します。

• オブジェクト（必須）
  コメントが設定されているセルをRange【ﾚﾝｼﾞ】オブジェクトで指定します。

※コメントが挿入されていないセルにComment【ｺﾒﾝﾄ】プロパティを使用するとエラーになります。

• オブジェクト（必須）
  AddComment【ｱﾄﾞｺﾒﾝﾄ】メソッドで追加したComment【ｺﾒﾝﾄ】オブジェクト、またはComment【ｺﾒﾝﾄ】プロパティで参照したComment【ｺﾒﾝﾄ】オブジェクトを指定します。
• Text【ﾃｷｽﾄ】（省略可）
  追加または、設定するテキストを設定します。データ型（Variant）
• Start【ｽﾀｰﾄ】（省略可）
  文字列を配置する文字の位置番号を指定します。この引数を省略すると、既存の文字列は削除されます。データ型（Variant）
• Overwrite【ｵｰﾊﾞｰﾗｲﾄ】（省略可）
  既存の文字列を上書きするかしないかをブール型の値で設定します。

  設定値	内容
  False	既存の文字列に指定した文字列が追加されます。（既定値）
  True	既存の文字列が追加した文字列に置き換えられます。

• オブジェクト（必須）
  削除するコメントを表すComment【ｺﾒﾝﾄ】プロパティで参照したComment【ｺﾒﾝﾄ】オブジェクトを指定します。

※Comment【ｺﾒﾝﾄ】オブジェクトがない場合はエラーになります。

• オブジェクト（必須）
  図形を設定するComment【ｺﾒﾝﾄ】プロパティで参照したComment【ｺﾒﾝﾄ】オブジェクトを指定します。
• 設定値（必須）
  設定する図形のタイプを下記のMsoAutoShapeType列挙型の定数または、値で指定します。

MsoAutoShapeType列挙型

• オブジェクト（必須）
  設定するComment【ｺﾒﾝﾄ】プロパティで参照したComment【ｺﾒﾝﾄ】オブジェクトを指定します。
• 設定値（必須）
  Comment【ｺﾒﾝﾄ】オブジェクトを表示するか非表示にするかをブール型の値で設定します。

  設定値	内容
  False	非表示にします。（既定値）
  True	常に表示します。

Sub コメント追加()
  If TypeName(Range("D1").Comment) = "Comment" Then
     MsgBox "すでにコメントが設定されています。処理を終了します。"
     Exit Sub
  End If
  With Range("D1").AddComment
      .Text Format(Date, "yyyy/mm") & "現在"
      .Visible = True
      .Shape.AutoShapeType = 15
  End With
End Sub

3行目【MsgBox “すでにコメントが設定されています。処理を終了します。”】
条件が成立したとき、つまり、D1セルにすでにコメントが挿入されているとき、MsgBox関数を利用してユーザーにメッセージで伝えます。

4行目【Exit Sub】
条件が成立したとき、つまり、D1セルにすでにコメントが挿入されているとき、Exit【ｴｸﾞｼﾞｯﾄ】ステートメントを使用してSubプロシージャを途中で終了します。

6行目【With Range(“D1”).AddComment】
AddComment【ｱﾄﾞｺﾒﾝﾄ】メソッドを使用して、D1セルにComment【ｺﾒﾝﾄ】オブジェクトを追加してWith【ｳｨｽﾞ】ステートメントで指定します。

7行目【.Text Format(Date, “yyyy/mm”) & “現在”】
With【ｳｨｽﾞ】ステートメントで指定したComment【ｺﾒﾝﾄ】オブジェクトのText【ﾃｷｽﾄ】メソッドを使用して、Comment【ｺﾒﾝﾄ】オブジェクトに文字列を追加します。

Format【ﾌｫｰﾏｯﾄ】関数を使用して現在の年と月を文字列で取得し設定します。

8行目【.Visible = True】
With【ｳｨｽﾞ】ステートメントで指定した、Comment【ｺﾒﾝﾄ】オブジェクトのVisible【ﾋﾞｼﾞﾌﾞﾙ】プロパティを使用して、Comment【ｺﾒﾝﾄ】オブジェクトを常に表示するように設定します。

9行目【.Shape.AutoShapeType = 15】
With【ｳｨｽﾞ】ステートメントで指定した、Comment【ｺﾒﾝﾄ】オブジェクトのShape【ｼｪｲﾌﾟ】プロパティを使用し、Comment【ｺﾒﾝﾄ】オブジェクトのShape【ｼｪｲﾌﾟ】オブジェクトを参照してShape【ｼｪｲﾌﾟ】オブジェクトのAutoShapeType【ｵｰﾄｼｪｲﾌﾟﾀｲﾌﾟ】プロパティに図形のタイプを15に設定します。