一つずつ表示する毎に、描画して、自動計算してってやるからおっそい!
目で追える・・・
止める方法あった
------------------------------------------------
'画面の描画を停止
Application.ScreenUpdating = False
'Excelの自動計算をとめる
Application.Calculation = xlCalculationManual
'イベントの発生をとめる
Application.EnableEvents = False
~~処理~~
'最後に元に戻す
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
-------------------------------------------------
むっちゃ早くなった!
0 件のコメント:
コメントを投稿