VBA シート追加・削除

シートの追加

構文

Worksheets.Add(Before, After, Count, Type)

引数なにも指定しない場合、アクティブシートの前に追加することとなります。

Sub test1()
　　Worksheets.Add
End Sub

実行前

実行後

最後尾に新しいシートを追加する

Sub test2()
　　Worksheets.Add after:=Worksheets(Worksheets.Count)
End Sub

名前をつけて最後尾にシートを追加する

Sub test3()
　　Worksheets.Add(after:=Worksheets(Worksheets.Count)) _
.Name = "報告書"

End Sub

最後尾に2枚シートを追加する

Sub test4()
　　Worksheets.Add After:=Worksheets(Worksheets.Count),Count:=2

End Sub

シートの削除

Sub test5()
Worksheets("報告書").Delete
End Sub

ワークシートを削除するとき、「このシートは完全に削除されます。続けますか？」とExcelから確認メッセージが表示されます。

警告メッセージを表示させない場合

Sub test6()

Application.DisplayAlerts = False

Worksheets("報告書").Delete

Application.DisplayAlerts = True
End Sub