《VBA向前或向后激活工作簿表中工作表.docx》由会员分享,可在线阅读,更多相关《VBA向前或向后激活工作簿表中工作表.docx(2页珍藏版)》请在三一办公上搜索。
VBA向前或向后激活工作簿表中工作表VBA向前或向后激活工作簿表中工作表 如果需要在工作簿的工作表中进行后前翻页,可以使用前面的代码。 1、在工作簿的工作表中向后翻页的代码。 Sub DownSheet 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 代码解析: UpSheet过程向后翻页,代码根据ActiveSheet.Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的后一张工作表,否则激活最后一张工作表。