VBA技巧24 在工作表中上下翻页

如果需要在工作簿的工作表中进行上下翻页，可以使用下面的代码。

#001 Sub DownSheet() #002 Dim i As Integer #003 i = Worksheets.Count

#004 If ActiveSheet.Index < i Then

#005 Worksheets(ActiveSheet.Index + 1).Activate #006 Else

#007 Worksheets(1).Activate #008 End If #009 End Sub #010 Sub UpSheet() #011 Dim i As Integer #012 i = Worksheets.Count

#013 If ActiveSheet.Index > 1 Then

#014 Worksheets(ActiveSheet.Index - 1).Activate #015 Else

#016 Worksheets(i).Activate #017 End If #018 End Sub

代码解析：

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

UpSheet过程向上翻页，第13行到第16行代码根据Index属性判断活动工作表是否

是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表，否则激活最后一张工作表。