vba - 如何在 Excel VBA 中获取已更改单元格的旧值？

Question

我正在检测 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

假设这不是太糟糕的编码方式，我如何获取更改之前单元格的值？

Answer 1

试试这个

声明一个变量说

Dim oval

以及 SelectionChange 事件

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
oval = Target.Value
End Sub

以及您的 Worksheet_Change 事件集中

old_value = oval