Question

我想创建一个将用户带到上一个先前活动的工作表的宏。我需要这个宏来跟踪所有先前活动的工作表，它应该能够自动执行。我想将此添加到Excel加载项中，因为它需要与我公司使用的所有工作表兼容。工作表本身未启用宏，因此我无法在ThisWorkbook的模块中存储任何代码。

我已经尝试了在其他网站上找到的示例。不幸的是，所有这些都需要使用ThisWorkbook，而我将无法使用。有没有一种方法可以完全在Excel加载项中完成？

Public MyPrevSheet as String
Sub GoToPreviousSheet()
If Len(MyPrevSheet) > 0 Then
    Sheets(MyPrevSheet).Activate
    ActiveWorkbook.ActiveSheet.Previous
Else
    MsgBox "You have not switched sheets yet since opening the file!"
End If
End Sub

理想情况下，我希望MyPrevSheet自动跟踪文件中的最后一个活动工作表。

Answer 1

更新：我设法使用“应用程序事件”使其能够工作。这个想法是创建一个可以向其分配应用程序的类模块。

以下一些有用的链接对我有所帮助：http://www.cpearson.com/excel/AppEvent.aspx

https://www.jkp-ads.com/Articles/buildexceladdin05.asp

基于工作簿事件运行Excel加载宏

1 个答案: