| |
▼km さん：
>ハチ さん御助言ありがとうございます。
>
>ActiveWindow.View = xlPageBreakPreviewに設定すると、
>書込み時には、プログラム実行速度は落ちるものですか？
>経験がありますか？
>配列で処理しないと速度改善は無理？
あまり意識したことはありませんでしたが、
かなり落ちるみたいですね。
新規Bookでtest1とtest2 の実行結果を較べてください。
データの更新が終ってから、印刷プロセスに移るようにすれば良いのでは？
先のレスにも書きましたが自分の場合は
「おまじない」で入れてるだけですので、
不具合が無さそうなら要らないと思います。
Sub test1()
Dim t As Double
Dim R As Range
ActiveWindow.View = xlNormalView
t = [=NOW()]
'5000セルへ書き込み
For Each R In ActiveSheet.Range("A1:E1000")
R.Value = R.Address(0, 0)
Next
t = [=NOW()] - t
t = Round(t * 1440, 3)
MsgBox t & "秒"
End Sub
Sub test2()
Dim t As Double
Dim R As Range
ActiveWindow.View = xlPageBreakPreview
t = [=NOW()]
'5000セルへ書き込み
For Each R In ActiveSheet.Range("A1:E1000")
R.Value = R.Address(0, 0)
Next
t = [=NOW()] - t
t = Round(t * 1440, 3)
MsgBox t & "秒"
End Sub
|
|
ハチ
- 08/5/19(月) 9:48 -
