如何跟隨超鏈接到Excel中的隱藏工作表？

例如，我有一個包含多個工作表的工作簿，第一個主工作表具有指向其他工作表的超鏈接，現在，我隱藏了除第一個工作表以外的所有工作表。 在這種情況下，鏈接到隱藏工作表的超鏈接不可用。 但是，如何使這些超鏈接成功工作？ 當您單擊一個超鏈接時，鏈接的隱藏工作表將立即打開，如以下屏幕截圖所示：

按照超鏈接打開帶有VBA代碼的隱藏工作表

按照超鏈接打開隱藏的工作表，然后使用VBA代碼再次將其隱藏

按照超鏈接打開帶有VBA代碼的隱藏工作表

下面的VBA代碼可以幫助您在單擊隱藏的工作表的相對超鏈接時打開它，請按以下步驟操作：

1。 右鍵單擊要跟隨超鏈接到隱藏工作表的工作表選項卡，然后選擇 查看代碼 從上下文菜單中，彈出 Microsoft Visual Basic應用程序 窗口，請將以下代碼復制并粘貼到空白模塊中：

VBA代碼：按照超鏈接打開隱藏的工作表：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Updateby ExtendofficeApplication.ScreenUpdating = FalseOn Error Resume NextIf Target.Column = 1 ThenSheets(Target.Value).Visible = xlSheetVisibleSheets(Target.Value).SelectEnd IfApplication.ScreenUpdating = TrueEnd SubCopy

備注：在上面的代碼中，數字 1 摘要可點擊此連結 如果Target.Column = 1然后 腳本指示包含超鏈接的列號，請根據需要進行更改。

2。 然后保存并關閉此代碼窗口，現在，單擊鏈接到特定隱藏工作表的超鏈接時，隱藏工作表將立即打開。

按照超鏈接打開隱藏的工作表，然后使用VBA代碼再次將其隱藏

有時，您需要遵循超鏈接來打開隱藏的工作表，而當您返回主工作表時，您希望再次隱藏已打開的工作表。 下面的VBA代碼可以幫您一個忙：

1。 右鍵單擊要跟隨超鏈接到隱藏工作表的工作表選項卡，然后選擇 查看代碼 從上下文菜單中，彈出 Microsoft Visual Basic應用程序 窗口，請將以下代碼復制并粘貼到空白模塊中：

VBA代碼：當再次返回將其隱藏時，請按照超鏈接打開隱藏的工作表：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)Updateby ExtendofficeApplication.ScreenUpdating = FalseDim strlinkSheet As StringIf InStr(Target.Parent, "!") > 0 ThenstrlinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)ElsestrlinkSheet = Target.ParentEnd IfSheets(strlinkSheet).Visible = TrueSheets(strlinkSheet).SelectApplication.ScreenUpdating = TrueEnd SubPrivate Sub Worksheet_Activate()On Error Resume NextSheets(ActiveCell.Value2).Visible = FalseEnd SubCopy

2。 然后保存廣告代碼窗口，當您單擊超鏈接時，鏈接的隱藏工作表將立即打開，但是，如果您返回包含超鏈接的主工作表，則打開的工作表將再次被自動隱藏。

備注：這些代碼僅應用于與您的超鏈接文本匹配的工作表名稱。

演示：按照超鏈接打開帶有VBA代碼的隱藏工作表

Kutools for Excel：具有300多個方便的Excel加載項，可以在內，沒有任何限制。 立即下載并！

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel