画面の描画を止めて画面のチラツキをとめたり,別のファイルを開いたり閉じたりするときにダイアログを出さないようにして高速化する必要があるプロシージャの最初と最後に必要な設定です。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Sub Test() With Application .ScreenUpdating = False '画面更新を停止 .DisplayAlerts = False 'アラート表示を停止 End With ' 'このプロシージャの処理内容 ' With Application .ScreenUpdating = True '画面更新を元に戻す .DisplayAlerts = True 'アラート表示を戻す End With End Sub |