Excel VBA高速化テクニック1【画面描写を止める】

1 Excel VBA高速化テクニック1【画面描写を止める】

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

Excel VBA高速化テクニック1【画面描写を止める】

Excel VBAに限らず、プログラムという物は処理の結果は同じでも記述の仕方によって処理速度に大幅な差が出てくることがあります。
今回はExcelVBAで処理速度を簡単に向上させる方法の一つをご紹介します。

高速化の紹介

今回ご紹介する高速化の方法は一番簡単かつ、一番効果が高い【Application.ScreenUpdating 】をご紹介します。
【Application.ScreenUpdating 】は簡単に言うと【画面描写を止める】というコードです。

Application.ScreenUpdating = False ‘画面描写を止める
Application.ScreenUpdating = True ‘画面描写を戻す

画面の描写を止めるとどうなるの？と思われるかもしれませんが。

Dim i As Long
For i = 1 To 10000
Cells(i, 1).Value = i
Next i

Dim i As Long

For i = 1 To 10000

Cells(i, 1).Value = i

Next i

このようなコードがあったとすると

セルA1に1を入力
画面上でもセルA1に1を表示
セルA2に2を入力
画面上でもセルA2に2を表示

これを10000回繰り返しているわけですからPCにも少なからず負荷がかかるのもわかっていただけるかと思います。

ですが【画面上でも表示】を抑制してあげて、10000回終了した後に画面に表示させてあげることによって10000回繰り返していた処理を1回で済ませることができるので、処理速度が上がるのがお分かりいただけると思います。

Dim i As Long
Application.ScreenUpdating = False '画面描写を止める
For i = 1 To 10000
Cells(i, 1).Value = i       
Next i
Application.ScreenUpdating = True '画面描写を戻す

Dim i As Long

Application.ScreenUpdating = False '画面描写を止める

For i = 1 To 10000

Cells(i, 1).Value = i

Next i

Application.ScreenUpdating = True '画面描写を戻す

そもそも高速処理されているプログラムの画面表示を停止したところで気にする人も少ないと思いますが(笑)

※PCのスペックや作業によってほとんど差がない場合があります

サンプルコード

このコードは処理にかかった時間を表示するコードですのでご自由にご利用ください。

このレベルの処理だと大した差がないかもしれませんのでこれを参考にしてカスタマイズをしてみてください！

Sub sample()
Dim i As Long
Application.ScreenUpdating = False '画面描写を止める
startTime = Timer  '計測開始
For i = 1 To 10000
Cells(i, 1).Value = i
Next i
stopTime = Timer  '計測終了
Application.ScreenUpdating = True '画面描写を戻す
endtime = (stopTime - startTime)  '計測結果を計算
MsgBox "所要時間は" & endtime & "秒でした"
End Sub