Randomizeがある時とない時の違いがわからな

質問

ｖｂａです

Sub Sample1()
Randomize
Debug.Print Int((6 - 1 + 1) * Rnd + 1)
End Sub

Sub Sample2()
Debug.Print Int((6 - 1 + 1) * Rnd + 1)
End Sub

の違いがわからないのですが、
Randomizeはどのような役割をなしてるのでしょうか？

Sample1の結果は、
5
3
3
4
3
1
6
5
3
4

で、
Sample2の結果は、
4
5
4
3
4
1
4
1
6
1
5
5

でした。

回答No.2

okormazd · ベストアンサー

質問のコードでは違いが判るコードではありません。
下記のように比較してみてください。

x = Rnd(-1)は、同じ乱数系列を発生させる関数です。
Randomizeは乱数系列を再設定するので、違う乱数系列を発生します。

Sub Sample1()
For j = 1 To 3
x = Rnd(-1)
Randomize
For i = 1 To 10
Debug.Print Int(6 * Rnd(1) + 1),
Next
Debug.Print
Next
End Sub

Sub Sample2()
For j = 1 To 3
x = Rnd(-1)
For i = 1 To 10
Debug.Print Int(6 * Rnd(1) + 1),
Next
Debug.Print
Next
End Sub

お礼

ご回答ありがとうございます。

回答No.1

mt2008

乱数ジェネレータを初期化するのですが……論より証拠。

1.Excelを終了。
2.保存したブックを開いてSample2を動かす。

という作業を数回行ってみてください。
全て同じ結果になるはずです。

次に同じことをSample1で行ってください。
違う結果になっているはずです。

お礼

ご回答ありがとうございます。