Корректировка скрипта VBA
Формулировка задачи:
Добрый день!!!
Нашел здесь скрипт:
Я так понял здесь условие такое, что при появлении текущего значения в ячейке B1 из ячейки A1 текущее значение переносится в ячейку C1. Скрипт мне подходит, но не совсем )))
Мне необходимо , чтобы значение переносилось из ячейки А1 (значение постоянно меняется и считывается с другого устройства) в ячейку C1, но при этом через каждые, например, полчаса. При этом каждое следующее значение должно переносится в последующую ячейку: С2,С3,С4 и т.д.. Как сделать подобное?
Нашел здесь скрипт:
Я так понял здесь условие такое, что при появлении текущего значения в ячейке B1 из ячейки A1 текущее значение переносится в ячейку C1. Скрипт мне подходит, но не совсем )))
Мне необходимо , чтобы значение переносилось из ячейки А1 (значение постоянно меняется и считывается с другого устройства) в ячейку C1, но при этом через каждые, например, полчаса. При этом каждое следующее значение должно переносится в последующую ячейку: С2,С3,С4 и т.д.. Как сделать подобное?
Решение задачи: «Корректировка скрипта VBA»
textual
Листинг программы
Option Explicit
Dim CurRow As Long
Sub Start()
CurRow = 1 - задаем начальное значение ячейки
Application.OnTime Now, "MyProc" - запускаем таймер
End Sub
Sub MyProc()
ThisWorkbook.Worksheets(1).Cells(CurRow, 3) = ThisWorkbook.Worksheets(1).Cells(1, 1) - заносим значение ячейки А1 в ячейку С1
CurRow = CurRow + 1 - переход на следующую ячейку
Application.OnTime DateAdd("s", 1800, Now), "MyProc" - таймер в 1800 сек.
End Sub