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

来源:互联网 时间:2016-01-03

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

Sub DownSheet()

Dim i As Integer

i = Worksheets.Count

If ActiveSheet.Index < i Then

Worksheets(ActiveSheet.Index + 1).Activate

Else

Worksheets(1).Activate

End If

End Sub

Sub UpSheet()

Dim i As Integer

i = Worksheets.Count

If ActiveSheet.Index > 1 Then

Worksheets(ActiveSheet.Index - 1).Activate

Else

Worksheets(i).Activate

End If

End Sub

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

UpSheet过程选择上一个工作表,第13行到第16行代码根据Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表,否则激活最后一张工作表。

相关阅读:
Top