随机抽人名小程序_VBA学习笔记45:随机抽取

学习资源：《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 ÿ