VBA的msgbox怎么弄成倒计时结束后自动执行默认操作?

xsg123456 · 发表于 2022-11-15 14:45:18

Sub Msg1()
If MsgBox("3秒后执行......", vbOKCancel, "提示") Then
Application.OnTime Now + TimeValue("00:00:03"), "msg2"
End If
End Sub

Function msg2()
MsgBox "开始执行了", vbOKCancel, "新提示"
End Function

xsg123456 · 发表于 2022-11-15 15:32:27

本帖最后由 xsg123456 于 2022-11-15 15:34 编辑

是不是拼写错误，应该和vba的版本无关。
提示是显示使用了运行时没有方法和属性，应该是拼写错了

xsg123456 · 发表于 2022-11-16 14:40:40

在vba的ide里插入模块，复制代码进去运行看看，感觉这个ontime不应该有版本问题

		自动登录	找回密码
密码			注册

[求助] VBA的msgbox怎么弄成倒计时结束后自动执行默认操作?

点评

点评

点评