Всем привет!
Есть лог изменений, который фиксирует все изменения на листе "Tab"
Все вроде бы ничего, но:
1) Если в клетке было значение, в логе не указывается с какого на какое это значение было изменено
2) Если в клетке значение поменялось на идентичное, лог все равно фиксирует это как изменение, хотя не должен
Файл-пример прикладываю
Код:
Есть лог изменений, который фиксирует все изменения на листе "Tab"
Все вроде бы ничего, но:
1) Если в клетке было значение, в логе не указывается с какого на какое это значение было изменено
2) Если в клетке значение поменялось на идентичное, лог все равно фиксирует это как изменение, хотя не должен
Файл-пример прикладываю
Код:
| Код |
|---|
Dim PreVal
Private Sub Worksheet_Change_1(ByVal Target As Range)
PreVal = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreVal ThenSheets("Log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Application.UserName & " changed cell " & Target.Address & " from " & PreVal & " to " & Target.Value
Sheets("Log").Cells(65000, 2).End(xlUp).Offset(1, 0).Value = Now
End If
End Sub
Спасибо! |
Изменено: - 27.03.2020 11:00:39
