乱数の生成

2023年7月9日

Sub testing()
    Randomize '乱数初期化
    Dim res As Long, n As Long: n = 10
    res = Int(n * Rnd + 1)
    Debug.Print res
End Sub

・INT()→小数点を切り捨てる関数

・これで1 ～ n の乱数を生成、この例では1～10