Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » シート上にコメントがあるかを調べる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 » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » シート上にコメントがあるかを調べるExcelマクロ-Worksheet.Comments

[スポンサードリンク]

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » シート上にコメントがあるかを調べるExcelマクロ-Worksheet.Comments

「Sheets・Worksheet」の記事一覧

検索

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

.