今回はその悩みを解決する第2弾となっています。

前回の内容を合わせると効果はさらに見込めます。

前回の記事はこちら☟

【VBA知識 高速化①】画面更新・自動計算・イベントのOFFについて（VBA高速3種の神器） – 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

■高速化の内容

今回の解決策はVariant変数を使用し、変数内で集計します。
そして集計結果を最後にまとめて表示する仕組みです。

処理が遅くなる要因としてセルの値を毎回読み取っている場合があります。
そこで変数内で計算させることで
読み込みがなくなり、早くなるというわけです。

人で表すと、いちいち紙に書いて計算している作業を頭で考えてまとめて記入するイメージです。

では実際に検証してみましょう。

■比較用プログラムの説明

今回も高速化①で使用したシートを用いていきます。
高速化①をご覧になられた方は次の目次へどうぞ。

では検証用のプログラムについて説明します。
A・B行に100000行、ランダムなデータがある状態です。

データの処理方法としてA1とB1の数値をかけてC1に出力する仕組みとします。
その処理を100000行繰り返すのにかかった時間を基準としましょう。

用意したプログラムがこちら。

一応、コピーできるように貼っておきます。

Sub 高速化①()

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long

Time1 = Timer

””計算開始
For A = 1 To 100000 Step 1

Cells(A, 3) = Cells(A, 1) * Cells(A, 2)

Next A
””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

End Sub

では実行してみましょう。

3.62秒かかりましたね。これを元に早くしていきます。

■変数内で記録する

ではA行とB行で計算した値をVariant関数内で記録してみましょう。

一度、Variant関数内に使用したい範囲の空白セルを入れておきます。
この作業をしないとエラーになります。
今回はA行*B行の結果の１列だけでいいので、１列分100000行をVariant内に空白として入れます。

Dim N As Vriant
N = Range(Cells(1, 3), Cells(100000, 3))

今回は３列目を使用して空白を入れてますが、計算結果値を上書きするので何列目でも構いません。

そして計算結果値をVariant内に入れます。

N(A, 1) = Cells(A, 1) * Cells(A, 2)

これを100000行繰り返し、最後に出力する流れです。

Range(Cells(1, 3), Cells(100000, 3)) = N

こちらをプログラムに入れていきます。

■変更前と比較

変更後のプログラムはこちら。

このようになりました。
またまたコピー用載せておきます。

Sub 高速化②()

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long, N As Variant

Time1 = Timer

””計算開始

N = Range(Cells(1, 3), Cells(100000, 3))

For A = 1 To 100000 Step 1

N(A, 1) = Cells(A, 1) * Cells(A, 2)

Next A

Range(Cells(1, 3), Cells(100000, 3)) = N

””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

End Sub

それでは実行してみましょう。

結果が出ました！

3.62秒から0.78秒と2.84秒短縮しました。
結果的に78%短縮短縮です。
驚異的ですよね…

では高速化①の対策も合わせてみましょう。

■高速化①と今回の対策の混合結果

高速化①で行った、画面更新・自動計算・イベントをOFFも追加してみましょう。

追加したプログラムがこちら。

Sub 高速化①②()

Application.ScreenUpdating = False ”画面更新をOFF
Application.Calculation = xlManual ”自動計算をOF
Application.EnableEvents = False ”イベントをOFF

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long, N As Variant

Time1 = Timer

””計算開始

　　　N = Range(Cells(1, 3), Cells(100000, 3))

For A = 1 To 100000 Step 1

　　　N(A, 1) = Cells(A, 1) * Cells(A, 2)

Next A

　　　Range(Cells(1, 3), Cells(100000, 3)) = N

””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

Application.ScreenUpdating = True ”画面更新をON
Application.Calculation = xlAutomatic ”自動計算をON
Application.EnableEvents = True ”イベントをON

End Sub

実行してみます。

3.62秒→0.78秒→0.71秒
すごく早くなりましたね！

高速化①の内容は有名ですがこちらの内容はあまり有名ではない便利な技です！

■まとめ

いかがだったでしょうか。
計算で処理速度が遅い場合はぜひ試してみてください。

配列はとても便利な機能なので配列の活用についてもご参考にしてみてください。

【マクロVBA】複数の繰り返しのコピー&ペーストが面倒くさい!?高速で一括で貼り付けできる配列とは ► 独学エクセル塾 (dokugakuexcel.com)

