整数乱数の発生方法

INT関数

指定した数値を超えない最大の整数を返します。

[書式]　INT (数値）

数値：　切り捨てて整数にする実数を指定します。

任意の範囲の整数乱数を生成する

　[書式]　Int ( (上限 - 下限 + 1) * Rnd + 下限)

例　１以下の整数乱数を発生させる：　０または１

上限: 1、下限: 0 なので、上限 - 下限 + 1 = 1 - 0 + 1 = 2 となります。

Sub IntRand01()
  Dim i
  Randomize
  For i = 1 To 10
    Cells(i, 1).Value = Int(2 * Rnd(1))
  Next i
End Sub

例　１～６までの整数乱数を発生させる　－　サイコロ

上限: 6、下限: 1 なので、上限 - 下限 + 1 = 6 - 1 + 1 = 6 となります。

Sub IntRand02()
  Dim i
  Randomize
  For i = 1 To 10
    Cells(i, 1).Value = Int(6 * Rnd(1)) + 1
  Next i
End Sub