Excel2000 VBA ハイパーリンク付シート名一覧を表示する

Excel2000 VBA　ハイパーリンク付シート名一覧を表示する

シート名一覧のシート名を押すとシート名のシートに移動する

「シート名一覧 ハイパーリンク VBA」 で検索し、いろいろ参考にして継ぎはぎで作ったので、エラーがでる出る可能性あり

一番参考になったサイト

http://www.officelabo.net/vba/vba9.html

 

Sub シート名一覧ハイパーリンク付()
Dim W_sheet As Worksheet
For Each W_sheet In Worksheets
  ActiveSheet.Hyperlinks.Add Anchor:=Range("A1").Offset(i, 0), Address:="", SubAddress:=W_sheet.name & "!A1", TextToDisplay:=W_sheet.name
    i = i + 1
Next W_sheet
End Sub

再生できない場合、ダウンロードは🎥こちら

追記　2011/04/15  [Dim i As Integer] [i=0] 追加

Sub シート名一覧ハイパーリンク付()
Dim W_sheet As Worksheet
Dim i As Integer
i = 1
For Each W_sheet In Worksheets
  ActiveSheet.Hyperlinks.Add Anchor:=Range("A1").Offset(i, 0), Address:="", SubAddress:=W_sheet.Name & "!A1", TextToDisplay:=W_sheet.Name
    i = i + 1
Next W_sheet
End Sub

 

備考（正しいか自信なし）

1. SubAddress:=W_sheet.name & "!A1"　→sheet名!A1 シート名のA1セルにリンク

2. Dim XXXX As Worksheet →

検索して、記事を読んでいたら、質問の解答欄に

「全般にこの程度の質問を回答後にやっているようでは、関数を使う課題の質問をしても、理解できないことになります。回答するほうもやり切れません。
改めてエクセルを（浅くても）「全般的に」勉強し、その後に質問する必要があります」

と、答えた人がいたが、答える前に質問者がどの位のレベルか推測して分かりやすく答える必要があるんのでは、と思った