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

office教程网 2024-12-08 01:01:05

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要：

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

利用VBA读写excel文档属性
要实现限制文件的使用次数，想来应该在某个地方存储文档已用的次数，并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话，我们就可以利用文档属性的某个位置来实现这一想法，故有了以下两种形式：一、利用自定义属性：因为我们可以自定义数字型的属性，这一点非常符合我们的需求先用一行代码ThisWorkbook

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属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表，否则激活最后一张工作表。