EXCEL VBA 高速化 描画・監視・自動計算停止・(画面・更新・停止) (テクニック)
EXCEL VBA 高速化 (画面・更新・停止)
●はじめに
ここでは、EXCEL VBAの高速化に関する説明をしたいと思います。VBAコード(プログラム)は、長くなったり、複雑になったり、特にループ処理が多くなると、非常に遅くなります。ここでは、2パターン高速化する方法を説明します。
EXCEL VBA高速化の説明①
●プログラム説明
●下記のプログラムは、VBAを高速する手法の中で、プログラム作成の際に、取り入れた方が良いでしょう。実際どのように事をしているのか順番に解説します。
① ScreenUpdating = False ‘描画停止
② EnableEvents = False ‘イベント監視停止
③ Calculation = xlCalculationManual ‘手動計算
●EXCELでは、常に描画作成・イベント監視・自動計算を行っています。この機能をプログラムに記述する事で、3つの機能を一時的に止める事でき、全体的な処理スピードを高める事ができます。
① ScreenUpdating = False ‘描画停止
② EnableEvents = False ‘イベント監視停止
③ Calculation = xlCalculationManual ‘手動計算
●EXCELでは、常に描画作成・イベント監視・自動計算を行っています。この機能をプログラムに記述する事で、3つの機能を一時的に止める事でき、全体的な処理スピードを高める事ができます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub kosoku_Rei() Dim I as Long With Application '高速化はじめ .ScreenUpdating = False '描画停止 .EnableEvents = False 'イベント監視停止 .Calculation = xlCalculationManual '手動計算 End With '------------実行処理を行うコードを書く(高速化のコードで囲む)--------- Dim I = 1 to 100000 Cells("A",I) = I Next I '--------------------------------------------------------------- With Application '高速化おわり .ScreenUpdating = True '描画再開 .EnableEvents = True 'イベント監視再開 .Calculation = xlCalculationAutomatic '自動計算 End With End Sub |
●プログラム説明 VBA高速化しない場合
下記のプログラムでは、描画作成・イベント監視・自動計算のいづれも停止せずに実行するプログラムです。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub hikakuTEST() Dim I As Long Dim TIME_S, TIME_E, TIME_G As Date TIME_S = Now() '処理の実行前に時間を代入 For I = 1 To 1000000 Cells(I, "A") = I Next I TIME_E = Now() '処理の終了後に時間を代入 TIME_G = TIME_E - TIME_S '終了後-実行前=差の時間を算出 MsgBox TIME_G '差の時間を表示する(処理時間) End Sub |
●実行結果
上記のプログラムは、描画作成・イベント監視・自動計算を一時停止せずに、実行した結果になります。
●実行後 ※上記のプログラムを実行した結果、35秒掛りました。 (クリックして拡大)
●プログラム説明 VBA高速化した場合
下記のプログラムでは、描画作成・イベント監視・自動計算を一時的に停止させて、プログラムを実行した場合です。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Sub hikakuTEST2() Dim I As Long Dim TIME_S, TIME_E, TIME_G As Date With Application '高速化はじめ .ScreenUpdating = False '描画停止 .EnableEvents = False 'イベント監視停止 .Calculation = xlCalculationManual '手動計算 End With TIME_S = Now() '処理の実行前に時間を代入 For I = 1 To 1000000 Cells(I, "A") = I Next I TIME_E = Now() '処理の終了後に時間を代入 TIME_G = TIME_E - TIME_S '終了後-実行前=差の時間を算出 With Application '高速化おわり .ScreenUpdating = True '描画再開 .EnableEvents = True 'イベント監視再開 .Calculation = xlCalculationAutomatic '自動計算 End With MsgBox TIME_G '差の時間を表示する(処理時間) End Sub |
●実行結果
上記のプログラムは、描画作成・イベント監視・自動計算を一時停止させて、プログラムを実行した結果になります。
(上記の手順を行う事により、全体的に処理スピードを上げる事ができます)
(上記の手順を行う事により、全体的に処理スピードを上げる事ができます)
●実行前 ※上記のプログラムを実行した結果、17秒掛りました。 (クリックして拡大)
描画作成・イベント監視・自動計算を一時停止せずに、実行した結果 35秒
描画作成・イベント監視・自動計算を一時停止して、実行した結果 17秒 一時停止した場合は、18秒早く処理する事ができました。
描画作成・イベント監視・自動計算を一時停止せずに、実行した結果 35秒
描画作成・イベント監視・自動計算を一時停止して、実行した結果 17秒 一時停止した場合は、18秒早く処理する事ができました。
最後まで、ご覧いただきまして誠に有難うございました。
以上で、EXCEL VBA高速テクニックでした。また、その他高速化に繋がる方法は、プログラムの内部を見直す、無駄なループ処理を減らすなど様々ありますが、今回説明した部分をプログラムに追加するだけでも、しない場合とくらべても、早く実行してくれます。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
以上で、EXCEL VBA高速テクニックでした。また、その他高速化に繋がる方法は、プログラムの内部を見直す、無駄なループ処理を減らすなど様々ありますが、今回説明した部分をプログラムに追加するだけでも、しない場合とくらべても、早く実行してくれます。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。