Excel图表制作

如何用excel表格表抽奖

发布时间：2024-01-04 10:45:01Excel图表制作次评论

1.关于EXCEL建造抽奖发起用微软的OFFICE，用VBA实现动态结果。右键sheet1，查察代码。粘贴下面的代码。要抽奖时。按一下按钮。 Sub a() For i = 1 To 1000 Cells.Interior.ColorIndex = -4142 j = Int(Rn

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列将显示抽奖功效，每次页面刷新，名单城市产生变革。