快速切換到某Sheet頁面 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 快速切換到某Sheet頁面

返回列表下一主題上一主題發帖

[發問] 快速切換到某Sheet頁面

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-3-3 12:54 | 顯示全部帖子

本帖最後由 owen06 於 2015-3-3 12:56 編輯

回復 1# chi830

在vba裡插入新模組，貼上下列內容

Sub test()
Dim MyBook As Workbook, sh As Worksheet
Set MyBook = ThisWorkbook
Ans = Application.InputBox("請輸入工作表名稱", "快速切換", "")
For Each sh In MyBook.Sheets
If sh.Name Like "*" & Ans & "*" Then sh.Select
Next
End Sub

複製代碼

然後再進去『巨集』裡的『選項』，把該巨集設定你自己想要的快速鍵，這樣就可以達成你想要的方式了。

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-3-3 16:22 | 顯示全部帖子

回復 5# yianhung

剛測試了一下這個方法似乎是不夠周全，我再研究一下看看。

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2015-3-3 22:41 | 顯示全部帖子

回復 5# yianhung

這樣子應該是可以了

Sub test()
Dim MyBook As Workbook, sh As Worksheet
Set MyBook = ThisWorkbook
Ans = Application.InputBox("請輸入工作表名稱", "快速切換", "")
For Each sh In MyBook.Sheets
If sh.Name Like "*" & Ans & "*" Then
sh.Select
Ans2 = MsgBox("這是你要的工作表嗎？", vbYesNo)
If Ans2 = 6 Then Exit Sub
End If
Next
End Sub

複製代碼

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

返回列表下一主題上一主題