又到了年底了,去年写了个抽奖器,到今天还有人问,有些代码修改了一下,帮朋友改了个座位号抽奖,对于小型简单的年会,销售活动现场等还是挺实用的,今年持续升级 更换了更漂亮的背景 ,修改了抽奖滚动稳定性
同时升级了选项设置,可选择设置是否重复
先看视频
功能如下▼
座位号循环滚动 可设置滚动速度
点击抽奖一次抽出一个
循环不重复抽奖 可设为允许重复
抽奖数据可在Excel文件自行修改!
注意需要启用宏才可使用
注意本ppt不支持wps
动图演示如下▼
VBA代码
姓名抽奖▼
本PPT抽奖器代码开源 , 请下载如需修改请自行调试, 无法运行可加微信EXCEL880B