任意のシートへのハイパーリンクを一括で全シートへ挿入するマクロ - コピペでVBA(Excel)

2019/2/7 2019/2/7 コピペでVBA(Excel)

こちらの記事はエクセルVBAをあまり知らない方でも利用できる「コピペでVBA(Excel)」としてもご活用できます。詳しくはこちらをご確認ください。

「コピペでVBA(Excel)」とは？エクセルVBAの知識がない人でもコードをコピペするだけで便利な処理が使えることを目指しています。汎用性のありそうなコードを順次公開していき

2018-02-12 14:00

このマクロの解説

このコードを実行すると、アクティブなシートのA1へ遷移できるハイパーリンクを全シートの任意のセルに一括で挿入することができます。rngのB1の部分が任意のセルとなりますので、挿入したいセルを指定してください。ハイパーリンクのテキスト表示は"目次に戻る"を編集することで任意のテキストを指定できます。

このマクロのコード

Private Sub HYPERLINK1()
    Dim ACTIVE_WS As Worksheet: Set ACTIVE_WS = ActiveSheet
    Dim w As Worksheet, rng As String, txt As String
    rng = "B1" 'ハイパーリンクを挿入したいセルを指定
    txt = "目次へ戻る" 'ハイパーリンクのテキストを指定
    For Each w In Worksheets
        If w.Index <> ACTIVE_WS.Index Then
            w.Hyperlinks.Add Anchor:=w.Range(rng), Address:="", SubAddress:="'" & ACTIVE_WS.Name & "'!A1", TextToDisplay:=txt
        End If
    Next w
End Sub

※コードをコピーする時は、右上のアイコンをクリックしてください

このマクロを使う理由

多数のシートがあるエクセルファイルですと、目次となるシートを用意することがあります。その時に各シートから目次に簡単に戻るためのハイパーリンクが用意されていると便利です。とはいえ、各シートに一つずつハイパーリンクを設定することはかなり手間がかかります。このマクロならハイパーリンクのセルの場所を決めて、ハイパーリンクのテキストも決めることができます。