vba - Excel VBA：如何使用 Application.ontime 来调用点击事件？

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"

我怎样才能点击我的按钮“CommandButton1”

谢谢你的帮助！

score 1 · Accepted Answer

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

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"

1 回答 1