привет в этой рабочей тетради у меня есть этот код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop execution when workbook closes
On Error Resume Next
Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
'start execution when workbook opens
Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub
и в модуле 1 у меня есть этот код
Sub Calcul()
Heure = Now + TimeValue("00:05:00")
Application.OnTime Heure, "Calcul"
Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub
] приведенный выше код запускается каждые 5 минут
в модуле 2 я бы хотел, чтобы этот код запускался каждые 10 минут
Sub Calcul()
Heure = Now + TimeValue("00:10:00")
Application.OnTime Heure, "Calcul"
Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub
но я получаю сообщение об ошибке «Обнаружено неоднозначное имя». Я новичок в Excel, любая помощь была бы кстати.
решение1
Я согласен с мнением в комментариях, вам стоит почитать, но я не вижу никакой связи с конкретной ситуацией, поскольку вы используете, Application.OnTime
а я не видел упоминания об этом в ссылке.
Вы можете прочитать об этом здесь:
https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime
Подводя итог: вам нужно будет построить строку, заключенную в кавычки. Точная конструкция которой определяется содержимым, которое вы отправляете (например, переменная, целое число, строка).
Структура имеет решающее значение. По всей вероятности, вы пропустите один символ и потратите много времени, используя метод проб и ошибок, пока не попадете на нужную строку