【VBA】警告メッセージの表示を制御する方法

Excel VBAを使用する際に、特定の操作で警告メッセージが表示されることがあります。例えば、シートやブックを削除する場合などです。しかし、場合によってはこれらの警告を抑制したいこともあるでしょう。そんなときに役立つのが Application.DisplayAlerts プロパティです。このプロパティを使うことで、警告メッセージの表示を制御することができます。

Application.DisplayAlerts の使い方

Application.DisplayAlerts プロパティは、警告メッセージの表示を制御するために使用されます。このプロパティを False に設定すると、Excelは警告メッセージを表示せずに処理を続行します。一方、True に設定すると、通常通り警告メッセージが表示されます。

コード例

以下のコードは、警告メッセージの表示を無効化してから、特定の処理を行い、処理が完了した後に再び警告メッセージの表示を有効化する例です。

Sub DeleteSheetWithoutWarning()
    ' 警告メッセージの表示を無効化
    Application.DisplayAlerts = False

    ' シートの削除を実行
    Worksheets("Sheet1").Delete

    ' 警告メッセージの表示を有効化
    Application.DisplayAlerts = True
End Sub

コードの解説

警告メッセージの表示を無効化:

   Application.DisplayAlerts = False

この行で、Excelの警告メッセージの表示を無効にしています。この設定により、次の操作（ここではシートの削除）が警告メッセージなしで実行されます。

シートの削除を実行:

   Worksheets("Sheet1").Delete

この行で、”Sheet1″ という名前のシートを削除しています。通常、この操作は確認のための警告メッセージが表示されますが、DisplayAlerts を False に設定しているため、メッセージは表示されません。

警告メッセージの表示を有効化:

   Application.DisplayAlerts = True

最後に、DisplayAlerts を True に戻して、通常の警告メッセージの表示を再開します。これを行わないと、その後の操作においても警告が表示されなくなるため注意が必要です。

実際の使用シナリオ

シートの削除: 大量のシートを削除する際に、いちいち警告メッセージが表示されると作業が遅くなります。DisplayAlerts = False を使えば、これを防げます。
ブックの保存: ファイルを上書き保存する際に警告メッセージを非表示にすることもできます。
セルのクリア: データの一括削除や変更時にも、警告メッセージを抑制してスムーズに処理を行いたい場合に有効です。