【Excel VBA】ワークブックにシートを追加する

こんにちは、ユーキです。

今回は、ワークブックにシートを追加する方法を紹介します。

シートの追加方法

シートの追加は簡単です。

現在のワークブックにシートを追加する

ActiveWorkbookに対して、「Worksheets.Add」と書けば、OKです。これでシートを追加できます。

ActiveWorkbook.Worksheets.Add

作業中のシートの直前に新しいシートが追加されます。

ワークブックの先頭にシートを追加する

シートの追加位置を指定した場合、引数Before、引数Afterを使用します。

ワークブックの先頭に新しいシートを追加したい場合は、引数Beforeを指定します。

ActiveWorkbook.Worksheets.Add Before:=ActiveWorkbook.Worksheets(1)
'指定ワークブックは省略することもできます。
ActiveWorkbook.Worksheets.Add Before:=Worksheets(1)

指定したシートの前にシートが追加されるので、最初のシートの前＝先頭にシートが追加されます。

ワークブックの末尾にシートを追加する

ワークブックの先頭に新しいシートを追加したい場合は、引数Afterを指定します。

ActiveWorkbook.Worksheets.Add After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)
'指定ワークブックは省略することもできます。
ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)

指定したシートの後にシートが追加されるので、最後のシートの後＝末尾にシートが追加されることになります。

複数シートを追加する

複数シートを追加したい場合は、引数Countを使用します。

’追加したいシート数を指定する
ActiveWorkbook.Worksheets.Add Count:=２

追加したシートを編集する

追加したシートを編集したい場合は、Addメソッドの戻り値を使います。

Dim sh As Worksheet
’戻り値を代入
Set sh = ActiveWorkbook.Worksheets.Add
’追加したシートのA1セルに「テスト」という文字列を設定
sh.Cells(1, 1).Value = "テスト"

追加したシートの名前を変更したい場合は、Nameプロパティーを設定してください。詳しい使い方は以下の記事を参考にしてください。

ユーキブログ

【Excel VBA】シートの名前を変更する | ユーキブログ こんにちは、ユーキです。 今回は、シートの名前の変更方法を紹介します。 シートの名前を変更する シートのNameプロパティを設定することで、変更できます。 現在の選択中…

まとめ

今回は、ワークブックにシートを追加する方法を紹介しました。

少しでもお役に立てば、幸いです。