Excel - notfound404 @ ウィキ

[Excel][VBA]全シートのリンクを作りたい

シート名が大量にあって、目次を作るとかでシート名を取得すると同時にリンクを貼りたい場合。

Public Function GetHyperLinkString()
    Dim i As Integer
    
    For i = 1 To Worksheets.Count
        ' =HYPERLINK("#'シート名'!A1","シート名") ← こういう形の文字列を取得
        Debug.Print "=HYPERLINK(" & Chr(34) & "#'" & Worksheets(i).Name & "'!A1"; Chr(34) & "," & Chr(34) & Worksheets(i).Name & Chr(34) & ")"
    Next i
    
    ' イミディエイトウィンドウに出たテキストをエクセルのセルにコピればOK
End Function