【VBA】 乱数の作り方

はじめに

VBAで乱数の作って色々ツールを作ったので、VBAで乱数を作る方法を記事にしたいと思います。

課題

"""乱数を10回分生成し、1から6までの数をランダムに作り、ポップアップメッセージに表示するマクロを作ってください

実装例

実装例は以下の通りです

Sub ransu_test()
    Dim n As Long
    Dim i As Long
    '乱数発生メソッドを実行
    Randomize
    '乱数を10回分生成してポップアップメッセージに表示する。
    For i = 1 To 10
        n = Int(6 * Rnd + 1)
        MsgBox n
    Next i
End Sub

Randmizeを1回呼び出しておいて、

Int(6 * Rnd + 1)

で1～6までの整数がランダムに取り出せます。

最後に

乱数の作り方を記事にしました。