学习资源:《Excel VBA从入门到进阶》第45集 by兰色幻想
本集讲的是随机抽取,和之前的字典、棋盘法有点像。下面用一些例子来举例说明。
例1:写一个抽奖小程序,在A-J 10个人里抽取一个朋友送小礼物。
-思路:
A-J,编号就是1-10,我们需要随机抽取1-10之间的10个整数,这时可以使用随机函数Rnd()。
Rnd()函数:返回一个小于1但大于或等于0的值。
-程序:
Sub 抽奖小程序()
Dim num As Integer
num = (Rnd() * (10 - 1) + 1) 1
Range("C3") = Range("C" & (num + 4))
End Sub
-分析:
num = (Rnd() * (10 - 1) + 1) 1
① 1 :运算取整。
② Rnd() * (10 - 1) + 1,为什么不是写成Rnd() *10 ÿ