VBA 繰り返しの「For~Next」と「Do～Loop」どちらが早いのか？

- 0.0.1 taka
- 0.0.2 最新記事 by taka (全て見る)

1 「For~Next」と「Do～Loop」どちらが早いのかテストしてみた

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

「For~Next」と「Do～Loop」どちらが早いのかテストしてみた

という訳で、「For~Next」と「Do～Loop」、どちらが早いのかテストしてみました(^^♪

「あれ？For～Eachは？」と思われたかもしれませんが、昔に途中まで作成していたコードがありまして、今回はそれを流用した形でFor～Eachを使用する作りになっていなかったんです(笑)

まぁ、言ってしまうと同じ条件の繰り返し処理なら「For～Each」が一番早いと思います(笑)

テスト条件/テスト内容

さて、今回のtestは下記の条件で実施しております(^^♪

パーツ名	使用パーツ
OS	Windows10
CPU	Core™ i3-7100
メモリ	8GB
ExcelVer	Excel2013

テスト内容は「For~Next」・「Do～Loop」それぞれで1億回足し算を繰り返しを1セットとして、その計算を10セット繰り返す処理を実行します。

つまり20億回の足し算を繰り返して結果を求めます(^^)/

テスト結果/テスト用コード

さて気になる結果ですがこのような結果となりました(^^)/

計算回数	For～Next	Do～Loop
1回目	0.625秒	0.984秒
2回目	0.61秒	0.984秒
3回目	0.625秒	0.984秒
4回目	0.61秒	1秒
5回目	0.625秒	1.109秒
6回目	0.609秒	0.985秒
7回目	0.625秒	0.984秒
8回目	0.625秒	1.016秒
9回目	0.64秒	0.985秒
10回目	0.609秒	0.985秒

という訳で、10回のテストの結果、For～Nextのほうが若干早いという事がわかりました！

今回のテストはあくまで加算(足し算)のみです。使用条件や処理内容で内容が変わることもございます。

今回使用したコードをUP表示しておきますので気になる方はご使用ください(^^♪

 Private Declare Function GetTickCount Lib "Kernel32" () As Long
 Sub sample()

 Dim Start As Long
 Dim Goal As Long
 Dim i As Long
 Dim r As Long
 Dim cnt As Long
 

'
 For r = 1 To 10
'For～Next----------------------------
 Start = GetTickCount '測定スタート
   For i = 1 To 100000000
   cnt = cnt + 1
  Next i
  Goal = GetTickCount '測定終了
  Worksheets("テスト").Cells(r, 2).Value = (Goal - Start) / 1000 & "秒" '測定結果
'Do～Loop----------------------------
 Start = GetTickCount '測定スタート
i = 1
Do
   cnt = cnt + 1
   i = i + 1
Loop While i <= 100000001

  Goal = GetTickCount '測定終了
  Worksheets("テスト").Cells(r, 3).Value = (Goal - Start) / 1000 & "秒" '測定結果
'
Next r


 End Sub

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub sample()

Dim Start As Long

Dim Goal As Long

Dim i As Long

Dim r As Long

Dim cnt As Long

For r = 1 To 10

'For～Next----------------------------

Start = GetTickCount '測定スタート

For i = 1 To 100000000

cnt = cnt + 1

Next i

Goal = GetTickCount '測定終了

Worksheets("テスト").Cells(r, 2).Value = (Goal - Start) / 1000 & "秒" '測定結果

'Do～Loop----------------------------

Start = GetTickCount '測定スタート

i = 1

cnt = cnt + 1

i = i + 1

Loop While i <= 100000001

Goal = GetTickCount '測定終了

Worksheets("テスト").Cells(r, 3).Value = (Goal - Start) / 1000 & "秒" '測定結果

Next r

End Sub

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterフォロー

Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

Follow @takabou63

カテゴリーで絞る

月で探す

VBA 繰り返しの「For~Next」と「Do～Loop」どちらが早いのか？

taka

最新記事 by taka (全て見る)