乱数を発生させる
Randomize
乱数を初期化する
Rnd
1以下の乱数を発生される
サンプルソース
——————–
Option Explicit
Sub start()
Dim r As Integer
Option Explicit
Sub start()
Dim r As Integer
Randomize
Range(“A1”) = Rnd
Range(“A2”) = Rnd
Range(“A3”) = Rnd
Range(“A4”) = Rnd
End Sub
——————–
実行結果（乱数なのでこの数値にはならない）
0.420116603
0.608466744
0.698140442
0.902446985