返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2019-7-17 16:41 | 顯示全部帖子
再者, 雖然工作2有
Private Sub Worksheet_Deactivate()
Me.Visible = False
End Sub

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


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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2019-7-18 19:21 | 顯示全部帖子
回復 4# chiata

試試看:
Xl0000419.rar (11.48 KB)

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題