Excel中利用VBA選擇上一個或下一個工作表

如果需要用VBA代碼在Excel工作簿中選擇下一個或上一個工作表，可以使用下面的代碼。

Sub DownSheet()Dim i As Integeri = Worksheets.CountIf ActiveSheet.Index < i ThenWorksheets(ActiveSheet.Index + 1).ActivateElseWorksheets(1).ActivateEnd IfEnd SubSub UpSheet()Dim i As Integeri = Worksheets.CountIf ActiveSheet.Index > 1 ThenWorksheets(ActiveSheet.Index – 1).ActivateElseWorksheets(i).ActivateEnd IfEnd Sub

說明：DownSheet過程選擇下一個工作表，第3、12行代碼使用Worksheets對象的Count屬性取得工作表的數(shù)目，第4行到第7行代碼根據(jù)Index屬性判斷活動工作表是否是工作簿中的最后一張工作表。如果活動工作表不是最后一張工作表則激活活動工作表的下一張工作表，否則激活第一張工作表。UpSheet過程選擇上一個工作表，第13行到第16行代碼根據(jù)Index屬性判斷活動工作表是否是工作簿中的第一張工作表。如果活動工作表不是第一張工作表則激活活動工作表的上一張工作表，否則激活最后一張工作表。