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作抽奖器

参阅：

1 抽奖我们就以大乐透的形式来讲，在1到37之间选7个数，这7个数就是获奖的数字。

2 这时候我们要用到的公式就是：

=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=TRANSPOSE($C$38:$C38))*1,($C$38:$C38)*0+1),,ROW(INDIRECT($C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))

这个公式很长，我们在下面的截图中看不全，但是你只要知道就好。这就是我们要的七个获奖数字。

3 如果你想要一组别的获奖数字，就像大乐透的下一期，那你可以把点鼠标左键，选中一个单元格，把鼠标移动到这个单元格的右下角当鼠标的指示变成一个加号的时候你可以向下拖动，这可以生成下一组了

4 这样就生成了，您的摇奖器就生成了。

5 剔除上期开奖号选号

如果是在一个晚会，药分别在晚会中间和晚会结束前，摇两次奖。但幸运观众不能重复获奖。这就要求剔除上期开奖号选号。

6 首先我们用刚才的办法生成一组获奖数字。还是那个公式，就是单元格变化了。

=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=TRANSPOSE($F$38:$F38))*1,($F$38:$F38)*0+1),,ROW(INDIRECT($C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))

7 这时候我们要用的公式就是：

=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=TRANSPOSE($F$38:$F45))*1,($F$38:$F45)*0+1),,ROW(INDIRECT($C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))

就是生成公式的变形。

8 这样就能满足两次获奖数字不一样了。