怎么用excel表格表抽奖

1.关于EXCEL制作抽奖

建议用微软的OFFICE，用VBA实现动态效果。

右键sheet1，查看代码。粘贴下面的代码。要抽奖时。按一下按钮。

Sub a()

For i = 1 To 1000

Cells.Interior.ColorIndex = -4142

j = Int(Rnd * 10 + 1) '10列

k = Int(Rnd * 10 + 1) '10行

Cells(k, j).Interior.ColorIndex = 3

Next i

MsgBox "恭喜" & Cells(k, j) & "号中奖！" '消息提示框

End Sub

2.怎么用EXCEL作抽奖器

如下图格式，输入员工名单，随机数字，和中奖名单。我们假定在20里抽取3名幸运者。

在B3单元格里输入“=RAND（)”，按ENTER键，注意括号要英文状态下的。产生一个随机数字。

下拉复制公式到B22

在D3单元格中输入“=INDEX(A$3:A$22,RANK(B3,B$3:B$22)）”，按ENTER键，注意括号和标点符号要英文状态下的。

D3显示A列员工名单中任一人，下拉复制到D5.

现在就按住F9键进行随机抽奖吧。

3.用EXCEl做一个抽奖器,每个人输入工号只能抽奖一次,抽奖后回记

1/.在A1:A10区域用=rand（)函数，这里就生成10个小于1的小数。

2/.再在B1:B10区域的B1单元格设置函数=rank(A1,A1:A10)向下复制进行排序，放心，不会有重名的。

3/.在C1:C10输入10个参与抽奖人名。

4/.比喻说只有前三名中奖，在D1:D3输入 1,2,3

5/.在E1:E3中的E1输入函数=vlookup(D1,$B$1:$C$10,2，)向下复制。

这时就简单的抽奖名单制作完成了，E列将显示抽奖结果，每次页面刷新，名单都会发生变化。