excel vba实现返回上一个工作表页

Question

功能类似浏览器的“后退”，或者是文件夹的“返回”。
就是无论现在活动的工作表是什么，可以回到上一个活动的工作表
不知道可否通过VBA来实现这一功能~

Answer 1

可以的。

1、设置一个公共变量，以存储当前工作表名称public Shname as string这样子

2、利用Workbook_Open+Workbook_SheetDeactivate事件对Shname进行写入操作，将工作表名称写入Snname

3、返回按钮，只需要

workSheets(snname).select

就行了。

代码及结构设计详见附件！

Answer 2

什么都不用做，excel本身就有这个功能。
在文件那个命令里。最下边1.。。。。。。这个是你最新打开的那个文件，2。。。。。是你上一个打开的文件，3.。。。4.。。。以此类推。

追问

你说的那个指的是工作簿，而不是工作表，谢谢！

Answer 3

sub 返回原有工作表()
With Sheets(ActiveSheet.Name) '用
“.”代替当前工作表

''''''''''''若名称为“temp”的工作表不存在则新建一个
On Error Resume Next '忽略下方的陷阱错误
With Sheets("temp")
If Err.Number <> 0 Then '指定的工作表不存在
Sheets.Add.Name = "temp"
'添加的新表自动激活为当前表
Err.Clear
End If
End With
'''''''''''''''''''''''''''''''''''''''''''''''''''
.Select ''''''激活返回“.”原有工作表进行操作
MsgBox "已经返回原有工作表"
End With
End Sub
'试试看