VBA向前或向后激活工作簿表中工作表
如果需要在工作簿的工作表中进行后前翻页，可以使用前面的代码。
分子与细胞1、在工作簿的工作表中向后翻页的代码。
Sub DownSheet()
猫为什么吃老鼠
soho外贸 Dim i As Integer
i = Worksheets.Count
12英语怎么说 If ActiveSheet.Index < i Then
Worksheets(ActiveSheet.Index + 1).Activate昆仑山旅游
El
Worksheets(1).Activate
End If
三只小猪英语版简短End Sub
代码解析：
DownSheet过程向前翻页，i = Worksheets.Count代码使用Worksheets对象的Count属性取得工作表的数目，第4行到第7行代码根据Index属性判断活动工作表是否是工作簿中的最后一张工作表。如果活动工作表不是最后一张工作表则激活活动工作表的前一张工作表，否则激活第一张工作表。
2、在工作簿的工作表中向前翻页的代码。
Sub UpSheet()
邮票价格行情
Dim i As Integer
i = Worksheets.Count
If ActiveSheet.Index > 1 Then
Worksheets(ActiveSheet.Index - 1).Activate
El
Worksheets(i).Activate
照明电路
End If
End Sub
代码解析：
UpSheet过程向后翻页，代码根据ActiveSheet.Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的后一张工作表，否则激活最后一张工作表。
