2019年即将结束
年初定的小目标都实现了吗?
年底将近,年会 马上就要来了
有木有很期待,很激动,很开心呢 ~~
大家对年会最期待的是什么呢
唱歌?跳舞?玩游戏?
或者是老板2个小时的演讲?
......
不不不,这些都不是
最令人期待的自然是抽奖啦!
万元现金
iPhone X
华为mate 30
扫地机器人
大疆无人机
日韩7日游
.......
你最想抽中哪个?
虽然一直与大奖无缘,
但是内心仍然坚信自己会人品爆发的!
老板说,网上很多抽奖软件都不靠谱,让我自己做一个!
我内心是拒绝的,但是依然笑盈盈的对老板说:好的!!!
不用Java、不用C++,我用Excel做了一个抽奖软件,非常好用,老板都惊呆了!
1
第一步
将所有参与抽奖的名单放在sheet“抽奖名单”中,然后每个姓名生成一个对应的随机号码。
2
第二步
使用快捷键【Alt+F11】打开VBA代码遍及窗口,新增模块,将代码复制到VBA宏中,然后增加控件,点击控件右键指定对应的宏。
3
第三步
点击“洗牌”,会将待抽奖的随机号码进行二次随机分配位置。
点击“开始”,开始进入抽奖环节,在号码池中开始随机筛选。
点击“结束”,随机筛选的号码和姓名,通过窗口展示,并且将结果写入到中奖区。
以此类推,直到所有的中奖名单全部抽取完成。
话不多说,上代码:
往期精选
【Excel函数】
最快求和合集
乘积求和SUMPRODUCT
查找函数应用合集
位置函数ROW/COLUMN/CELL
查找函数INDEX
查找函数MATCH
查找函数VLOOKUP
数学函数ROUND/RAND/RANK
条件统计函数SUMIF/COUNTIF
基础数学函数SUM/COUNT...
逻辑函数IF/AND/OR
【Excel入门】
认识Excel公式和函数
Excel单元格引用
Excel单元格格式小编在这里
感谢各位粉丝对“海豚Excel轻松学”的关注~~
大家对教程有什么建议,或者希望学习哪些内容,都可以在公众号发私信哦,小编都会看的呢。