Excel vba 根據工作表名進行跳轉

Excel 下 按快捷鍵，alt+F11 進入vba編輯界面，點擊插入，選擇模塊，輸入以下代碼

Sub 跳轉()
 
Dim sn As String
Dim x As Integer
sn = InputBox("請輸入要跳轉到的工作表的名字")
 
For i = 1 To Sheets.Count
 
If Sheets(i).Name = sn Then
 
Sheets(i).Activate
x = 1
 
End If
 
Next i
 
If x = 0 Then
 
MsgBox ("當前工作簿中沒有以" & sn & "命名的工作表")
 
End If
 
End Sub

精簡版的爲：

Sub 跳轉()
 
Sheets(InputBox("請輸入要跳轉到的工作表的名字")).Activate
 
End Sub

然後點擊保存

再回到excel 界面

點擊 功能欄裏的  視圖-->宏

找到 剛輸入代碼的 模塊名 點擊執行即可