Home » ExcelVBA Rangeオブジェクト » コメント » シート上にコメントがあるかを調べるExcelマクロ-Worksheet.Comments

シート上にコメントがあるかを調べるExcelマクロ-Worksheet.Comments

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

シート上にコメントがあるかを調べるExcelマクロ

「vba セルのコメントがあるか確認」
「vba セルのコメント有無チェック」
という検索キーワードをキッカケにして、Range.CommentプロパティやRange.NoteTextメソッドで、セルコメントの有無を調べられることをご紹介しました。

[スポンサードリンク]

個々のセルにコメントが存在するかどうかではなく、シート上にコメントが存在するかどうか判定したいということもあるでしょう。

シート上にコメントがあるかどうか調べるサンプルマクロ

以下のようなコードでシート上にコメントがあるかを調べられます。
Sub シートにコメントがあるかを確認する()
 If ActiveSheet.Comments.Count = 0 Then
  MsgBox "コメントはありません。"
 Else
  MsgBox "コメントが存在しています!"
 End If
End Sub

アクティブなシートにコメントがなければ
「コメントはありません。」
コメントがあれば
「コメントが存在しています!」
とメッセージボックスに表示されます。

サンプルマクロで利用しているオブジェクト式

WorksheetオブジェクトのCommentsプロパティを使うと、ワークシート上の全コメントを表すCommentsコレクションオブジェクトを取得できます。

シート上にコメントがあるかを調べるExcelマクロ

Commentsオブジェクトは、個々のコメントを表すCommentオブジェクトを単独オブジェクトとして持っている、コレクションです。

シート上にコメントがあるかを調べるExcelマクロ

Worksheet.Commentプロパティで取得した、CommentsコレクションオブジェクトのCountプロパティで、Commentsコレクションオブジェクトに含まれるCommentオブジェクトの数(つまりワークシート上のコメントの数)を調べて、

シート上にコメントがあるかを調べるExcelマクロ

「0」ならば、ワークシート上にコメントは存在しないと判定しています。

ここで利用した、Worksheet.Commentsプロパティを使った、セルコメントのフォントサイズを変更するExcelマクロも、あわせてご確認ください。

[スポンサードリンク]

Home » ExcelVBA Rangeオブジェクト » コメント » シート上にコメントがあるかを調べるExcelマクロ-Worksheet.Comments

Copyright © インストラクターのネタ帳 All Rights Reserved.

.