Сравнение двух диапазонов на предмет изменений

[strannick]

Добрый вечер, уважаемые форумчане!
При обработке файла раз в 20 минут необходимо отслеживать изменения, внесенные на рабочем листе за эти 20 минут. Грубо говоря, образ определенного диапазона листа после обработки сравнить с образом, созданным при предыдущей обработке, и если изменения были внесен - запустить процедуру. Ну и сохранить новый образ для сравнения после следующей обработки. Так понимаю, образ можно скопировать на отдельный лист, провести сравнение нужных диапазонов, ну и т.д. Вопрос такой, каким методом реализовать сравнение? Диапазон в принципе не большой А5:Z500.
Заранее спасибо!

[Step_UA]

Доброго.
Если без отслеживания изменения форматов, шрифтов и т.д. и блокирована реакция на события то можно через массивы

Dim old()
Function Verify()
 Dim Curr(), i As Integer, j As Integer
 Curr = Cells(5, 1).Resize(495, 26).Value
 On Error GoTo Ex
 For i = 1 To 495
   For j = 1 To 26
     If old(i, j) <> Curr(i, j) Then
        ' выполняем необходимые действия
        GoTo Ex
       End If
    Next
  Next
Ex:
 old = Curr
 Application.OnTime Time + #12:20:00 AM#, "Verify"
End Function

[strannick]

Сообщение от Step_UA

Если без отслеживания изменения форматов, шрифтов и т.д. и блокирована реакция на события то можно через массивы

Совершенно верно. Работает. Последнюю строку отключил, запуск идет по отдельному таймеру. Быстро работает! Спасибо!!!