Каждые 2 секунды ячейка меняет значение - VBA
Формулировка задачи:
Доброго времени суток,
помогите, пожалуйста, написать макрос:
Надо чтобы каждые 2 секунды ячейка автоматически меняла значения от 1 до 200 - по-порядку (1,2,3...200)
Решение задачи: «Каждые 2 секунды ячейка меняет значение»
textual
Листинг программы
Sub tankwar121(Optional stp As Boolean)
Static nxtTime, n&, c As Range
If stp Then
On Error Resume Next
Application.OnTime nxtTime, "tankwar121", , False
Else
If c Is Nothing Then Set c = Range("A1") 'вставьте нужный адрес
n = n + 1
c = n
If n = 200 Then n = 0
nxtTime = Now + #12:00:02 AM#
Application.OnTime nxtTime, "tankwar121"
End If
End Sub