Excel VBA：如何使用Application.ontime来调用click事件？

Question

我想使用Application.ontime方法在Excel表单上调用button_click事件。

当我使用此代码时，我可以调用位于Module1中的子代码：

Application.OnTime Now + TimeValue("00:00:15"), "test"

但是，如果我使用此代码，它不会调用我的Private Sub CommandButton1_Click（它什么都不做）：

Application.OnTime Now + TimeValue("00:00:15"), "CommandButton1_Click"

如何点击我的按钮＆＃34; CommandButton1＆＃34;

感谢您的帮助！

Answer 1

您需要公开所需的功能。在标准模块中输入，例如：

Public Sub ReallyVisibleMacro()
    MsgBox "Hello World"
End Sub

这个子做了所有的实际工作。然后你的按钮代码是：

Private Sub CommandButton1_Click()
    Call ReallyVisibleMacro
End Sub

并在OnTime代码中：

Application.OnTime Now + TimeValue("00:00:15"), "ReallyVisibleMacro"