excel - 以前活跃的细胞

Question

对于我正在编写的代码，我监视某些单元格范围的变化以运行函数和私有(private)子程序。为此，我在 worksheet_change 子项中使用 Intersect 函数。

但是，相交“测试”的触发因素始终是我“移出”正在测试的单元格，无论是通过鼠标单击进入不同的单元格还是通过光标移动。

我需要的是一种定义变量的方法，其中包含我之前选择的单元格的.address。

我尝试了下面的代码，但得到的只是错误。

有人知道如何做到这一点吗？

Public xfrLastCell As String
Public xfrActiveCell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If xfrActiveCell = "" Then xfrActiveCell = ActiveCell.Address
xfrLastCell = xfrActiveCell
xfrActiveCell = ActiveCell
MsgBox xfrLastCell

End Sub

Answer 1

下面的代码对我有用 - 您对 activecell 的分配缺少地址，这意味着 activecell 变量始终为空

Option Explicit

Public xfrLastCell As String
Public xfrActiveCell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If xfrActiveCell = "" Then xfrActiveCell = ActiveCell.Address
xfrLastCell = xfrActiveCell
xfrActiveCell = ActiveCell.Address
MsgBox xfrLastCell

End Sub