Приветствую всех. Вчера сидел пробовал разного варианты и нашел выход.
Как указал Dima S, нужно было использовать WAIT чтобы сделать паузу.
Цель была сделать код, который будет выполнятся автоматически и поэтапно, с указанным мною интервалом времени. Что то вроде поэтапного решения задачи, по пунктно. a+b=c. Просмотрел значение, далее с+d=f. Просмотрел результаты и т.д.
Спасибо за помощь Всем!
Как указал Dima S, нужно было использовать WAIT чтобы сделать паузу.
Цель была сделать код, который будет выполнятся автоматически и поэтапно, с указанным мною интервалом времени. Что то вроде поэтапного решения задачи, по пунктно. a+b=c. Просмотрел значение, далее с+d=f. Просмотрел результаты и т.д.
Код |
---|
Sub PtimerSchet() Dim mA() mA = Лист5.Range("A2:B51").Value For i = 1 To 52 If mA(i, 1) = pNum Then pTime = TimeValue("0:00:0" & mA(i, 2)) DoEvents Application.Wait Now + pTime ' ЗАМЕНИЛ НА WAIT И ДОСТИГ НУЖНОГО МНЕ РЕЗУЛЬТАТА Exit For End If Next i End Sub |