excel - vba application.ontime 返回函数值

Question

我的程序中有以下代码:
Application.OnTime Now + TimeValue("00:00:1"), "sub1"
可以完美调用 sub1每一秒。
但我想用 Applicaiton.Ontime调用函数func并将值返回给变量。

我对上面的代码尝试了很多修改，没有一个奏效。我仍然可以使用的任何建议Application.OnTime调用函数或任何其他方法？

提前致谢!

Answer 1

加里的评论让我想到了一点。这是我第一次尝试，但您可以使用 Application.OnTime 调用函数，甚至是一个带参数的函数。

它可能需要对您的代码进行一些调整。在此示例中，我使用模块级变量而不是直接将值返回给函数。

Dim val

Sub Test()
val = Empty
Application.OnTime Now + TimeValue("00:00:3"), "'MyFunction ""string"", 395, ThisWorkbook.Name'"

Do While IsEmpty(val)
    DoEvents
Loop

MsgBox val

End Sub

Function MyFunction(arg As String, arg2 As Long, Optional nm As String = vbNullString)

val = arg & arg2 & vbCrLf & nm

End Function