ワークシートの削除

広告

ワークシートを削除します。削除したいワークシートを表すWorksheetオブジェクトに対して「Delete」メソッドを使います。

Dim sheet1 As Worksheet

Set sheet1 = Worksheets(1)
sheet1.Delete

まとめて次のように記述して頂いても構いません。

Worksheets(1).Delete

サンプルプログラム

では簡単なサンプルで試してみましょう。

testsheetedit4.bas

Sub テスト()

    Worksheets(2).Delete

End Sub

上記マクロを実行すると次のようになります。

ワークシートの削除

ワークシートを削除する場合には警告ウィンドウが表示されます。もし問題がなければ「削除」ボタンをクリックして下さい。

ワークシートの削除

2枚目にあったワークシートが削除されました。

警告ウィンドウを表示せずにワークシートを削除する

ワークシートの削除のように警告ウィンドウが表示されるといったんプログラムの流れが切れます。もし警告ウィンドウを表示したくない場合にはApplicationオブジェクトの「DisplayAlerts」プロパティで設定を行います。詳しくは『メッセージウィンドウの非表示』を参照して下さい。

では実際に試してみましょう。

testsheetedit5.bas

Sub テスト()

    Application.DisplayAlerts = False
    
    Worksheets(2).Delete

    Application.DisplayAlerts = True

End Sub

上記マクロを実行すると次のようになります。

ワークシートの削除

今度は警告ウィンドウが表示されずにワークシートが削除されました。

Excel VBA入門の他の記事を見てみる

( Written by Tatsuo Ikura )