如何在 Excel 中创建后退按钮

Question

我需要在 excel 中创建一个后退按钮，让用户可以返回到之前查看的工作表。不确定如何在 VBA 中执行此操作，任何想法都将不胜感激。

谢谢，戴夫。

Answer 1

以下操作在 Visual Basic 编辑器 (Alt + F11) 中完成。

在任何标准模块中，在最顶部（您可能拥有的任何 Option 语句下方）放置这个....

代码：

Public strLastSheet As String

在工作表模块中，复制以下代码：

代码：

Sub GotoLastSheet()
On Error Resume Next
ThisWorkbook.Sheets(strLastSheet).Activate
End Sub

在工作簿的 ThisWorkbook 模块中输入以下代码。

代码：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
strLastSheet = Sh.Name
End Sub

在开发人员选项卡上单击插入按钮（表单控件中的空白框）。分配宏：“…GotoLastSheet”

您已完成。将按钮重命名为“返回”。希望这对您有所帮助，Ted