Событие SheetChange
возникает после изменения
пользователем или внешней
ссылкой содержимого ячейки на
любом рабочем листе. Следует
отметить, что событие SheetChange
не возникает на листах диаграмм.
Private Sub
Workbook_SheetChange(ByVal Sh As Object,
ByVal Source As Range)
Параметр Sh является
ссылкой на объект Worksheet,
на котором находится ячейка с
новыми данными. Аргумент Source указывает
на диапазон, ячейки которого
изменились. Данную процедуру
обработки можно использовать для
проверки условий на значение.
Private Sub
Workbook_SheetChange(ByVal Sh As Object,
ByVal Source As Range)
If
Worksheets("Data").Range("A7").Value >
5 Then
Msgbox
"Значение не должно быть
меньше 5."
Worksheets("Data").Range("A7").Activate
End If
End Sub