以前活跃的细胞

Question

对于我正在编写的代码，我监视某些单元格范围的变化以运行函数和私有子程序。为此，我使用了worksheet_changesub 中的 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