Ошибка с application.ontime методом в Excel VBA

Question

Я havew живой корм данных в Excel, теперь нужно записывать данные, как показано здесь:

]

я написал на код следующим

Option Explicit 

Dim SchedRecalc As Date 
Sub Recalc() 
    Range("A1").Value = Format(Now, "dd-mmm-yy") 
    Range("B1").Value = Format(Time, "hh:mm:ss AM/PM") 

    Call SetTime 
End Sub 

Sub SetTime() 
    SchedRecalc = Now + TimeValue("00:00:01") 
    Application.OnTime SchedRecalc, "Recalc" 
    Application.OnTime SchedRecalc, "Record" 

End Sub 

Sub Record() 
' 
' update Macro 
' 


    With Worksheets("Sheet1") 

     Application.ScreenUpdating = False 
     Sheet1.Range("A1:A169").Copy _ 
     Destination:=mySheet.Range("E9") 
     Sheet1.Range("E9:E169").Insert Shift:=xlShiftToRight 

     Selection.Insert Shift:=xlToRight 
     Application.CutCopyMode = False 

    End With 

End Sub 


Sub Disable() 
    On Error Resume Next 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc",     
    Schedule:=False 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Record",  
    Schedule:=False 

End Sub 

но следующая ошибка приходит .. я отключил все настройки безопасности:

]

Answer 1

Я успешно выполнил ваш код. Убедитесь, что процедура, с которой вы ссылаетесь с помощью Application.OnTime, помещается в модуль .

Вы также можете дважды проверить свою последнюю строку. Копирование и вставка кода не помогли редактору VBA.

Sub Disable() 
    On Error Resume Next 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc",     
    Schedule:=False 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Record",  
    Schedule:=False 
End Sub 

Должно быть на одной линии.

Sub Disable() 
    On Error Resume Next 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False 
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Record", Schedule:=False 
End Sub