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
実行結果
-
前の記事
Linux ユーザーを使用不可(ロック)にする 2022.05.29
-
次の記事
コマンドプロンプト dirコマンドを再帰的に実行する 2022.05.29
コメントを書く