Close

シートを追加する

Excel VBAでシートを追加するには
WorksheetsコレクションのAddメソッドにて行います。

以下のようなブックがあるとします。
e_0038

以下のコードを実行します。

Sub Proc_シート追加()
    Worksheets.Add Worksheets(1), , 2
    Worksheets.Add , Worksheets(Worksheets.Count)
End Sub

第一引数を指定すると指定したシートの前にシートを追加します。
第二引数を指定すると指定したシートの後にシートを追加します。
第三引数を指定すると指定した数のシートを追加します。

サンプルコードでは
まず最初のシートの前に2つシートを追加しています。
次に最後のシートの後に1つシートを追加しています。

なお第一引数または第二引数のうちいずれか一つを指定することが必要です。
また第一引数と第二引数の両方を指定するとエラーになります。
第三引数を指定しない場合、追加されるシート数は1になります。

結果は以下のようになります。
e_0042

 

Share on facebook
Share on twitter
Share on linkedin