NEW ARTICLE
java cos値を取得する
  1. HOME
  2. vba
  3. VBA 複数のシートを追加する

VBA 複数のシートを追加する

  • 作成日 2022.05.29
  • vba
VBA 複数のシートを追加する

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

目次

環境

  • OS windows10 64bit

複数のシートを追加

複数のシートを追加するには、「Count」を使用します。

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

Private Sub CommandButton1_Click()

    Worksheets.Add Count:=3
    
End Sub

実行してみます。

3つ追加されていることが確認できます。

シート名を設定

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

Private Sub CommandButton1_Click()

    Dim w As Worksheet
    
    Set w = Worksheets.Add(Count:=3)
    
    w.Name = "newSheet1"
    
    Set w = w.Next
    
    w.Name = "newSheet2"
    
    Set w = w.Next
    
    w.Name = "newSheet3"
    
End Sub

実行結果