帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2019-7-16 15:30 | 只看該作者

[發問] 使用事件程序開啟超連結(隱藏/顯示工作表)

各位前輩好，
試寫附件，想做到的效果如下
工作表1(永遠顯示)，裡面有工作表2!A1與工作表3!A1的超連結，點選超連結會到連到對應工作表的A1，
工作表2 & 3(隱藏，僅在點選工作表1後顯示)

工作表1使用事件程序
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
達成點選超連結其對應的工作表變為顯示

工作表2 & 3使用事件程序
Private Sub Worksheet_Deactivate()
達成離開工作表即隱藏此工作表

遇到的問題如下
1.第一次點選工作表1的超連結，對應的工作表變為顯示但不會連到對應工作表的A1，要點第二次工作表1的超連結才會連到對應工作表的A1，能否達成僅點一次即完成顯示對應工作表&連到A1?
2.工作表2 & 3的coding，能否不指定名稱即判斷此工作表需隱藏?

謝謝

超連結.rar (14.48 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2019-7-17 16:36 | 只看該作者

ThisWorkbook.Worksheets("工作表2").Visible = False
在工作表事件區, 可以這樣寫
Me.Visible = False
================================
另外, 將"工作表2"及"工作表3"的自動隱藏程式碼刪除, 並將其設為可見,
將工作表1的超連結事件改為如下:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheet_Name = ActiveCell.Value
MsgBox Sheet_Name
End Sub

執行"超連結", 會發現Sheet_Name是"工作表1", 而不是其它,
表示這個ActiveCell, 是被連結工作表儲存格的內容, 而不是工作表1的a1內容~~
==================================
將工作表2的A1內容, 改成"工作表15", 再用你原來檔案的程式碼試試,
點第一次超連結, 工作表2顯示為可見, 但畫面還是留在工作表1,
再點一次超連結, 會跑到工作表2, 但程式碼會跳出錯誤, 因為"工作表15"並不存在~

=======================

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

3^#

發表於 2019-7-17 16:41 | 只看該作者

再者, 雖然工作2有
Private Sub Worksheet_Deactivate()
Me.Visible = False
End Sub

直接選取其它工作表, 工作表2會自動隱藏沒問題,
但若點A1超連結, 會跑到工作表1, 工作表2仍然是顯示的

================================

TOP

chiata

中學生 Rank: 2

帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

4^#

發表於 2019-7-18 14:43 | 只看該作者

回復 3# 准提部林
感謝回覆，獲益良多，修改了一下程式如附件

超連結.rar (14.65 KB)

現在遇到的問題是若工作表2 and 3為隱藏，第一次點選工作表1的連結會使工作表2 or 3變為顯示，但activesheet還是工作表1，第二次點工作表1的連結activesheet就會變為工作表2 or 3。

想要達成的效果是工作表2 and 3為隱藏，點選工作表1的連結則會使工作表2 or 3變為顯示且activesheet為工作表2 or 3。

若能達成此效果，應能避免下列問題

再者, 雖然工作2有
Private Sub Worksheet_Deactivate()
Me.Visible = False
End Sub

直接選取其它工作表, 工作表2會自動隱藏沒問題,
但若點A1超連結, 會跑到工作表1, 工作表2仍然是顯示的

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

5^#

發表於 2019-7-18 19:21 | 只看該作者

回復 4# chiata

試試看:

Xl0000419.rar (11.48 KB)

TOP

chiata

中學生 Rank: 2

帖子: 41
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2012-12-20
最後登錄: 2019-12-17

6^#

發表於 2019-7-22 11:46 | 只看該作者

回復 chiata

試試看:
准提部林發表於 2019-7-18 19:21

感謝用心回覆，獲益良多，
幾個問題還想請教

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim SR
If ActiveSheet.Name <> Me.Name Then Exit Sub
With ActiveCell
If .Hyperlinks.Count = 0 Then Exit Sub
SR = Split(Replace(.Hyperlinks(1).SubAddress, "'", ""), "!")
If SR(0) = Me.Name Then Exit Sub
Sheets(SR(0)).Visible = True
Application.Goto Sheets(SR(0)).Range(SR(1))
End With
End Sub

複製代碼

ActiveCell.Hyperlinks.Count 應該是指此儲存格的超連結數量，若以儲存格來看，最多為1?
而此coding是點選超連結才會執行，故ActiveCell.Hyperlinks.Count=1?
那為何需要If .Hyperlinks.Count = 0 Then Exit Sub?

.Hyperlinks(1).SubAddress括號中的1是不是類似worksheets(1)?
若為worksheets("工作表1")，範圍中有2個超連結，該怎麼判斷Hyperlinks(1) & Hyperlinks(2)?

謝謝!

TOP