【VBA】全てのシートを確認メッセージを出さずに取得する方法

日々の業務で大量のデータを扱う際、シート間でのデータ移動や一括処理は手作業では時間がかかります。特に確認メッセージが出るたびに中断されると効率が悪くなります。この記事では、VBAを使用してExcel内の全てのシートを取得し、確認メッセージを出さずに処理を行う方法を解説します。

サンプルコード

VBA

Option Explicit
Sub GetAllSheetsWithoutAlerts()
    Dim ws As Worksheet, wb As Workbook
    Set wb = ThisWorkbook '現在開いているワークブックを参照
    Application.DisplayAlerts = False '確認メッセージの表示をオフにする
    For Each ws In wb.Sheets
        Debug.Print ws.Name '各シート名をコンソールに出力する（処理内容はここに記述）
    Next ws
    Application.DisplayAlerts = True '確認メッセージの表示をオンに戻す
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。