ExcelVBA Tips(Application)

HOME>TOP>アプリケーション

警告や確認メッセージを表示しないようにするには？

キーワード>>DisplayAlerts

Point ：シート削除の時などにでる。警告・確認メッセージを出さないようにしたい。

Sub Test()
'このコードは必ず要らないシートを２枚用意してから実行してください。

   MsgBox "メッセージを出して削除します。"

   ActiveSheet.Delete
    'シートを削除

   MsgBox "今度はメッセージを出さないで削除します。"

Application.DisplayAlerts = False
'メッセージなどを出さないおまじない

ActiveSheet.Delete

Application.DisplayAlerts = True
'元に戻す。

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。