Excel VBA - 暂停代码执行

Question

我有一个复杂的 VBA 函数和一个包含多个工作表的工作簿。 假设代码遍历 Sheet1 的每一行并对这些数据进行处理。

我希望能够在 SourceRow = 16 上暂停，查看我在不同工作表上得到的结果，然后继续（按确定，或击键）

我试过了

If SourceRow = 16 Then
    MsgBox "ReachedRow 16"
End If

但是消息框是模态的，我无法切换到不同的工作表来查看数据。

附： 16 仅作为示例，暂时硬编码，但以后不会。

Answer 1

您可以使用Stop 语句然后按F5 来恢复代码执行。这类似于添加断点。

If SourceRow = 16 Then
      Stop
End If

该行在暂停时将突出显示为黄色，您应该能够浏览工作表。

例子：

您可以以类似的方式使用Debug.Assert (sourcerow <> 16)，它会在sourcerow<>16 计算结果为false 时暂停代码，也就是说，当sourcerow 等于16 时。（感谢RBarryYoung 的评论）

如果您不希望代码永久停止，请考虑通过单击 VB 编辑器中编辑窗口左侧的灰色区域来添加断点，该区域应如下所示：

到达该行时代码将停止。再次按 F5 以恢复代码执行。或者，您可以连续按 F8 以逐行浏览代码。这消除了设置许多断点的需要。

只需单击栗色圆圈即可解除断点。断点不会保存在您的代码中，因此这是一种临时方法（与上面列出的两种方法相反，如果您保存工作簿，它们将保留在您的 VBA 代码中）。

图片取自this tutorial from Wise Owl关于断点。

Answer 2

1. 右键单击SourceRow（代码中的任意位置），然后单击Add Watch...。

2. 在出现的对话框中，在Expression 文本框中输入以下内容：

   SourceRow = 16
   

3. 在Watch Type 下，选择Break when value is True。

4. 点击OK。

当达到该值时，这将自动导致您的程序中断/暂停，并且无需仅为调试/暂停目的添加任何新代码。