VBAについて質問させていただきます。

質問

マクロを組もうと思っているのですが、
どうすればいいのかご教授下さい。ファイルの中には
３４枚のシートがありD11:D58の中に値が入力されているのですが、
10以下の数字が連続して縦に8個のセルに入力されていたらmsgで
「セル番号＆に異常が見られます」と出したいのですが、
どうすればよろしいでしょうか？？
本やネットなどいろいろ検索してみましたがどうしてもわかりません・・・
また質問の仕方が悪いかもしれませんので、
また追記させていただきます。

（例）D11～24まで「6」の数字が連続で入っている場合、
　　セル番号＆に異常が見られます」というメッセージを
　　出したいです。

回答No.1

hana-hana3

細かな仕様が解りませんがこんな感じでいかがでしょうか？

Sub sample()

Dim Ws As Worksheet
Dim C As Range
Dim count As Integer

For Each Ws In ThisWorkbook.Worksheets
count = 0
For Each C In Ws.Range("D11:D58")
If C <= 10 Then
count = count + 1
If count >= 8 Then MsgBox Ws.Name & " / " & C.Address & " に異常が見られます。"
Else
count = 0
End If
Next
Next

End Sub

お礼

お返事遅くなり失礼いたしました。ありがとうございます。
実は思ったとおりには、動かなかったのですが頂いたコードを
参考に自分なりに考えて作っていこうと思います。
また判らなければ質問させていただく事もあるかもしれません。
機会があればご指導お願いいたします。