投稿日 | : 2003/06/20(Fri) 14:26 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: テスト結果 |
別途Excelを起動して表示状態にしてから測定しました。
こちらは、0.04秒かかりました。
Private Sub Command1_Click()
TimeStart
Dim dat(1 To 100, 1 To 10) As Long
Dim i As Long, j As Long
For i = 1 To 100
For j = 1 To 10
dat(i, j) = i
Next j
Next i
Dim objRange As Range
Set objRange = xlSheet.Range("A1:J100")
objRange.Value = dat()
Set objRange = Nothing
TimeEnd
End Sub
こちらは13.9秒です。 Excelを非表示でも11秒です。
Private Sub Command2_Click()
TimeStart
Dim dat(1 To 100, 1 To 10) As Long
Dim i As Long, j As Long
For i = 1 To 100
For j = 1 To 10
dat(i, j) = i
Next j
Next i
For i = 1 To 100
For j = 1 To 10
xlSheet.Cells(i, j).Value = dat(i, j)
Next j
Next i
TimeEnd
End Sub