シートの追加・削除（Add,Delete）

最終更新日：2013-05-14

シートの追加・削除（Add,Delete）

マクロでいろいろ処理する場合に、作業用のシートを追加し、

このシート上で処理した結果を、他シートに反映させる等は良く使うテクニックです。

以下、シートの新規追加です。




Sub sample1()
　　Sheets.Add
　　ActiveSheet.Name = "新規シート"
'　　・・・いろいろな処理
　　Application.DisplayAlerts = False
　　Sheets("新規シート").Delete
　　Application.DisplayAlerts = True
End Sub

先頭に新規シートが作成されます。

最後に新規作成する場合は、

Sheets.Add After:=Sheets(Sheets.Count)
となります。

ActiveSheet.Name = "新規シート"
シート名の変更です。

作業用のシートなら、特に名前の変更は必要ありません。

Application.DisplayAlerts = False

シートを削除するときに出るアラートメッセージの表示を止めています。

Sheets("新規シート").Delete

シートの削除です。

オブジェクト変数を使用すると




Sub sample2()
　　Dim NewSht As Worksheet
　　Set NewSht = Sheets.Add
　　NewSht.Name = "新規シート"
'　　・・・いろいろな処理
　　Application.DisplayAlerts = False
　　NewSht.Delete
　　Application.DisplayAlerts = True
End Sub

こちらの方がスマートでしょうかね。

新規シートを最後に追加する場合は、

Set NewSht = Sheets.Add(After:=Sheets(Sheets.Count))

引数を()の中に入れる必要があります。

オブジェクト変数に直接入れる場合は、このように記述します。

これは、

Sheets.Add After:=Sheets(Sheets.Count)
Set NewSht = ActiveSheet

これと同じことになります。