覚書 VBA高速化

' 　　　　　　　　　　　　　　　　　　　　　　　　　　　　+-----------------------+
' 　　　　　　　　　　　　　　　　　　　　　　　　　　　　 | 処理高速化("ON")
'                                                                                                       +-----------------------+
Public Sub SpeedUp(FLG As String)
     If FLG = "OFF" Then
        With Application
             .ScreenUpdating = True                            '画面更新表示
             .EnableEvents = True                                 'イベントを有効
             .DisplayStatusBar = True                           'ステータスバー有効
             .DisplayAlerts = True                                 '確認メッセージ表示
             .Cursor = xlDefault                                    'マウスカーソル
             .Calculation = xlCalculationAutomatic      '自動計算
        End With
     Else
         With Application
             .ScreenUpdating = False                           '画面更新非表示
             .EnableEvents = False                                'イベントを無効
             .DisplayStatusBar = False                           'ステータスバー無効
             .DisplayAlerts = False                                 '確認メッセージ非表示
             .Cursor = xlWait                                         'マウスカーソル(砂時計)
             .Calculation = xlCalculationManual           '手動計算
         End With
     End If
End Sub