只想在运行VBA代码的时候显示一个Popup或者状态栏

我有一个很长的代码，并采取约。 1分30秒执行，所以我想显示一个状态栏显示“请稍等…正在运行”或一个popup式的相同的消息或任何其他的将是容易的。 它包括很多做，而如果条件..我不想用任何长码或非常沉重的方法来显示消息，请build议一些小方法来做到这一点。

Answer 1

这是一个简短的过程，将演示如何调整Application.StatusBar属性文本的循环。

 Sub sb_text() Dim w As Long, s As Long, d As Double s = 2 '<~~ seconds between actions Application.StatusBar = "Preparing ..." d = Now + TimeSerial(0, 0, s): Do While Now < d: DoEvents: Loop For w = 1 To 5 Application.StatusBar = "Working: " & w d = Now + TimeSerial(0, 0, s): Do While Now < d: DoEvents: Loop Next w Application.StatusBar = "Finished" d = Now + TimeSerial(0, 0, s): Do While Now < d: DoEvents: Loop Application.StatusBar = vbNullString End Sub 

我已经设置了两秒钟的暂停，以便您可以实际观察状态栏文本的更改。 在实际的程序循环中，等待将被正在进行的实际工作所取代。