目次シートの作成(相互リンク?)

目次シートの作成でも紹介したが、今回は目次シートから目的シートへと移動した後に
目次へのハイパーリンクを設定してみた。
おのおののシートのA1に"目次シートへ"という感じにしてみる。

Sub 目次シート作成()'シート間の相互リンク?
Dim mysheet As Worksheet
Dim i As Integer

 For Each mysheet In Worksheets
    If mysheet.Name = "目次シート" Then
       Application.DisplayAlerts = False
          mysheet.Delete
       Application.DisplayAlerts = True
    End If
 Next
   Worksheets.Add before:=Worksheets(1)
   ActiveSheet.Name = "目次シート"

 For i = 2 To Worksheets.Count
    Cells(i - 1, 1).Value = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 1, 1), Address:="", _
      SubAddress:=Cells(i - 1, 1).Value & "!" & "A1"
 Next

 For i = 2 To Worksheets.Count
  Worksheets(i).Activate
   ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:="", _
SubAddress:="目次シート!A1", TextToDisplay:="目次シートへ"
Next
End Sub
e0080122_21431217.gif

[PR]
by slayer0210 | 2005-11-20 21:44 | マクロ


<< 横方向の表を縦方向に 1行おきに足し算 >>