![如何在 Excel 中创建后退按钮](https://linux22.com/image/1441038/%E5%A6%82%E4%BD%95%E5%9C%A8%20Excel%20%E4%B8%AD%E5%88%9B%E5%BB%BA%E5%90%8E%E9%80%80%E6%8C%89%E9%92%AE.png)
我需要在 excel 中创建一个后退按钮,让用户可以返回到之前查看的工作表。不确定如何在 VBA 中执行此操作,任何想法都将不胜感激。
谢谢,戴夫。
答案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