目次シートの作成

シート数が増えていくと、ブックの中から目的のシートを探すのが面倒くさくなってくる。
そんなときは、目次などを作ってハイパーリンクさせると便利だ。

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
End Sub
e0080122_13105340.gif

[PR]
by slayer0210 | 2005-11-17 13:12 | マクロ


<< TEXT関数で数値を日付に 同じ値の入力及び削除 >>