Каждые 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы