Excel VBA: Как использовать Application.ontime для вызова события click?

Question

Я хотел бы использовать метод Application.ontime для вызова события button_click в моей форме Excel.

, когда я использую этот код, который я могу назвать саб, расположенный в моем Module1:

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"