VBA高速化おまじない【サブモジュール】超絶楽々VBA処理を速くしよう

Sub userSpeedUp(Op1 As Integer, Optional ScFlag As Integer, Optional EveFlag As Integer, Optional CalFlag As Integer)
'//////////////////////////////////////////////////////
'******************************************************
'■使用方法:call userSpeedUp(0) or call userSpeedUp(2,0,0,0)
'           ですべてFalse
'           call userSpeedUp(1) or call userSpeedUp(2,1,1,1)
'           ですべてTrue
'■処理内容:VBAの高速化
'■注意点  :特になし
'******************************************************
'Writer:JoVBA
'Created_Date:2023/09/19
'Change_Date ://
'//////////////////////////////////////////////////////
Select Case Op1
    Case 0
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        Application.Calculation = xlCalculationManual
    Case 1
        Application.ScreenUpdating = True
        Application.EnableEvents = True
        Application.Calculation = xlCalculationAutomatic
    Case 2
        '●画面更新
        Application.ScreenUpdating = ScFlag
        
        '●シートイベント
        Application.EnableEvents = EveFlag
        
        '●再計算
        If CalFlag = 0 Then
            Application.Calculation = xlCalculationManual
        Else
            Application.Calculation = xlCalculationAutomatic
        End If
    Case Else
        MsgBox "エラーモジュール名 : userSpeedUp" _
            & vbCrLf & "エラー名称 : 引数範囲外[Op1]" _
            & vbCrLf & "[Op1] = " & Op1 _
            & vbCrLf & "" _
            & vbCrLf & "", vbCritical
        Stop
End Select
End Sub

Sub userSpeedUp_TEST_1()

'高速化（すべてFalse）
Call userSpeedUp(0)

'～～～～～～
'### 処理 ###
'～～～～～～

'通常に戻す（すべてTrue）
Call userSpeedUp(1) '※処理の最後に必ず実行

End Sub

Sub userSpeedUp_TEST_2()

'個別に指定（0:False_1:True）
Call userSpeedUp(2, 0, 0, 0)
Call userSpeedUp(2, 1, 1, 1)

End Sub