マクロの処理速度が遅くなってしまいました
今までエクセル２０００を使用していたのですが、エクセル２００３にバージョンアップして、以下の処理速度を検証したところ、処理が遅くなってしまいました。内容はsheet2にあるデータを変数に格納して簡単な計算をした後にsheet1に入力するということを5回繰り返し、それぞれの処理にかかる時間をsheet3に表示するというものです。
Sub タイム計測()
Dim myStart As Single, myGoal As Single
Dim j As Integer
Application.ScreenUpdating = False
Sheets(1).Select
Cells.Clear
For j = 1 To 5
myStart = Timer
Call サンプル
myGoal = Timer - myStart
Sheets(3).Select
Cells(j, 1) = myGoal
Sheets(1).Select
Next
Sheets(3).Select
Application.ScreenUpdating = True
End Sub
Sub サンプル()
Dim i As Integer, j As Integer
Dim Data As Variant, KeKKa(1 To 2000, 1 To 199) As Variant
Data = Range(Sheets(2).Cells(1, 1), Sheets(2).Cells(2000, 199))
For i = 1 To 2000
For j = 1 To 199
KeKKa(i, j) = Data(i, j) + Data(i, j)
Next
Next
Range(Cells(1, 1), Cells(2000, 199)) = KeKKa
End Sub
エクセル２０００のときは1回当り平均して概ね0.7秒位で処理していたのですが、エクセル２００３にすると1.4秒位かかってしまいます。処理速度が遅くなってしまうとバージョンアップした意味がないのですが、原因や改善策があればどなたか教えていただけないでしょうか？よろしくお願いします。
