Question

如何用VBA自定义一个函数：随机生成规定范围内的整数,比如2到10之间的随机整数?

Answer 1

Public Function iRnd(a As Integer,b As Integer) As Integer

iRnd = Int(Rnd * (Abs(a - b) + 1)) + IIf(a >= b,b,a)

End Function

-------

两个参数：a,b 表示上限和下限,没有前后之分（a是上限或下限都行,b也一样）