Excel中利用VBA选择上一个或下一个工作表

Excel中利用VBA选择上一个或下一个工作表

如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表，可以使用下面的代码。

Sub DownSheet()Dim i As Integeri = Worksheets.CountIf ActiveSheet.Index < i ThenWorksheets(ActiveSheet.Index + 1).ActivateElseWorksheets(1).ActivateEnd IfEnd SubSub UpSheet()Dim i As Integeri = Worksheets.CountIf ActiveSheet.Index > 1 ThenWorksheets(ActiveSheet.Index – 1).ActivateElseWorksheets(i).ActivateEnd IfEnd Sub

说明：DownSheet过程选择下一个工作表，第3、12行代码使用Worksheets对象的Count属性取得工作表的数目，第4行到第7行代码根据Index属性判断活动工作表是否是工作簿中的最后一张工作表。如果活动工作表不是最后一张工作表则激活活动工作表的下一张工作表，否则激活第一张工作表。UpSheet过程选择上一个工作表，第13行到第16行代码根据Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表，否则激活最后一张工作表。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。