まさ工房

ExcelVBAとAcessDBを利用した業務支援ツールを作成する工房です

【Excelマクロ・VBA】新規シートを追加作成(Add)するにはどうすればいいの?教えて!

       f:id:m_kbou:20190701093537p:plain

Excelシートを追加・作成する方法について説明します。引数を使用するとシートの種類・追加枚数・挿入位置も指定できます。

 

【目次】

 

構文

記述方法は、以下の通りとなります。

=======================================================================

Sheets.Add[引数 

=======================================================================

[説明]:

シートを追加作成するには、Addメソッドを記述します。[引数]にはシートの挿入位置・追加枚数・種類を指定する引数を記述します。具体的な引数については、以下表に纏めておきますので参考にして下さい。内容を纏めると、「[引数]で記述した条件で、シートを追加作成して下さい。」との意味になります。

f:id:m_kbou:20190701093602p:plain

[記述例]:

Sheets.Add
Sheets.Add After:=Worksheets(1), Count:=2
Sheets.Add Before:=Worksheets(1), Count:=2
Sheets.Add Type:=xlChart

 

使い方

使い方について、具体的に説明していきます。

通常のシート追加方法(引数省略)

通常のシートを追加する方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Sheets.Add
End Sub

-------------------------------------------------

内容は、「シートを追加作成して下さい。」との意味になります。

[実行例]:

・実行前

f:id:m_kbou:20190701094027p:plain

・実行後

※Sheet1の前にSheet4が追加されました。

f:id:m_kbou:20190701094047p:plain

通常のシートを追加する方法についての説明は以上です。

 

指定したシートの後に新規シートを指定枚数追加する方法

指定したシートの後に新規シートを指定枚数追加する方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Sheets.Add After:=Worksheets(1), Count:=2
End Sub

-------------------------------------------------

内容は、「sheet(1)の後にシートを2つ追加作成して下さい。」との意味になります。

[実行例]:

・実行前

f:id:m_kbou:20190701094027p:plain

・実行後

※Sheet1の後にSheet4とSheet5が追加されました。

f:id:m_kbou:20190701094843p:plain

指定したシートの後に新規シートを指定枚数追加する方法についての説明は以上です。

 

指定したシートの前に新規シートを指定枚数追加する方法

指定したシートの前に新規シートを指定枚数追加する方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Sheets.Add Before:=Worksheets(1), Count:=2
End Sub

-------------------------------------------------

内容は、「sheet(1)の前にシートを2つ追加作成して下さい。」との意味になります。

[実行例]:

・実行前

f:id:m_kbou:20190701094027p:plain

・実行後

※Sheet1の前にSheet4とSheet5が追加されました。

f:id:m_kbou:20190701095111p:plain

指定したシートの前に新規シートを指定枚数追加する方法についての説明は以上です。

 

新規のグラフシートを追加する方法

新規のグラフシートを追加する方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Sheets.Add Type:=xlChart
End Sub

-------------------------------------------------

内容は、「グラフシートを追加作成して下さい。」との意味になります。

[実行例]:

・実行前

f:id:m_kbou:20190701094027p:plain

・実行後

※Sheet1の前にグラフシート(Graph1)が追加されました。

f:id:m_kbou:20190701095438p:plain

新規のグラフシートを追加する方法についての説明は以上です。

  

おわりに

今回は、新規シートを追加作成する方法について説明しました。プログラミングをする上で、シートを新規追加し、データのコピー&ペーストをするケースは多々あります。内容を理解して有効に活用して下さい。