Question

EXCEL vba msgbox 自动关闭 为何实现不了？

Private Sub CommandButton1_Click()
MsgBox "a + b"
End Sub

Sub text()
NewTime = Now + TimeValue("00:00:08")
Application.OnTime NewTime, "text"
Call CommandButton1_Click
Set wShell = CreateObject("Wscript.Shell")
wShell.popup "执行完毕!", 2, "提示", 64
Set wShell = Nothing

End Sub

这样写还是需要手动才能关闭 该怎样做？

Answer 1

Private Sub CommandButton1_Click()

Dim WSH As Object
Set WSH = CreateObject("WScript.shell")
WSH.Popup "A+B", 5, "警告", vbInformation
Set WSH = Nothing
End Sub

追问

试过了 还是不行

Answer 2

你的ecxel是不是32位的