ひとつのExcelブックにシートを追加するとき、普通は、
- 「+」ボタンでシート追加
- 右クリックで名前
としますよね?
しかし、たくさんのシートを追加するのはとても手間のかかる作業です。
そこで、一度にたくさんのシートを追加して、なおかつハイパーリンクを付けてくれるVBAプログラムを作成しました。
単純な作業は自動化しましょう。


この記事でできること
- Excelブックに複数のシートを一括追加できる。
完成形
以下が完成形です。簡単にできました。
Sub シートの一括追加()
'追加するシートの名前が書かれたリスト
Set SheetNameList = Sheets("目次").Range("$A$2:$A$5")
For Each ListRow In SheetNameList
'追加するシート名
NewSheetName = ListRow.Value
'右端にシートを追加
Set NewSheet = Sheets.Add(After:=Sheets(Sheets.Count))
'シート名をセット
NewSheet.Name = NewSheetName
'追加したシートへのハイパーリンクを「目次」シートに追加
NewSheet.Hyperlinks.Add Anchor:=ListRow, Address:="", SubAddress:=NewSheetName + "!$A$1", TextToDisplay:=NewSheetName
Next
'フォーカスを「目次」シートに戻す
Sheets("目次").Select
End Sub
参考になればうれしいです。
コメント