min以上max以下の乱数を取得

■min以上max以下の乱数を取得

Function RndBetween(min As Long, max As Long) As Long

    Randomize
    RndBetween = Int((max - min + 1) * Rnd + min)

End Function

■min以上max以下の乱数を取得(ワークシート関数使用)

Function RndBetween(min As Long, max As Long) As Long

    RndBetween = WorksheetFunction.RandBetween(min, max)

End Function