vba - 记住双击之前选择的单元格

Question

我有一个 Excel 工作表，单元格“P1”中有一个双击事件(运行宏)。

在双击“P1”之前，我可能已选择单元格“J30”(或任何其他单元格)我如何记住并在“P1”双击之后返回到单元格“J30”？

存储事件单元格不起作用，因为双击序列中的第一次单击选择了“P1”。

我还尝试右键单击“P1”，但它也在运行事件之前选择“P1”。

Answer 1

嗯，它比“重复线程”稍微复杂一些，因为 SelectionChange 事件是在 BeforeDoubleClick 事件之前调用的，因此前者将更新最后一个选择在新的人到达之前先到新的人。

您需要的是通过实际保存两者来“更进一步”保存选择:

• 当前选择
• 之前的选择

这样的东西应该有效

' Code module of your worksheet
Option Explicit
Private lastSelection As Range, beforeLastSelection As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ' Your Code for this event, i.e.
  If Target.Address = "$P$1" Then
    ' Some code ...
     Cancel = True
     If Not beforeLastSelection Is Nothing Then beforeLastSelection.Select
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set beforeLastSelection = lastSelection
  Set lastSelection = Target
End Sub