在VBA中,如果直接使用msgbox函数弹出的提示窗口,必须手点击msgbox上的按钮才可以关闭。而调用 WshShell 对象,就可以实现自动关闭的窗口。
代码:
Sub AA()
Dim WshShell As Object
Set WshShell = CreateObject(“Wscript.Shell”)
WshShell.Popup “1秒后关闭!”, 1, “提示!”, 16
End Sub
效果演示:
黄山市民网:https://www.huangshanshimin.com/