转贴:Excel VBA 创建点名或抽奖小程序,滚动显示,很刺激!【excelv...

链接: https://pan.baidu.com/s/1uPuzqz5n5Bb83-zlPV0piw?pwd=qgk5
提取码: qgk5
请指教
抽奖工具，带音效，按键启停，自动记录各奖项的中奖名单
1、本工具用EXCEL开发，未验证WPS是否能正常运行，有可能会出现报错。本工具有使用API，但32位和64位的系统已经做了自适应，不需要修改程序。
2、抽奖开始滚动名字时请不要使用ESC或ALT+S来结束，会可能造成程序出错（各种SAO操作在做工具时可能未有考虑到，所以请严格按文件内的使用流程进行操作）。
3、需要如果在结束一轮抽奖后自动打印，请先选择好需要使用的打印机，本工具默认打开的时候会自动获取系统中已经安排的所有打印机名字，可以直接通过[名单]表内的A14单元格下拉框选择，但在打印前没有验证A14单元格的打印机是否存在，如果没有相关打印机会出错。
4、如果想指定中奖人，可以在TimerOff这个过程里面做，具体自己想如何做，也可以联系我二次开发。
5、[抽奖]页除了相关的文本框不能删除或改名外，其它图和字体都可以根据自己的需要进行修改和调整位置。
6、[抽奖]页中奖名单内的4列数据的位置只根据“抽奖顺序"的那个文本框的TOP进行定位的，LEFT没有调整，所以如果需要调整位置请注意这点。