エクセル VBA 入門 乱数


乱数を発生させる

Randomize
乱数を初期化する
Rnd
1以下の乱数を発生される

サンプルソース

——————–
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

シェアする

  • このエントリーをはてなブックマークに追加

フォローする

Translate »