利用excel实现简易抽奖

Ⅰ.抽奖样式（一）

实现步骤：

随意选取一列输入文本，然后再随意选取一个表格作为抽奖显示框，在显示框里输入

=indirect("文本所在列"&randbetween(文本所在行的范围))

Ⅱ.抽奖样式（二）

实现步骤：

随意选取一列输入文本，再随意选取一列生成随机数，公式为

=rand()

最后再选取一列输出抽奖结果，公式为

=index(文本所在列,rank(随机数所在列的第一个值的位置,随机数所在列的范围))

Ⅲ.抽奖样式（三）

VBA程序：

Dim a As Integer '定义公共变量
Sub 随机()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始化
10:
x = Rnd() * (8 - 2) + 2 '生成2至8的随机数，代表行数
y = Rnd() * (5 - 2) + 2 '生成2至5的随机数，代表列数
Range("b2:e8").Interior.ColorIndex = xlNone '去掉填充色
Cells(x, y).Interior.ColorIndex = 3 '填充为红色
DoEvents '释放程序控制权，允许其他事件
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
GoTo 10
End Sub
Sub 结束()
a = 1 '结束标志
End Sub

实现步骤：

1）确定好文本所在位置并输入文本

2）进入visual basic，双击抽奖所在的sheet进入vba编辑框输入代码

3）插入控件，完成