Excel

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

[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