chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 220
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-3-3 11:51 | 只看該作者

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

請教先進~
因excel含超過50個Sheet頁面，若想快速切換到某Sheet頁，是否有內建功能或另有方式可達成呢??

每個Sheet頁都有命名，有類似Ctrl+F，輸入關鍵字就能到達該頁的功能嗎?

以上~感謝賜教!!

樓主熱帖

budinlong

中學生 Rank: 2

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

12^#

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

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

TOP

owen06

　暱稱: 阿軒

中學生 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

複製代碼

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

10^#

發表於 2015-3-3 21:24 | 只看該作者

使用VBA 建議用這則
http://forum.twbts.com/viewthrea ... ighlight=%B3s%B5%B2

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

9^#

發表於 2015-3-3 21:06 | 只看該作者

本帖最後由 HUNGCHILIN 於 2015-3-3 21:39 編輯

使用EXCEL 內建功能

1.在這裡按右鍵

2.SHEET數量多時會有啟動視窗

點選後即會切換到該SHEET上

用這行程式也可以
Sub 到sheet()
CommandBars("Workbook Tabs").ShowPopup
End Sub

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

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

回復 5# yianhung

再加上下面這個代碼，只要點選工作表列就是啟動回到首首，這個代碼是放在ThisWorkBook上,
而上面那2個代碼則是放在"首頁"工作表上的

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "首頁" Then End
Sheets("首頁").Select
End Sub

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-3-3 17:51 | 只看該作者

回復 5# yianhung

利用owen06大大的程序我做了一些改變，因此要owen06大大程序
.

Private Sub Worksheet_Activate()
For Each sht In Sheets
If sht.Name <> "首頁" Then
ro = ro + 1
Sheets("首頁").Cells(ro, "A") = sht.Name
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Cells(Target.Row, "A").Address Then
Ans = Cells(Target.Row, "A")
For Each Sh In Sheets
If Sh.Name Like "*" & Ans & "*" Then Sh.Select
Next
End If
End Sub

複製代碼

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

6^#

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

回復 5# yianhung

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

TOP

yianhung

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: WIN7
軟體版本: excel 2007
閱讀權限: 10
註冊時間: 2015-3-3
最後登錄: 2015-3-3

5^#

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

試過了owen06大大的建議挺快的，sheet如果是sheet1,sheet2....好想無法跳轉，請指教~~

TOP

chi830

中學生 Rank: 2

帖子: 105
主題: 27
精華: 0
積分: 168
點名: 220
作業系統: Win10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2011-6-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

4^#

發表於 2015-3-3 13:09 | 只看該作者

謝謝大家的回覆，owen06先進提供的方法，正是我所需的~謝謝喔^^

TOP