每个循环停止

时间:2016-02-18 23:08:19

标签: vba excel-vba excel

如何在Excel中运行后停止循环?不确定我是否正确描述它,但在Excel中,我编写了一些带有For循环的代码,循环遍历一个范围。这个范围有10382行。无论如何,我还有MsgBox行代码。

我在运行之后意识到放置MsgBox代码是错误的。现在我发现自己必须在MsgBox 10382上单击OK。如何在不必强制关闭Excel的情况下停止它。

我已经尝试点击VBA编辑器中的停止按钮,但它不会让我。

For Each cell in rng.Cells
   If Me.txtBox.Value = "" Then
      MsgBox "Enter a Value"
   Else
      'Do Something
   End If
Next

1 个答案:

答案 0 :(得分:3)

正如tigeravatar已经建议的那样,Ctrl + Break是一种停止执行的好方法。

但是,最终用户很少知道这样做。一个更友好的选择是使用MsgBox提出问题:

If MsgBox("Do you want to continue?", vbYesNo Or vbQuestion) = vbNo Then Exit For
  • 其他选项包括vbOKCancel和vbAbortRetryIgnore