ソートの時間比較について

質問

ランダムな数値群をソートする際の時間比較をしています。
計測時間を見てみると
バブルソート（交換法）＜挿入＜選択
の順番になるのですがこれってあってますか？
Sub 基本選択法()
t = Timer
n = Cells(2, 3).Value
swap = 0
compare = 0
For i = 1 To n - 1

For j = i + 1 To n
If Cells(i, 1).Value > Cells(j, 1).Value Then
wk = Cells(j, 1).Value
Cells(j, 1).Value = Cells(i, 1).Value
Cells(i, 1).Value = wk
swap = swap + 1
'Sleep (300)
'Calculate
End If
compare = compare + 1
Next j
Calculate
Next i
Range("C3").Select
Selection.Value = compare
Range("C4").Value = swap
Range("C5").Value = (Timer - t)
Range("C1") = "選択法"
End Sub

Sub 基本挿入法()
t = Timer
n = Cells(2, 3).Value
swap = 0
compare = 0
For i = 2 To n
For j = i To 2 Step -1
If Cells(j, 1).Value < Cells(j - 1, 1).Value Then
wk = Cells(j, 1).Value
Cells(j, 1).Value = Cells(j - 1, 1).Value
Cells(j - 1, 1).Value = wk
swap = swap + 1
Else
Exit For
'Sleep (40300)
'Calculate
End If
compare = compare + 1
Next j
Calculate
Next i
Range("C3").Select
Selection.Value = compare
Range("C4").Value = swap
Range("C5").Value = (Timer - t)
Range("C1") = "挿入法"
End Sub

Sub 基本交換法()
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "並べ替え中"
t = Timer
n = Cells(2, 3).Value
swap = 0
compare = 0
For i = n - 1 To 1 Step -1
For j = 1 To i
If Cells(j, 1).Value > Cells(j + 1, 1).Value Then
wk = Cells(j, 1).Value
Cells(j, 1).Value = Cells(j + 1, 1).Value
Cells(j + 1, 1).Value = wk
swap = swap + 1
'Sleep (300)
'Calculate
End If
compare = compare + 1
Next j
Calculate
Next i
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "基本交換法"
Range("C3").Select
Selection.Value = compare
Range("C4").Value = swap
Range("C5").Value = (Timer - t)
Range("C1") = "交換法"
End Sub

回答No.2

redfox63 · ベストアンサー

ソートの具合を見るために Calculateをしているとしてもこれを呼び出す回数とこのときのExcel側の負荷の違いによって時間比較の意味がなくなってしまうように思います

先にどれぐらいの回数ここが実行されるのかを見当をつけ
Collectionオブジェクトなどに追加して保存しておきます
ソート実行後にこのコレクションを使ってグラフ更新などのアニメーションをする方向で考えてみてはいかがでしょう

コレクションオブジェクトに追加していく負荷がどれくらいか検証していないので申し訳ありませんが グラフの更新よりかは少ない負荷だと思います

お礼

うまくいきました。ありがとうございます。

回答No.1

redfox63

Excelでやるなら Excelに起因する時間のロスを排除して比較しないと意味がないと思いますよ
Cellsは時間がかかるので if文や値の更新用に使っている部分で時間的なロスが発生します
この比較や参照、代入の回数に差がある場合時間的な比較が意味を成さなくなります

最初にヴァリアント型の配列などに読み込んでしまって3種類の方法で同じ条件にして見ましょう

各マクロの先頭部分で
dim v
n = Cells(2,3)
v = Range("A1:A" & n )
といった具合に 変数ｖにデータを読み込んでしまいます
後はif文など Cells(j,1).Value といった部分を ｖ(j,1) といった具合に置き換えます

iのループの中で Calculateを実行していますがこれは本当に必要なのでしょうか
これもExcel側に起因する要因になると思いますよ

これらの素因を排除して4096個の要素で実行した結果
　選択法　　挿入法　　交換法
　8386560 　4199386 　　8386560
　3698034 　4199386 　　4199386
　25.0659　19.5680　　26.9780
当方の非力なマシンのではこのようになりました

交換法 > 選択法 > 挿入法

お礼

おっしゃるとおり配列に読み込むと正しい結果になりました。
ちなみに、office2007でグラフ描画なんかやってみると
10倍くらい遅くなります・・・

補足

何故に必要もないcalculate入っているのかが今回のミソなんです。
実はグラフがあって、これにソートをしながら描写してソートを視覚的に確認したいというのがあります。
（再計算を手動にしないと遅くて動かないし、かといって再計算しないと最初と終わりしか表示できない）
なにかうまいこと回避する方法はないでしょうか？
（グラフではない描写の仕方を考えるべき？）
dim v
n = Cells(2,3)
v = Range("A1:A" & n )
こんなことが出来るんですね。いつも配列を使っていたんですがこれをやれば一発ですね。ありがとうございます。