谢谢分享

自己做一个 窗体可以

窗体：
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
昨天有学习到了这个自动延时关闭功能

咋个搞定的???

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

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

路过…………

路过…………

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

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

路过…………

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

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

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

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

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