如何 *** excel抽奖小程序?
通过Randbetween,EXCEL可以抽奖、rand等函数也可以获得随机结果,但不直观,不懂也不知道这个结果是怎么来的,不公平。
现在我想和大家分享一个PT+EXCEL实现的抽奖程序。
到年底,许多公司都在准备年会,但年会彩票是必不可少的,为了使彩票程序更直观,通过VBA在PPT后台EXCEL彩票名称实现随机滚动效果,在滚动过程中根据彩票结果随机定位,中奖者将不再进行后续彩票,并将彩票结果写入EXCEL中奖者。
功能如下:
座号循环随机滚动
按回车键抽奖一次抽出一名员工,并将中奖员工信息写入EXCEL中奖人员表。同时,员工将不再参加后续抽奖
一等奖、二等奖、三等奖等奖项可简单修改后设置
抽奖结果在EXCEL抽奖人员中随机抽取,绝对公平,程序代码不控制抽奖结果。抽奖结果取决于抽奖时回车时随时滚动的名单。
抽奖的主界面可以添加图片和动画效果
抽奖界面可以添加图片和动画效果
抽奖结束后,记录中奖者名单
抽奖时,抽奖者通过座位号随机滚动
部分VBA代码
0