Home > Microsoft > [VBA]シートの目次を作る

[VBA]シートの目次を作る

excelで沢山シートを作ると把握しきれない。
だから目次ページを作ろうぜ！という発想。

目次ページは目次の対象外として、
各シートのタブ名をリンク文字として、
各シートへのリンクを作る。

Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim text As String
  Dim rng As String

  For i = 1 To Worksheets.Count
        text = Worksheets(i).Name
        Range("B" & i + 2).Value = i
        Range("C" & i + 2).Value = text

        If Range("C" & i + 2).Value = "" Then
        Else
            Range("C" & i + 2).Hyperlinks.Add anchor:=Range("C" & i + 2), _
                    Address:="", SubAddress:="'" + text + "'!A1"
        End If
        '追加　END
  Next
End Sub

更新@2011.01.04 23:24

タグ: , ,

関連する投稿

Comments:0

Comment Form
Remember personal info

Trackbacks:0

Trackback URL for this entry
http://qooga.jb-jk.net/wp/2009/04/vba_make_sheet_toc/trackback/
Listed below are links to weblogs that reference
http://qooga.jb-jk.net/wp[VBA]シートの目次を作る from MOT：主にプログラム勉強メモ部屋

Home > Microsoft > [VBA]シートの目次を作る

Pages
Recent Entries
Categories
Archives
Search
Option
  • Twitter
  • 絵板
Feeds
commercial
Mobile
Meta
Tag Cloud
TOP10
commercial

Return to page top