ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

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

（例）D11〜24まで「6」の数字が連続で入っている場合、
　　セル番号＆に異常が見られます」というメッセージを
　　出したいです。
質問投稿日時：08/04/09 17:40
質問番号：3935310

回答

 
回答者：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
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/04/09 18:59
回答番号：No.1
この回答への補足この回答に補足をつける(質問者のみ)
この回答へのお礼お返事遅くなり失礼いたしました。ありがとうございます。
実は思ったとおりには、動かなかったのですが頂いたコードを
参考に自分なりに考えて作っていこうと思います。
また判らなければ質問させていただく事もあるかもしれません。
機会があればご指導お願いいたします。
 
スポンサーサイト（詳細）
このページのトップへ