本文介绍了一段VBA代码，该代码用于当工作簿中的工作表被激活时，自动将名为“LIST”的指定工作表移至当前激活的工作表之前，并重新选择原先的工作表。通过禁用事件触发来避免无限递归。
//在ThisWorkbook模块中加入
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
mySh = Sh.Name
Sheets("LIST").Move Before:=Sh
Sheets(mySh).Select
Application.EnableEvents = True
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
mySh = Sh.Name
Sheets("LIST").Move Before:=Sh
Sheets(mySh).Select
Application.EnableEvents = True
End Sub
//其中LIST 为指定工作表标签名称
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
