VBA 乱数を自動作成する

Rnd関数

Rnd関数で乱数生成構文式

Int(Rnd()*(最大値-最小値+1）+最小値）

乱数を自動作成する

Sub test1()

’　1から3までの乱数を自動生成

    Randomize　’乱数系列を初期化

    Cells(2, 1) = Int(Rnd() * 3) + 1
    Cells(3, 1) = Int(Rnd() * 3) + 1
    Cells(4, 1) = Int(Rnd() * 3) + 1

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　乱数でおみくじを作る』

『VBA　1から９まで重複しない乱数自動生成』