Private Sub Workbook_Open()
Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next
End Sub
Excelのマクロ
Private Sub Workbook_Open()
Dim i
For i = 1 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("M" & i), _
Address:="", _
SubAddress:=Worksheets(i).Name & "!A1", _
TextToDisplay:=Worksheets(i).Name
Next
End Sub
Excelのマクロ
SubbAddress
の行を下記のように書き直してください。
'修正前
SubAddress:=Worksheets(i).Name & "!A1", _
'修正後
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
シート名が数式などを含む場合には、シート名をシングルクォーテーション('
)で囲まないと暗黙の型変換の前に自動計算が発生してしまい、正しくリンクが貼れないようです。
修正前のコードでは正しく動作しないシート名の例
0001-1
, 1+23
Hoge
, Fuga
, 1 2
単純な前ゼロや日本語の文字列は未確認ですが、一律でシングルクォーテーション("'")で囲って文字列として連結するのが無難でしょう。
やりたいことが正確には読み取れませんが、A1
セルにシート名が記述されている時、当該シート名にジャンプするハイパーリンクを作成したいということでしょうか? VBAは不要で通常の数式で実現できます。具体的には
=HYPERLINK("#"&ADDRESS(1,1,1,1,A1),A1)
という数式で実現できます。
ADDRESS
関数HYPERLINK
関数#
を付けるとブック内リンクとして解釈されるようです。テキストから参照先のシートにハイパーリンクをつけるのであれば、
テキストを選択し、挿入→リンク→ハイパーリンクで参照先のシートを選択すればできます。
あとは、メニューのシートと参照先のシートを分割表示すればできませんか?