Проверка изменения ячейки

[boocephal]

Здравствуйте, начинаю разбираться в VBA и столкнулся с небольшой проблемой.

Есть динамически изменяемая ячейка. Требуется выполнить некое уловие если ячейка изменилась. На данный момент у меня используется таймер, который раз в секунду исполняет цикл проверки изменилась ли ячейка.

Можно ли это сделать проще?
Пока у меня так:

Sub SleepVB(Seconds)
    Dim Start
    Start = Timer
    Do While Timer < Start + Seconds
          DoEvents
    Loop
End Sub
...

Call SleepVB(1)

[Pavel55]

Другого варианта не подскажу, но скажу, что в вашем варианте надо правильно объявить переменные, а именно

Sub SleepVB(Seconds As Long)   
    Dim Start  As Date

[SAS888]

Можно использовать событие изменения значения ячейки на листе. Например, пусть контролируемая ячейка - "A1". Тогда, вставив в модуль листа книги код:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim VRange As Range
    Set VRange = Range("A1")
    If Not Intersect(Target, VRange) Is Nothing Then
        'исполняемый код в случае изменения значения ячейки
        'поместить сюда
    End If
End Sub

Вот и все.

[boocephal]

Сейчас попробую.