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我的个人图书馆查看。 |
|
|
