VBA在指定范围内生成随机数、随机整数

VBA中的Rnd函数可以产生一个小于1但大于或等于0的随机数，如果想要随机数生成在指定范围内，可以这样：

Sub 在指定范围内生成随机数()
Min = 100   '最小下限
Max = 300   '最大上限
Random = (Max - Min) * Rnd() + Min
MsgBox "取得随机数：" & Random
End Sub

这个代码利用VBA中的Rnd()随机函数产生一个随机数，然后通过乘以指定范围的差值获得增量，因为Rnd的随机数小于1但大于或等于0，所以增量不会超出差值，再加上最小下限，就可得到在范围内的随机数。

以上代码获得的随机数是小数，如果想要获得随机整数，可以再套入一个int函数：

Sub 在指定范围内生成随机整数()
Min = 100   '最小下限
Max = 300   '最大上限
Random = Int((Max - Min) * Rnd() + Min)
MsgBox "取得随机数：" & Random
End Sub

想要了解更多VBA相关知识，欢迎到http://moqingyan.360doc.com我的个人图书馆查看。