VBA ハイパーリンク付き目次シートの作成

ハイパーリンク付き目次シートの作成

Sub test()
 

' ハイパーリンク付き目次シートを作成する

    call test0  '　シート名を一括取得

  Dim i As Integer
  Dim MaxRow As Integer
  Dim HLink  As Hyperlink

  '最終行を取得
  MaxRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

  '1行目から最終行まで繰り返し
  For i = 1 To MaxRow

    'A列にハイパーリンクの設定
    Set HLink = ActiveSheet.Hyperlinks.Add(Anchor:=Cells(i, "A"), _
            Address:="", SubAddress:="'" & Cells(i, "A") & "'!A1")
  Next i

End Sub

' -------------------------------------------------------------------------------------------------

Sub test0()

'　シート名を一括取得

    Dim i As Integer
    For i = 1 To Worksheets.Count

'　　　シート名をセルB列に代入
        Cells(i, 1).Value = Sheets(i).Name
    Next
End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

関連記事

『VBA シート名一括取得・変更』

『VBA シート追加・削除』

『VBA シート移動・コピー』

『VBA セル値によって色を付ける』