18. 04.ウィンドウ　描画を処理中に止めたい　　
Option Explicit
Option VBASupport 1

REM  *****  BASIC  *****

Sub Main
Dim i As Long

'描画を止めて処理を高速化（最後にまとめて描画）
Application.ScreenUpdating = False
For i = 1 to 20000
Cells(i,1) = "" & i
Next i
Application.ScreenUpdating = True
MsgBox "Step1 end"

'描画するよう戻した状態で比較
For i = 1 to 20000
Cells(i,2) = "" & i
Next i
MsgBox "Step2 end"

End Sub


前へ ／ 次へ