新しいシートを作成するマクロ

Sheet オブジェクトに Add メソッドで、新しいシートを作成します。

新しいシートは、アクティブシートの直前に作成されます。

Sheets.Addメソッドを使って新しいシートを作成する

Sheets.Addメソッドを使って新しいシートを作成します。

Sub サンプル4005()
<pre><code>Sheets.Add</code></pre>
End Sub

Sheets.Add
’ Addメソッドの引数を省略すると、アクティブシートの直前にワークシートが作成されます。

■　マクロの実行結果
Sheet1 の前にワークシートが作成されました。

Worksheets.Add(Before, After)

Worksheets.Add(Before, After)でシートを挿入する位置を指定します。

Sub サンプル4010()
<pre><code>Sheets.Add Before:=Worksheets("Sheet2")</code></pre>
End Sub

Sheets.Add Before:=Worksheets(“Sheet2”)
’ ワークシートSheet2　の前にワークシートを作成します。

■　マクロの実行結果

Sheets.Add After:=Worksheets(“Sheet2”)
’ ワークシートSheet2　の後にワークシートを作成します。

Worksheets.Add(Before, After, Count)

Sub サンプル4015()
<pre><code>Sheets.Add after:=Worksheets("Sheet2"), Count:=2</code></pre>
End Sub

Sheets.Add after:=Worksheets(“Sheet2”), Count:=2
’ 引数 Count で追加するシートの枚数を指定します。

■　マクロの実行結果
ワークシート Sheet2 の後ろに、２枚のワークシートが作成されます。

Worksheets.Add(Before, After, Count,Type)

Sub サンプル4020()
<pre><code>Sheets.Add after:=Worksheets("Sheet2"), Count:=2, Type:=xlChart</code></pre>
End Sub

Sheets.Add after:=Worksheets(“Sheet2”), Count:=2, Type:=xlChart
’ 引数 Type で追加するシートの種類を指定します。

■　マクロの実行結果
ワークシート Sheet2 の後ろに、２枚のグラフシートが作成されます。

以上で「新しいシートを作成するマクロ」の説明を終わります。