Excel VBA MsgBox 自动关闭：实现 2 秒超时

在 VBA 中，可以使用 Timer 控件来实现定时关闭 MsgBox 对话框。以下是一个示例代码：

Private Sub Form_Load()
    Timer1.Interval = 2000 ' 设置定时器间隔为 2 秒
    Timer1.Enabled = True ' 启动定时器
    MsgBox '请选择：是、否', vbYesNo, '选项'
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False ' 关闭定时器
    Unload Me ' 关闭窗口
End Sub

在这个示例中，我们在窗口加载时启动了一个定时器，并设置其间隔为 2 秒。在 MsgBox 对话框弹出后，定时器开始计时。当定时器触发 Timer 事件时，我们关闭定时器并关闭窗口，从而自动关闭 MsgBox 对话框。