確認メッセージを表示させない方法
ワークシートを削除するとき、「このシートは完全に削除されます。続けますか？」とExcelから確認メッセージが表示されます。プログラムの実行中に処理が止まってしまうので、不都合です。Excelからの確認メッセージの表示、非表示を切り替えるには、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティを使用します。
DisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティ
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドでワークシートを削除しようとしたときや、Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのSaveAs【ｾｰﾌﾞｱｽﾞ】メソッドでブックを上書き保存する場合に発生する注意や警告の確認メッセージの表示や非表示を切り替えるにはApplication【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティを使用します。
DisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティの書式と設定値の説明
オブジェクト.DisplayAlerts = 設定値
- オブジェクト（必須）
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトを指定します。 - 設定値（必須）
設定値 内容 False メッセージを非表示にします。 True メッセージを表示します。（既定値） DisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティにFalseを設定した場合、プログラムの実行が終了すると自動的にTrueの設定に戻りますが、トラブルを防ぐために、Trueに設定するステートメントを明示的に記述します。
確認メッセージ例
確認メッセージを表示させないコードと解説
Sub 確認() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub
Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのDelete【ﾃﾞﾘｲﾄ】メソッドでワークシートを削除するコードの前に、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティにFalse【ﾌｫﾙｽ】を設定して確認メッセージの表示設定を非表示にします。ワークシートを削除後、DisplayAlerts【ﾃﾞｨｽﾌﾟﾚｲｱﾗｰﾂ】プロパティにTrue【ﾄｩﾙｰ】を設定して、明示的に確認メッセージの表示設定を既定値の表示するに設定します。
以上で、確認メッセージを表示させない方法についての解説を終了します。
ありがとうございました。