Каждые 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
