VBA シートを追加する

VBA シートを追加する

VBAで、シートを追加するコードを記述してます。

環境

  • OS windows10 64bit

シートを追加

シートを追加するには、「Add」を使用します。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Worksheets.Add
    
End Sub

実行してみます。

アクティブなシートの前に追加されていることが確認できます。

後ろに追加

後ろに追加したい場合は、「After:=」を使用します。

Private Sub CommandButton1_Click()

    Worksheets.Add After:=ActiveSheet
    
End Sub

実行結果

シート名を設定

シート名を設定して追加したい場合は、以下のコードで可能です。

Private Sub CommandButton1_Click()

    Dim w As Worksheet
    
    Set w = Worksheets.Add(After:=ActiveSheet)
    
    w.Name = "newSheet"

End Sub

実行結果