アクセス数

▲Page Top

健康情報　⇒　どこへ向かって・・・　⇒　VBAトップ　⇒　Application.ScreenUpdating = False

プログラム実行中にMicrosoft Excelの絵画（毎回の書き直し）を止めて、処理スピードを上げます。

ビジュアル重視の部分があるなら、途中でtrueにします。

プログラム終了と同時に終了。

Ｅxcelシートへ大量に書き込むようなプログラムには適しています。

処理速度が断然速くなります。

この作用はサブルーチンにまで波及します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Application.ScreenUpdating = False
    Call set1000
End Sub

Sub set1000()
    Dim i As Integer
    For i = 1 To 1000
        Range("a1") = i
    Next i
    ActiveCell.Offset(1, 0).Select
End Sub

set1000サブプロシージャを単独で動かすと、画面上で数字が変わってゆくのを確認できますが、ダブルクリックイベントから呼び出された場合には、Application.ScreenUpdating = Falseが効いて画面は突然最後の値（1000）が表示されます。