実行速度の改善

VBA に慣れていない場合に、必要な処理だけウェブサイトから拾い集め、とりあえず実装するというケースは少なくないかと思います。

ですが、出来上がったものを実行してみると、処理中に画面がガタガタ動いたり、マウスが頻繁に処理中モードと通常モードに切り替わってしまうことはありませんか？

そういった方向けに、作成した処理の前に読み込ませるだけで、簡単に上記の問題が解決され、さらに高速化できるケースもあるコードをご紹介いたします。

VBA コード

Public Sub sample()
    On Error GoTo CATCH

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    Call 実際に実行するマクロ

FINALLY:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic

    Exit Sub

CATCH:
    Debug.Print (Err.Description)
    Resume FINALLY
End Sub

実際に実行するマクロの部分に、作った Sub XXXXXX()プロシージャのXXXXXXを書き込むだけで、今までと同様の動作をしながら、画面のガタガタやマウスカーソルの変化が直ります。

エラーが出た場合に、操作している人にもわかるようにしたい場合は、Debug.Print (Err.Description) の部分を、MsgBox "エラーが発生しました。エラー内容：" & Err.Description などと変更するといいかと思います。