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

Question

如何在Excel VBA中获取已更改单元格的旧值？我正在检测Excel电子表格中某些单元格值的变化，如下所示......Private Sub Worksheet_Change(ByVal Target As Range)Dim cell As RangeDim old_value As StringDim new_value As StringFor 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 IfNext cellEnd Sub假设这不是一种编码方式，那么在更改之前如何获取单元格的值？

Answer 1

试试这个

声明一个变量说

Dim oval

并在SelectionChange事件中

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

并在您的 Worksheet_Change活动集中

old_value = oval