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