Excel VBA シート名の記録とブック内HyperLink

エクセルで、シートを大量に作った場合、シート名を簡単に取り出すVBAです。

いくつも、シートを即効取り出すVBAです。

手順

• ALT　+　F11　：　VBA　の編集画面を開きます。
• 挿入（I）　→　標準モジュール　を開きます。
• 下のコードをコピーして貼り付けます。

Sub SheetName()
Dim i As Long
    Cells(1 , 1) = "シート名"
    For i = 1 To Worksheets.Count
        Cells(i + 1, 1) = Worksheets(i).Name
    Next i
End Sub

エクセルの表示タブの右側にあるマクロをクリックし、SheetName　を実行すると、シート名が取り出せます。

リンク先の設定

リンクの数式は
=HYPERLINK(“#”&A2&”!A1″,A2)

=HYPERLINK(“#タイムカード!A1”,”タイムカード”）

ポイントはシート名の前に　#（ハッシュ）を付けることです。