ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

どのようにハイパーリンクをExcelで隠しシートに従う?

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

doc隠しシート1へのハイパーリンク

ハイパーリンクをたどってVBAコードで隠しシートを開く

ハイパーリンクをたどって隠れたシートを開き、VBAコードで再度隠す


すべてのワークシート名をリストし、各シートにリンクします。

ライブストリームイベント開始時間 Kutools for Excel's シート名のリストを作成する ユーティリティーを使用すると、必要に応じてハイパーリンクまたはマクロ・ボタンを使用して、新しいシートにすべてのワークシート名をすばやくリストすることができます。

ハイパーリンクを含むワークシート名 マクロボタンによるワークシート名
doc-list-worksheet-names2  2 doc-list-worksheet-names2  2 doc-list-worksheet-names2

ハイパーリンクをたどってVBAコードで隠しシートを開く


次のVBAコードは、相対ハイパーリンクをクリックしたときに非表示のワークシートを開くときに役立ちます。

1。 隠しシートへのハイパーリンクをたどるシートタブを右クリックし、 コードを表示 コンテキストメニューから、ポップアウトされた アプリケーション用Microsoft Visual Basic 次のコードをコピーして空白のModuleに貼り付けてください:

VBAコード:ハイパーリンクをたどって隠しシートを開く:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    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

doc隠しシート2へのハイパーリンク

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

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


ハイパーリンクをたどって隠れたシートを開き、VBAコードで再度隠す

場合によっては、隠しシートを開くためにハイパーリンクをたどる必要があり、マスターシートに戻ったときに、開いたシートを再び隠す必要があります。 以下のVBAコードはあなたに好意を与えることができます:

1。 隠しシートへのハイパーリンクをたどるシートタブを右クリックし、 コードを表示 コンテキストメニューから、ポップアウトされた アプリケーション用Microsoft Visual Basic 次のコードをコピーして空白のModuleに貼り付けてください:

VBAコード:ハイパーリンクをたどって隠れたシートを開くと、元に戻って再び隠れる:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

doc隠しシート3へのハイパーリンク

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

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


デモ:ハイパーリンクをたどってVBAコードで隠しシートを開く

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


Kutools for Excel-最高のOffice生産性向上ツールにより、生産性が80%向上

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の60日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.