Здравствуйте!
Есть лист рабочей книги, в который с задаваемой вручную периодичностью сторонним приложением вносятся данные, около 150 шт. Интервал обновления данных от 1 до 20 сек (на выбор пользователя).
Кто подскажет как лучше макросом реализовать динамическое временное окно для усреднения 2 шт данных за, опять таки задаваемый пользователем, интервал: минимум – 1 минута, максимум - 1 час. ,
Пробовал использовать:
Private Sub Worksheet_Change(ByVal Target As Range)
Set rgR1 = Workbooks("Книга1.xls").Worksheets("Лист1").Range("D147") 'контролируемая на изменения ячейка
Set rgR2 = Workbooks("Книга.xls").Worksheets("Лист1").Range("G148") 'контролируемая на изменения другая ячейка

If Not (Application.Intersect(Target, rgR1) Is Nothing) Or Not (Application.Intersect(Target, rgR2) Is Nothing) Then
If Application.WorksheetFunction.CountA(rgR1) > 0 Or Application.WorksheetFunction.CountA(rgR2) > 0 Then

…выполняется код по сохранению массива данных обеих ячеек с привязкой к количеству вносимых сторонним приложением изменений и усредняются эти данные за определенный пользователем интервал( от 1 мин до 1 часа). Данные этих двух ячеек хранятся в одномерном массиве Массив(номер_изменения).

Но данные на Лист1 вносятся сторонним приложением последовательно, соответственно событие генерируется дважды, что не есть для меня хорошо. Может есть идеи у кого-то с привязкой вносимых данных к системному времени машины?