VBA 高速化について

VBA 高速化

対象となる処理開始前に停止する。

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

処理終了後に戻す。

        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        Application.EnableEvents = True

Range を配列に変えて配列で処理後に反映する。

    Dim cellArray As Variant
    cellArray = Range("A1:B2")

    '値をセットする
    cellArray(1,1) = "test"

    Range("A1:B2") = cellArray

Range で範囲を選択して設定する。