VBA如何让一个msgbox显示几秒钟后自动

2025-04-13 08:55:52
推荐回答(2个)
回答1:

以下代码在 Windows 10 + Office 2016 (64-bit)中测试通过:

Sub MsgBoxTimer()
    CreateObject("WScript.Shell").Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Test"",2,""Real%20Time%20Status%20Message""))"
End Sub

回答2:

办不到,做一个窗体代替msgbox可行