シート内セルに着色があればエラーメッセージ

Excelの入力ボタンをクリックしたときにシート１のセル"A1:D50"内にエラーで着色（ColorIndex =7）されたセルがあった場合、次のステップにいけないようにエラーメッセージ（"日付が入力されていません"）を表示したいのですがコード表示が解る方どうかよろしくお願いします。

No.1 ベストアンサー 回答者： nofx35 回答日時： 2013/03/16 21:43

こんばんは。

サンプルです。

Sub Try()
　　Dim CheckRange As Range
　　Dim rng As Range
　　Dim cnt As Long

　　Set CheckRange = Range("A1:D50")
　　For Each rng In CheckRange
　　　　If rng.ColorIndex = 7 Then
　　　　　　cnt = cnt + 1
　　　　End If
　　Next

　　If cnt > 0 Then
　　　　MsgBox cnt & "ヶ所、日付が入力されていません。" , vbCritical
　　　　Exit Sub
　　End If

　　'ここに本処理を記入
　　
End Sub

※インデントを見やすくする為に行頭に全角スペースを挿入しています。

この回答へのお礼

有難うございます。苦労してたので大変勉強になり助かりました。ちなみにrng.ColorIndex の間にInterior.を入れたらエラーが出なくなりました。

お礼日時：2013/03/16 23:33