避免'沒有下一步'結束Sub

Question

這將是非常有益的，如果這裏的一些專家幫助我的問題： 我有一個循環來檢查範圍內的零值，問題是我不能避免錯誤'for沒有下一個'。也許這是使用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 

但是，通常最好制定一種方法來限制要退出的點數。