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

问题描述:

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

Public Function iRnd(a As Integer,b As Integer) As IntegeriRnd = Int(Rnd * (Abs(a - b) + 1)) + IIf(a >= b,b,a)End Function-------两个参数:a,b 表示上限和下限,没有前后之分(a是上限或下限都行,b也一样)...