Excelで非表示のシートへのハイパーリンクをたどる方法は？

たとえば、複数のワークシートを含むブックがあり、最初のマスターシートに他のシートへのハイパーリンクがあり、最初のシートを除くすべてのシートを非表示にしています。 この場合、非表示のシートにリンクするハイパーリンクは使用できません。 しかし、どうすればこれらのハイパーリンクを正常に機能させることができますか？ ハイパーリンクをXNUMXつクリックすると、次のスクリーンショットのように、リンクされた非表示のシートがすぐに開きます。

ハイパーリンクをたどって、VBAコードで非表示のシートを開きます

ハイパーリンクをたどって非表示のシートを開き、VBAコードで再度非表示にします

ハイパーリンクをたどって、VBAコードで非表示のシートを開きます

次のVBAコードは、相対ハイパーリンクをクリックしたときに非表示のワークシートを開くのに役立つ場合があります。次のようにしてください。

1。 非表示のシートへのハイパーリンクをたどるシートタブを右クリックし、を選択します コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けてください。

VBAコード：ハイパーリンクをたどって非表示のシートを開きます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

Note：上記のコードでは、番号 1 この内 Target.Column = 1の場合Then スクリプトは、ハイパーリンクを含む列番号を示します。必要に応じて変更してください。

2。 次に、このコードウィンドウを保存して閉じます。特定の非表示シートにリンクしているハイパーリンクをクリックすると、非表示シートがすぐに開きます。

ハイパーリンクをたどって非表示のシートを開き、VBAコードで再度非表示にします

場合によっては、ハイパーリンクをたどって非表示のシートを開く必要があり、マスターシートに戻ったときに、開いたシートを再び非表示にする必要があります。 以下のVBAコードはあなたに有利に働くことができます：

1。 非表示のシートへのハイパーリンクをたどるシートタブを右クリックし、を選択します コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けてください。

VBAコード：ハイパーリンクをたどって、戻ったときに非表示のシートを開いて、もう一度非表示にします。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

2。 次に、コードウィンドウに広告を保存します。ハイパーリンクをクリックすると、リンクされた非表示のシートがすぐに開きますが、ハイパーリンクを含むマスターシートに戻ると、開いたシートは再び自動的に非表示になります。

Note：これらのコードは、ハイパーリンクテキストに一致するシート名にのみ適用されます。

デモ：ハイパーリンクをたどって、VBAコードで非表示のシートを開きます