在Excel VBA中暂停/恢复循环（点击）

所以，我正在使用一个相当大的Excel工作表。 我创造了很多function，因为它相当复杂。 当我告诉它执行它需要相当长的时间。 我已经创build了一个计时器，告诉它如何进入它的过程（如图所示）：

计数器的屏幕截图

现在。 我非常想要暂停button。 我曾尝试过： 

Private Sub PauseButton_Click() Application.Wait Now() + TimeValue("00:00:20") End Sub

这实际上是暂停过程。 我最初的想法是input一个非常大的数字，然后继续点击button。 不幸的是我不能恢复（ DoEvents ）这个过程，因为Excel似乎完全冻结了input的时间。

如果您对如何解决这个问题有任何想法，他们将会大受欢迎。

那么，关于我们没有窗体的代码视图，你可以尝试声明一个公共的布尔值b_pause ，它告诉你是否暂停。 写这样的东西： 

 public b_pause as boolean sub RunMe b_pause = True Do While b_pause DoEvents Loop End sub Sub StopMe() b_pause = False End Sub
Interesting Posts