対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016
「vba セルのコメントがあるか確認」
「vba セルのコメント有無チェック」
という検索キーワードをキッカケにして、Range.CommentプロパティやRange.NoteTextメソッドで、セルコメントの有無を調べられることをご紹介しました。
［スポンサードリンク］
個々のセルにコメントが存在するかどうかではなく、シート上にコメントが存在するかどうか判定したいということもあるでしょう。
シート上にコメントがあるかどうか調べるサンプルマクロ
以下のようなコードでシート上にコメントがあるかを調べられます。
Sub シートにコメントがあるかを確認する()
If ActiveSheet.Comments.Count = 0 Then
MsgBox "コメントはありません。"
Else
MsgBox "コメントが存在しています！"
End If
End Sub
If ActiveSheet.Comments.Count = 0 Then
MsgBox "コメントはありません。"
Else
MsgBox "コメントが存在しています！"
End If
End Sub
アクティブなシートにコメントがなければ
「コメントはありません。」
コメントがあれば
「コメントが存在しています！」
とメッセージボックスに表示されます。
サンプルマクロで利用しているオブジェクト式
WorksheetオブジェクトのCommentsプロパティを使うと、ワークシート上の全コメントを表すCommentsコレクションオブジェクトを取得できます。
Commentsオブジェクトは、個々のコメントを表すCommentオブジェクトを単独オブジェクトとして持っている、コレクションです。
Worksheet.Commentプロパティで取得した、CommentsコレクションオブジェクトのCountプロパティで、Commentsコレクションオブジェクトに含まれるCommentオブジェクトの数（つまりワークシート上のコメントの数）を調べて、
「0」ならば、ワークシート上にコメントは存在しないと判定しています。
ここで利用した、Worksheet.Commentsプロパティを使った、セルコメントのフォントサイズを変更するExcelマクロも、あわせてご確認ください。
［スポンサードリンク］
Home » Excel VBA Rangeオブジェクト » コメント » シート上にコメントがあるかを調べるExcelマクロ－Worksheet.Comments
