VBA实战技巧：快速返回最后一次编辑的单元格

fanjy

发布于 2022-11-16 06:15:55

1K01

代码可运行

文章被收录于专栏：完美Excel完美Excel

运行总次数：1

代码可运行

在有些情况下，我们可能需要快速返回到最后一次编辑的单元格。例如，最后一次编辑的单元格是单元格K112，然而我的当前单元格在单元格C1，如何定位这个最后编辑的单元格并快速返回到该单元格呢？

可以使用Excel事件来实现。

按Alt+F11组合键，打开VBE，双击工程资源管理器窗口中的ThisWorkbook模块，在其代码模块中，输入下面的代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet
    Set ws =Worksheets("Sheet1")
   Sh.Hyperlinks.Add Anchor:=ws.Range("A2"),Address:="", SubAddress:= _
           Sh.Name & "!" & Target.Address, ScreenTip:="单击返回到最近一次编辑的单元格",TextToDisplay:="返回"
End Sub

代码假设你正在操作的工作表是Sheet1，并且将返回单元格的链接放置在单元格A2中，你可以根据实际情况修改为适合你的工作表和单元格地址。

此时，你在工作表Sheet1中进行编辑操作后，单击单元格A2中的“返回”，可以快速回到最后一次编辑操作的单元格，如下图1所示。

图1

然而，如果在工作表中有其它与Workbook_SheetChange事件相关的操作，可能不会达到我们想要的效果。例如，如果有另一个Workbook_BeforeSave事件，在每次退出工作簿时都会在指定的单元格中输入最近保存工作簿的时间，如下面的代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Range("SaveTime") = _
      "Last saved" & Format(Time, " h:mm am/pm") &", " & Round(FileLen(ActiveWorkbook.FullName) / 1000000, 1) &"Mb"
   Application.DisplayAlerts = True
End Sub

那么，当我们要回到最近我们手动编辑的单元格时，总会回到这个保存时间的单元格。

如何摆脱Excel事件操作带给我们的影响呢？可以使用Application对象的EnableEvents属性，先将其值设置为False，暂时屏蔽事件，待操作完成后再将其设置为True。代码如下：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Application.EnableEvents = False
   Range("SaveTime") = _
      "Last saved" & Format(Time, " h:mm am/pm") &", " & Round(FileLen(ActiveWorkbook.FullName) / 1000000, 1) &"Mb"
   Application.DisplayAlerts = True
    Application.EnableEvents= True
End Sub