データ数やデータ容量が多ければ大きいほど処理速度は遅くなります。
データが逐一入ってくるシステムだと追いつかないことも…

そこで高速化のスキルが必要になるのですが
様々な手法があるため数回に分けて説明します。

それでは見ていきましょう。

■時間がない人用コピーリスト

・使用方法

Application.ScreenUpdating = False ”画面更新をOFF
Application.Calculation = xlManual ”自動計算をOFF
Application.EnableEvents = False ”イベントをOFF

‘ここに高速化したいプログラム

Application.ScreenUpdating = True ”画面更新をON
Application.Calculation = xlAutomatic ”自動計算をON
Application.EnableEvents = True ”イベントをON

上記のように高速化したいプログラムに挟むように設置してください。

■比較用プログラムの説明

今回は下記のようなデータを用意しました。
A・B行に100000行、ランダムなデータがある状態です。

データの処理方法としてA1とB1の数値をかけてC1に出力する仕組みとします。
その処理を100000行繰り返すのにかかった時間を基準としましょう。

用意したプログラムがこちら。

一応、コピーできるように貼っておきます。

Sub 高速化①()

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long

Time1 = Timer

””計算開始
For A = 1 To 100000 Step 1

　Cells(A, 3) = Cells(A, 1) * Cells(A, 2)

Next A
””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

End Sub

では実行してみましょう。

3.62秒かかりましたね。これを基準に早くしていきます。

■画面更新のOFF

まず、画面更新についてです。
マクロ・VBAでは通常、進行に合わせて過程を画面で確認できるようになっています。
要は
計算→画面出力→計算→画面出力
を100000回繰り返している流れです。

これを下記のコードでOFFにします。

Application.ScreenUpdating = False ”画面更新をOFF

これにより
計算*100000→画面出力
のように画面出力が1回になります。

出力回数が減るので高速化につながる仕組みです。

■自動計算をオフ

次に自動計算についてです。
エクセルはセルを参照して計算していると元の数値を変えると参照先も変わりますよね。

こちらも
入力→再計算→入力→再計算
のように繰り返してしまいます。

なので実行中、セルの参照がない場合はOFFにしましょう。
下記のコードでOFFにします。

Application.Calculation = xlManual ”自動計算をオフ

これにより
計算*100000→まとめて再計算
のようになります。

■イベントをオフ

最後はイベントのオフです
ここで言われるイベントとはクリックや内容更新、セルのアクティブにより発生するイベントをOFFにするものです。

こちらは下記のコードでOFFにします。

Application.EnableEvents = False ”イベントをOFF

■変更前と比較

では実際にプログラムに入れてみます。

このようになりました。
またまたコピー用載せておきます。

Sub 高速化①()

Application.ScreenUpdating = False ”画面更新をOFF
Application.Calculation = xlManual ”自動計算をOF
Application.EnableEvents = False ”イベントをOFF

Dim Time1 As Double, Time2 As Double, Result As Double
Dim A As Long

Time1 = Timer

””計算開始
For A = 1 To 100000 Step 1

　　Cells(A, 3) = Cells(A, 1) * Cells(A, 2)

Next A
””計算終わり

Time2 = Timer

Result = Time2 – Time1
MsgBox Result & “秒で処理しました”

Application.ScreenUpdating = True ”画面更新をON
Application.Calculation = xlAutomatic ”自動計算をON
Application.EnableEvents = True ”イベントをON

End Sub　　

ちなみにすべての処理が終わったらOFFにした項目はONに戻しましょう。

Application.ScreenUpdating = True ”画面更新をON
Application.Calculation = xlAutomatic ”自動計算をON
Application.EnableEvents = True ”イベントをON

では実行してみましょう。

結果が出ました！

3.62秒から2.20秒と1.42秒短縮しました。
結果的に39%短縮短縮です。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Application.ScreenUpdating プロパティ (Excel) | Microsoft Learn

Application.Calculation プロパティ (Excel) | Microsoft Learn

Application.EnableEvents プロパティ (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
私も大容量の処理には必ず入れているテンプレートです。

ぜひ高速化に役立ててみてください。

次回の高速化の記事はこちらから☟

【VBA知識 高速化②】あまり知られていない？大量データで処理が遅いVBAを高速化 – 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。