【VBA】Excelのシートの一覧を作る

Tweet

Category develop 2010/07/12

大量にシートがあるExcelファイルで目次を作るときなどにどうぞ。

作り方

１、Alt+F11を押下（もしくはメニューから、ツール→マクロ→Visual Basic Editorをクリック）

２、Visual Basic Editorが起動したら、開いているExcelのThisWorkbookをダブルクリック（他のシートなどでもかまわない）

３、コードを入力する画面になったら、次のソースを貼り付け

Sub ListSheetsName()

Dim objSheet As Object
Dim intLoop As Integer

intLoop = ActiveCell.Row

For Each objSheet In ActiveWorkbook.Sheets
ActiveSheet.Hyperlinks.Add Anchor:=ActiveWorkbook.ActiveSheet.Cells(intLoop, ActiveCell.Column), Address:="", SubAddress:=objSheet.Name & "!A1", TextToDisplay:=objSheet.Name
intLoop = intLoop + 1
Next

End Sub

４、Visual Basic Editorは閉じてOK。Excelに戻る。

５、どこかのシートで、Alt+F8押下（ツール→マクロ→マクロをクリックでもよい）。

６、マクロ実行ダイアログが表示され、先ほど作成した「ThisWorkbook.ListSheetsName」が一覧にあるので、それを実行。

７、実行すると、ブック内のリンク付きでシートの一覧ができあがる。