ワークシートを削除する

今回はワークシートの削除についてメモしておきます。

基本

ワークシートの削除にはWorksheet.Deleteメソッドを使用します。

実行プログラム

Sub Sample6_7_1()

    Worksheets("Sheet3").Delete  ' "Sheet3"を削除

End Sub

Sub Sample6_7_1()

Worksheets("Sheet3").Delete ' "Sheet3"を削除

End Sub

このメソッドは、ワークシートを削除する時に確認ダイアログボックスを既定で表示します。

このままでは、処理を中断してユーザーの入力を待つことになってしまいます。

確認ダイアログボックスを表示せず削除する

実行プログラム

Sub Sample6_7_2()

    ' 警告メッセージを表示しない
    Application.DisplayAlerts = False

    Worksheets("Sheet3").Delete  ' "Sheet3"を削除

    ' 警告メッセージを表示する
    Application.DisplayAlerts = True

End Sub

Sub Sample6_7_2()

' 警告メッセージを表示しない

Application.DisplayAlerts = False

Worksheets("Sheet3").Delete ' "Sheet3"を削除

' 警告メッセージを表示する

Application.DisplayAlerts = True

End Sub

実行前

実行後

“Sheet3″が削除されました。

注意
削除対象のワークシートが存在しない場合、エラーとなります。

ワークシートが存在する場合のみ削除する

ワークシートが存在することを確認した後、削除するようにします。

実行プログラム

Sub Sample6_7_3()

    Dim strDelName  As String

    ' 警告メッセージを表示しない
    Application.DisplayAlerts = False

    strDelName = "Sheet2"

    If Exists(strDelName) = 1 Then     ' シート存在チェック
        Worksheets(strDelName).Delete  ' ワークシートを削除
    End If

    ' 警告メッセージを表示する
    Application.DisplayAlerts = True

End Sub

' 関数：シート存在チェック
Function Exists(strCheck As String) As Integer

    Dim i            As Integer

    Exists = 0

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = strCheck Then
            Exists = 1  ' シートが存在する場合、1を返す。
            Exit For
        End If
    Next

End Function

Sub Sample6_7_3()

Dim strDelName As String

' 警告メッセージを表示しない

Application.DisplayAlerts = False

strDelName = "Sheet2"

If Exists(strDelName) = 1 Then ' シート存在チェック

Worksheets(strDelName).Delete ' ワークシートを削除

End If

' 警告メッセージを表示する

Application.DisplayAlerts = True

End Sub

' 関数：シート存在チェック

Function Exists(strCheck As String) As Integer

Dim i As Integer

Exists = 0

For i = 1 To Worksheets.Count

If Worksheets(i).Name = strCheck Then

Exists = 1 ' シートが存在する場合、1を返す。

Exit For

End If

End Function

シート存在チェックの為の関数を用意しておくと便利です。