excel - 获取最后一个停用的工作表

Question

Private Sub Worksheet_Deactivate()
Msgbox(worksheet.Name)
End Sub

按下除感兴趣的工作表以外的任何工作表后，如何获得最后一个停用的工作表。

Answer 1

您首先创建一个 Public ThisWorkbook 上的变量代码模块(在声明区):

Public lastSheetName As String

将下一个代码放入 Workbook_SheetDeactivate事件(也在 ThisWorkbook 代码模块中):

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
   lastSheetName = Sh.name
End Sub

然后你可以用一个简单的 Sub 返回最后一个停用的工作表的名称。或在另一个事件代码中。尝试将下一个代码粘贴到标准模块中并运行它。当然，在您停用至少一张纸之后...

Sub LastDeactivatedSheet()
   MsgBox ThisWorkbook.lastSheetName
End Sub

3.a 或将相同的代码放入 Workbook_SheetActivate事件，以这种方式:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   MsgBox "You are coming from " & ThisWorkbook.lastSheetName
End Sub

每次您激活另一张表时，它都会告诉您您来自哪张表...