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

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

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

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

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 »

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

回復 1# chi830

可以做一個首頁，然後用超連結的方式去做，再在每個頁面也做一個可連回首頁的超連結

高中生 Rank: 3 Rank: 3

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

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

2^#

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

複製代碼

高中生 Rank: 3 Rank: 3

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

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

3^#

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

複製代碼

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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