【VBA高速化】開始と終了のルーチン呼び出し

' Global variable for calculation mode｜計算モード保持用
Private calc As Long

' Start process｜開始処理
Public Sub StartMacro()
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        calc = .Calculation
        .Calculation = xlCalculationManual
    End With
End Sub

' End process｜終了処理
Public Sub EndMacro()
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
        .EnableEvents = True
        .Calculation = calc   ' ← 最後に戻す
    End With
    
    ' If waiting form is visible, close it｜待機フォームが開いていたら閉じる
    If VBA.UserForms.Count > 0 Then
        On Error Resume Next
        Unload Frm_waiting
        On Error GoTo 0
    End If
End Sub

' Abort safely｜中断処理（安全版）
Public Sub AllEnd()
    Call EndMacro
    Exit Sub
End Sub