「Tips/Excel/VBA/目次シート作成」の編集履歴（バックアップ）一覧はこちら

「Tips/Excel/VBA/目次シート作成」(2009/10/25 (日) 23:22:16) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

&topicpath(top=Top)

&update()

#ls()
----
#asciiart(){
Public Sub 目次作成()
    Const TITLE = "目次"
    Dim i As Integer
    For i = 1 To Worksheets.Count
        If Sheets(i).Name = TITLE Then
            Application.DisplayAlerts = False
            Sheets(TITLE).Delete
            Application.DisplayAlerts = True
            Exit For
        End If
    Next i
    Sheets.Add.Name = TITLE
    Sheets(TITLE).Select
    Sheets(TITLE).Move Before:=Sheets(1)

    Dim row As Integer
    row = 2
    Sheets(TITLE).Cells(row, 1) = TITLE
    Sheets(TITLE).Cells(row, 1).HorizontalAlignment = xlHAlignCenter
    row = row + 3
    For Each s In Worksheets
        If s.Name <> TITLE Then
            Sheets(TITLE).Cells(row, 1) = s.Name
            Sheets(TITLE).Hyperlinks.Add _
                    Anchor:=Sheets(TITLE).Cells(row, 1), _
                    Address:="", _
                    SubAddress:=s.Name + "!A1"
            row = row + 1
        End If
    Next
    Sheets(TITLE).Columns(1).ColumnWidth = 64
End Sub

}