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

質問

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

回答No.1

nofx35 · ベストアンサー

こんばんは。
サンプルです。

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.を入れたらエラーが出なくなりました。