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

邪恶海盗

MsgBox(prompt[,buttons][,title][,helpfile,context])
参数描述 (Parameter Description)
Prompt - 必需参数。 在对话框中显示为消息的字符串。 提示的最大长度约为1024个字符。 如果消息扩展到多行，则可以使用回车字符（Chr（13））或每行之间的换行符（Chr（10））分隔行。
Buttons - 可选参数。 一个数字表达式，指定要显示的按钮类型，要使用的图标样式，默认按钮的标识以及消息框的模态。 如果留空，则按钮的默认值为0。
Title - 可选参数。 字符串表达式显示在对话框的标题栏中。 如果标题留空，则应用程序名称将放在标题栏中。
Helpfile - 可选参数。 一个String表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件。
Context - 可选参数。 一个数字表达式，用于标识“帮助”作者分配给相应“帮助”主题的“帮助”上下文编号。 如果提供了上下文，则还必须提供helpfile。

以上是在网上查到的资料,其它语言比如AU3等都有一个延时选项,在倒计时完成后会自动执行默认操作,VBA不带这个东西,要怎么实现呢,比如代码是这样的:
Function MessageBox1()
msg1=msgbox("请选择操作",4+64+256,"提示")
if msg1 =1 then msgbox("你选择了-是")
if msg1 =2 then msgbox("你选择了-否")
End Function

hehuiying

谢谢分享

2011whp

自己做一个 窗体可以

窗体：
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:03"), "模块1.msg2"
Application.OnTime Now + TimeValue("00:00:03"), "模块1.msg1"
End Sub


模块1
Sub main()
UserForm1.Show
End Sub

Sub Msg1()
   UserForm1.Hide
End Sub

Sub msg2()
Sheet1.Range("A1").Value = "abc"
End Sub

邪恶海盗

a583091790 发表于 2022-11-21 11:38
昨天有学习到了这个自动延时关闭功能

咋个搞定的???

-=-=-=-=-=-=-=-=-=-

a583091790

昨天有学习到了这个自动延时关闭功能

ihso

路过…………

abcd66099

路过…………

邪恶海盗

xsg123456 发表于 2022-11-16 14:40
在vba的ide里插入模块，复制代码进去运行看看，感觉这个ontime不应该有版本问题

试了无效,运行的时候停在msgbox提示窗口,点了确定就是这个提示...

bjcclzw

路过…………

xsg123456

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

邪恶海盗

xsg123456 发表于 2022-11-15 15:32
是不是拼写错误，应该和vba的版本无关。
提示是显示使用了运行时没有方法和属性，应该是拼写错了

不知道,我是直接复制你写的代码运行的...

xsg123456

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

邪恶海盗

xsg123456 发表于 2022-11-15 14:45
Sub Msg1()
    If MsgBox("3秒后执行......", vbOKCancel, "提示") Then
        Application.OnTime No ...

       Application.OnTime Now + TimeValue("00:00:03"), "msg2"

这一行报错,我用的是VBA7.0好像,是不是跟版本有关系 ???

xsg123456

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