【ExcelVBA】新しいシートを追加するサンプルコード【コピペでOK】

多くのExcel作業を自動化できるExcelVBAですが、基本的な作業は簡単にコピペで実現できるといいですよね。

そこで、この記事ではExcelVBAでの「新しいシートの作成」コードをコピペできるように紹介します。

　

この記事に掲載しているサンプルコードは、そのままコピペすることで利用可能です。

ご参考までに、それではどうぞ。

　

新しいシートを作成する

ExcelVBAでのシート作成では、シートがどの位置に作成するかを指定できます。

指定は必須ではなく、指定なしでも作成は可能です。

それぞれのコードと実行イメージを紹介します。

位置を指定しないでシート作成

'新しいシートを作成する（アクティブになっているシートの左側に作成）
Worksheets.Add
 

▼実行前

▼実行後

　

「Worksheets.Add」を位置を指定せずに実行すると、画像のようにアクティブシートの左側に新しいシート（「Sheet〇〇」）が作成されます。

「Before」で位置を指定してシート作成

'「既存のシート」を「existSh」として定義
Dim existSh As Worksheet
Set existSh = ThisWorkbook.Worksheets("既存のシート")
'「existSh」の前（左側）に新しいシートを作成する
Worksheets.Add Before:=existSh

▼実行前

▼実行後

「Worksheets.Add」をBeforeで位置を指定して実行すると、画像のように「Before」で指定した「既存のシート」の前（左側）に新しいシート（「Sheet〇〇」）が作成されます。

「After」で位置を指定してシート作成

'「既存のシート」を「existSh」として定義
Dim existSh As Worksheet
Set existSh = ThisWorkbook.Worksheets("既存のシート")
'「existSh」の後ろ（右側）に新しいシートを作成する
Worksheets.Add After:=existSh

▼実行前

▼実行後

　

「Worksheets.Add」をAfterで位置を指定して実行すると、画像のように「After」で指定した「既存のシート」の後ろ（右側）に新しいシート（「Sheet〇〇」）が作成されます。

スポンサードリンク

作成したシートに名前をつける

新しくシートを作成した場合、作成したシートに名前をつけたいことも多いと思います。

作成したワークシートを取得すればいいのですが、これには3つの方法がありますので、順番に紹介します。

Addメソッド直後のアクティブ状態を利用して名前を変更する

Worksheets.Add
'Addメソッドは作成したワークシートをアクティブにするため「Activesheet」で取得
Dim newSh As Worksheet
Set newSh = ActiveSheet
newSh.Name = "新しいシート"

▼実行前

▼実行後

Addメソッドには、実行後に新しく作成されたワークシートをアクティブにする性質があります。

この性質を利用して、Addメソッド直後の「ActiveSheet」で新しく作成したワークシートを取得することができます。

ここでは、変数「newSh」に新しく作成されたワークシートを定義して、画像のように名前を変更しています。

Addメソッドの返り値を利用して名前を変更する

'変数「newSh」に新しく作成されるワークシートを定義
Dim newSh As Worksheet
Set newSh = Worksheets.Add
'変数「newSh」でワークシートを取得
newSh.Name = "新しいシート"

▼実行前

▼実行後

Addメソッドは、返り値としてワークシートオブジェクトを返します。

この返り値を変数「newSh」に定義し、画像のように新しく作成したワークシートの名前を変更しています。

Addメソッド実行時に名前を変更する

'Addメソッド実行と同時に名前を変更する
Worksheets.Add.Name = "新しいシート"

▼実行前

▼実行後

　

Addメソッドは、返り値としてワークシートオブジェクトを返すので、ワークシートオブジェクト同様に「Name」メソッドを使うことができます。

Addメソッド実行時に直接「Name」メソッドを使うことで、画像のように新しく作成したワークシートの名前を変更しています。

以上、コピペでできるExcelVBAでの新しいワークシート作成方法の紹介でした。

あわせて紹介した名前変更についてもコピペでできますので、試してみてください。