|
3千行、50列位のデータベースをワークに作成しています。
ユーザーフォームにより入力したデータを行ごとに書き込むのですが、
データが多くなるにつれ、処理速度が極端におそくなりました。
ワークシートに書き込むのに処理の早い方法はないのでしょうか。
テキストデータに書き出す方法もあるようですが。
コードは
If Tdat(7) <> "" Then
Sheets(shtSogo).Cells(ToRow, 1).Value = WrPhToti
For i = 2 To 48
ActiveSheet.Cells(5, i).Value = Tdat(i)
ActiveSheet.Cells(ToRow, i).Value = Tdat(i)
Next i
Else
GoTo 処理終了
End If
If Kdat(8) <> "" Then
ActiveSheet.Cells(KoRow, 1).Value = Kdat(1)
For i = 2 To 15
ActiveSheet.Cells(2001, i).Value = Kdat(i)
ActiveSheet.Cells(KoRow, i).Value = Kdat(i)
Next i
End If
If Odat(4) > 0 Then
ActiveSheet.Cells(OtuRow, 1).Value = Odat(1)
For i = 2 To 15
ActiveSheet.Cells(4001, i).Value = Odat(i)
ActiveSheet.Cells(OtuRow, i).Value = Odat(i)
Next i
End If
宜しくお願いします。
|
|