Excel VBA: 如何使用Application.ontime调用点击事件？

Question

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

当我使用此代码时，我可以调用位于我的模块 1 中的子程序：

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

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

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

如何调用按钮上的点击 "CommandButton1"

感谢您的帮助！

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"

Excel VBA: How to use Application.ontime to call a click event?