excelでシートの目次を作成しそこにリンクを貼ってジャンプさせたい

Question

お世話になっております。

今現在
excelでシートの目次を作成しそこにリンクを貼ってジャンプさせたいと思っております。

http://office-qa.com/Excel/ex273.htm
でexcelのシートの一覧の作成方法は分かり

https://www.becoolusers.com/excel/worksheet-copy-another-book.html
でシートの移動方法はわかったのですが

上部URLの
方法1：名前の定義を使う
で移動するのは手動でやらないと出来ないのでしょうか？

複数あるため自動化出来る手段がございましたらご教授頂けますようお願い申し上げます。

お忙しい所大変申し訳無いのですが上記お問い合わせいたします。

Answer 1

シート間のハイパーリンクで名前の定義は必要ないですし、2つ目のリンク先の情報はハイパーリンクとは関係ない情報です。
仮にVBAで作るならこんな感じでできます。

Sub MakeMokuji
	Dim aws As Worksheet
	Dim ws As Worksheet
	Dim r As Long
	Set aws = ActiveSheet
	r = 1
	For Each ws In Worksheets
		aws.Hyperlinks.Add Anchor:=Cells(r, 1), Address:="", SubAddress:=ws.Name & "!A1", TextToDisplay:=ws.Name
		r = r + 1
	Next
End Sub

これは実行したシートのA列に全シートのハイパーリンクを作成します。

Comments

[moitaro]

ttyp03様
VBAは初心者のため　上記コードを実行させるやり方はまだ分かりませんが
コメントありがとうございました。

[ttyp03]

それは失礼しました。
moitaroさんはExcel関連の質問を多くされていたと記憶していたので、VBA習得済みかと勘違いしていました。
折角なのでこれを機会に実行してみてください。
やり方は、
1. Alt+F11でVBEを開く。
2. 左にあるプロジェクトウィンドウで目次を作りたいシートを探してダブルクリック。
3. 右側のカーソルが点滅しているところに、コードを貼り付け。
4. F5で実行。

お試しください。

[moitaro]

出来ましたっ

Excelは専門外なので質問をいっぱいしているだけで
使い慣れていないためお手数おかけしました。

ありがとうございましたm(_ _)m

[ttyp03]

少しステップアップできましたね。

[moitaro]

はい　頑張りますっ＼(^o^)／
ありがとうございましたっ