如何跳转至上一张激活过的工作表？

作者：绿色风分类：时间：2022-08-17 浏览：150

楼主
wjc2090742

Q：如何跳转至上一张激活过的工作表？比如，如附件中情况，选择了工作表”一“之后，又选择了“十”工作表，此时运行程序，跳转至工作表“一”，如何实现？
A：可以利用workbook的SheetDeactivate事件，当ActiveSheet发生变化时，改写变量值。变量可以是工作表名、序号或工作表对象等。该方法可以实现一次跳转。
workbook中代码

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

Public str$
Sub 跳转前一张操作过的工作表() '模块中代码
If Len(str) = 0 Then
MsgBox "不存在前一张激活的工作表": Exit Sub
Else
Sheets(str).Select
End If
End Sub

该帖已经同步到 wjc2090742的微博

如何跳转一次至前一张激活过的工作表？.rar

2楼
JOYARK1958

謝謝提供學習下載中

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表