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

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

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

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

　暱稱: 阿軒

中學生 Rank: 2

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

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

11^# 跳轉到 »

發表於 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

複製代碼

中學生 Rank: 2

帖子: 8
主題: 0
精華: 0
積分: 52
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2012-8-17
最後登錄: 2023-4-4

12^#

發表於 2015-3-14 18:22 | 只看該作者

想得比較簡單，使用Ctrl+F，在進階_搜尋範圍選擇活頁簿，在每一個工作表某一個位置標註索引，也可以達到需求

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。

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