Я обнаруживаю изменения в значениях определенных ячеек в электронной таблице Excel, как это...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim old_value As String
Dim new_value As String
For Each cell In Target
If Not (Intersect(cell, Range("cell_of_interest")) Is Nothing) Then
new_value = cell.Value
old_value = ' what here?
Call DoFoo (old_value, new_value)
End If
Next cell
End Sub
Предполагая, что это не так уж плохо, способ кодирования этого, как мне получить значение ячейки перед изменением?