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

Sub DownSheet()
Dim i As Integer
i = Worksheets.Count
If ActiveSheet.Index < i="">
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屬性判斷活動工作表是否是工作簿中的第一張工作表。如果活動工作表不是第一張工作表則激活活動工作表的上一張工作表，否則激活最后一張工作表。