関数 VBA: Rnd

説明

VBA Rnd 関数は、1 未満で 0 以上の乱数を返します。

構文 Rnd

Rnd

例 VBA Rnd

Rnd 関数によって返される値の例をいくつか示します。

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd '戻り値: 例: 0.1790262
    MsgBox Rnd '戻り値の例: 0.734448
    MsgBox Rnd '戻り値の例: 0.4870669
    MsgBox Rnd '戻り値: 例: 0.9100572
    MsgBox Rnd '戻り値: 例: 0.7860449
    MsgBox Rnd '戻り値: 例: 0.1607063
    
End Sub

乱数が繰り返されないように、Rnd 関数を使用する前に、必ず Randomize ステートメントをプロシージャまたは関数に追加してください。

Rnd 関数を使用して、1 から 10 までのランダムな整数を生成してみましょう。

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber '戻り値の例: 6
    MsgBox RandomNumber '戻り値の例: 2
    MsgBox RandomNumber '戻り値の例: 10
    MsgBox RandomNumber '戻り値の例: 7
    MsgBox RandomNumber '戻り値の例: 9
    MsgBox RandomNumber '戻り値の例: 1
    MsgBox RandomNumber '戻り値の例: 8
    
End Sub