Dim T
'ミリ秒単位で計測
T = Timer '0時からの時間を取得'----VBAコードを記載----
Debug.Print Timer - T & " 秒" '計測した時間を表示
Dim A, B, C, D
'時間単位で計測
A = Now '今日の日付+現在の時間を取得'----VBAコードを記載----
B = Now '今日の日付+現在の時間を取得
C = Int(B - A) '差分を計算して、整数部分を取得'差分を計算して、日付型に変換して、時間部分を取得
D = TimeValue(CDate(B - A))
Sub TEST4()
Dim T
'0時からの時間を取得
T = Timer
'セルに1~1000000の数値を入力
For i = 1 To 1000000
Cells(i, 1) = i
Next
'計測した時間を表示
Debug.Print Timer - T & " 秒"
End Sub
実行してみます。
実測した時間です。
結果は、『35.99219 秒』となりました。
配列に1~1000000の数値を格納して、セルに一括で入力
次は、配列を使って1~1000000の数値をセルに一括で入力するVBAコードです。
Sub TEST5()
Dim T
'0時からの時間を取得
T = Timer
'配列に1~1000000の数値を格納
Dim A
ReDim A(1 To 1000000, 1 To 1)
For i = 1 To UBound(A)
A(i, 1) = i
Next
'セルに一括で入力
Range("A1").Resize(UBound(A)) = A
'計測した時間を表示
Debug.Print Timer - T & " 秒"
End Sub
Sub TEST6()
Dim A, B, C, D
'今日の日付+現在の時間を取得
A = Now
'セルに1~1000000の数値を入力
For i = 1 To 1000000
Cells(i, 1) = i
Next
'今日の日付+現在の時間を取得
B = Now
C = Int(B - A) '差分を計算して、整数部分を取得'差分を計算して、日付型に変換して、時間部分を取得
D = TimeValue(CDate(B - A))
'計測した時間を表示
Debug.Print C & "日と" & D
End Sub