VBA 暂停代码并等待用户交互

Question

我有代码，我在其中添加了一个根据特定条件弹出的错误框。条件是:

If Range (Q2:Q) = "" Then
ErrorFrame.Visible = True

当错误框架弹出时，有两个选项我想要添加按钮:

继续:
Continue 将继续使用宏，无论 Q 列中是否有数据

停止:
停止将结束宏，因此用户可以将数据输入到 Q 列并重新运行宏

我也希望这样当错误框架弹出时，代码会暂停并且在用户选择其中一个选项之前不会继续。

谁能给我一个例子来说明这是如何工作的？我很难考虑如何写这个。非常感谢任何帮助，谢谢!

Answer 1

我自己想通了:

If WorksheetFunction.CountA(Range("Q:Q")) = 0 Then
UserForm1.ErrorFrame.Visible = True
    Do While UserForm1.ErrorFrame.Visible = True
    DoEvents
    Loop
    If ContinueFlag = True Then GoTo Line1
End If

Line1:

基本上对于继续按钮，我只是在其上添加了一个标志，因此单击它会使标志为真。然后在函数中，如您所见，当标志为真时，它将转到第 1 行，然后继续代码并退出 Do While环形。

我敢肯定，这可能不是最有效的方法，但请告诉我你们的想法以及是否有更好的方法。