nick7inc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вставте эти строки в код листа (не в модуль, а именно в лист):
Код: Dim data_before As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print "In cell "; Target.Address; " was '"; data_before; _
"' and now is '"; Target.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
data_before = Target.Value
End Sub
|
Результат - вы будете видеть, что было до изменения, что стало после и адрес ячейки, в которой произошли изменения. |
Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 20:58 09-04-2008 | Исправлено: nick7inc, 21:19 09-04-2008 |
|
