VBA自動關閉msgbox

你可以使用VBA的"Application.OnTime"方法来实现自动关闭MsgBox。以下是一个示例代码：

Sub AutoCloseMsgBox()
    Dim delay As Double
    delay = 5 '设置延迟时间为5秒
    MsgBox "这是一个自动关闭的MsgBox", vbInformation, "提示信息"
    Application.OnTime Now + TimeValue("00:00:" & delay), "CloseMsgBox"
End Sub

Sub CloseMsgBox()
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.SendKeys "%{F4}", True '发送Alt+F4键盘快捷键关闭MsgBox
    Application.DisplayAlerts = True
End Sub

在上面的代码中，我们首先使用MsgBox显示了一个提示信息，并设置延迟5秒后自动关闭。然后，在"AutoCloseMsgBox"过程中，我们使用"Application.OnTime"方法来调用"CloseMsgBox"过程。在"CloseMsgBox"过程中，我们使用"Application.SendKeys"方法发送Alt+F4键盘快捷键来关闭MsgBox。

请注意，在使用"Application.SendKeys"方法时，我们将第二个参数设置为True，表示将键盘事件发送到活动窗口。如果你的VBA代码在后台运行，而不是在前台窗口中运行，则需要使用其他方法来关闭MsgBox。