excel - 「for without next」End Sub を避ける

Question

ここの専門家の何人かが問題を解決してくれると非常に助かります。範囲内のゼロ値をチェックするループがあり、問題は「for without next」というエラーを回避できないことです。End Sub を使用した for ループの構造が間違っているのではないでしょうか? ありがとうございました。

For Each c In Range("B4:H4")

     If c.Value = 0 Then MsgBox "Wrong record!", vbExclamation
     End Sub
Next c

Answer 1

終了ではなく、終了します。

For Each c In Range("B4:H4")

  If c.Value = 0 Then 
    MsgBox "Wrong record!", vbExclamation
    Exit Sub
  End If
Next c

ただし、一般的には、終了するポイント数を制限する方法を考え出すのが最善です。