前景提要()

在我们的印象中，不管是excel自带的弹窗，还是我们自己通过代码写出来的弹窗都是需要操作才会消失的

比方说这样的，你点击按钮，这个弹窗会一直存在

而在我们自己写的VBA代码中，弹窗都是附带着返回值得，如果不做出选择，弹窗就会一直存在，同时我们得程序也会一直卡在哪里

比方说我们之前做的这个运算得弹窗

但是有时候，我们仅仅是希望弹窗弹出来一下，告知我们当前程序运行得状态就好，然后会自动消失，并不需要做出任何选择，程序也会在弹窗消失之后自动运行，这样得弹窗可以实现吗？

场景模拟

假设我们当前得代码正在进行一个比较复杂得运算，并且关闭了屏幕刷新，对于使用者来说，当电脑屏幕上看，并不知道程序运行到那个步骤了，如果耐心不好得，可能会因为电脑死机或者程序坏了，这个时候我们就需要一个弹窗告诉使用者程序已经运行到哪里了，并且仅仅是弹窗，并不需要使用者做任何得操作，是不是更加得人性化呢，来上代码

代码区

Sub msg()Dim WshShell As ObjectSet WshShell = CreateObject("Wscript.Shell")WshShell.popup "脚本当前正在进行计算，请耐心等待!