|
レスありがとう。ソースがないとイメージがわきませんよね。
EXCELからのデータの読み込み部です
Dim Xdat(2000,10) as Single, Ydat(2000,10) as Single
Dim N as Integer, NV as Integer, i as Integer, j as Integer
Workbooks.Open FileName:=Fname
With Workbooks(2).Worksheets("Sheet1")
N=2000
NV=10
for i=1 to NV
for j=1 to N
Xdat(j,i)=Val(.Cells(j,i))
next
next
End With
:
Xdatを入力としてYdatを計算して求めます
:
EXCELへの書き込み部分は
With Worksheets("Sheet2")
for i=1 to NV
for j=1 to N
.Cells(j,i)=Ydat(j,i)
next
next
End With
この例では2万個のセルの読み込みと、2万個のセルへの書き込み
があります。メモリ演算だけならなんでもないのですがCells関数
を使うと膨大な処理時間を要します。
以上ですがアドバイスがあればお願い致します。
|
|