excel中的抽奖程序

软件介绍: EXCEL年会等活动必备抽奖工具,这个是EXCEL表形式的小工具。请选择包含抽奖人员名单的EXCEL工作簿，其中名单必须位于工作簿中第一个Sheet表的A列中。剔除名单路径：选择要剔除人员的EXCEL工作簿，其中名单必须位于工作簿中第一个Sheet表的A列中，无需剔除则在此处留空。需要启用宏：若你的电脑已禁用了宏。宏可能包含病毒或其他安全隐患。如果不信任此文件的来源，请不要启用此内容。警告: 不能确定此内容来自可信任来源。除非此内容提供关键功能，并且您信任其来源，否则应禁用此内容。

用EXCEL的VBA做的小型抽奖程序，程序页面按钮为启动窗体，具体代码在窗体程序中。

EXCEL做的抽奖小程序，名单由外部导入，可放弃名额，可更换背景图片 密码是1

抽奖软件 可设置范围，会过滤已抽取号码 用于开年会办活动、抽签，很实用的软件

１、完全免费，您可以使用本软件用于任何目的，但是该软件的最终版权归微方软件开发实验室所有。 ２、精心设计的公正、平等的随机函数，每人中奖的机率均等。 ３、使用者可以自定义抽奖的台头及活动名称。 ４、使用者可以自定义背景音乐。 ５、使用者可以自定义是否自动抽奖。 ６、可以由Excel文档中导入参加抽奖的人员列表（需要设置Excel文档的格式符合），具体格式可以参考系统附带的模版，其格式主要要求是Excel的工作簿的名称必须为"Sheet1"并且第一行的内容依顺序为：ID,NAME,MEMO ７、可以导出抽奖人员列表到Excel文档。 ８、可以导出中奖人员列表到Excel文档。 ９、所有导入的人员均只有一次中奖的机会！ １０、系统热键：F5开始　F6停止 　　注意：如果已在中奖人员列表中存在的人员将不会有再次获奖的机会，所以在正式抽奖钱请您先清除中奖人员列表。

这里只给大家提供一个部分免费（奖项数<=10时）的程序供参考。 其主要功能如下： 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项，抽奖顺序没有限制。 2、对于任意一等奖来说，可以一次抽取任意数量的奖项； 3、背景、界面用户可自行调整； 4、抽奖背景音乐用户可换； 5、可以在抽奖过程中显示中奖者的照片； 6、抽奖过程中可以显示用户所在的部门信息； 7、对于要求必须在场的抽奖，当中奖人不在场时可以做弃权处理； 8、抽奖结果立即存入Excel“抽奖结果”工作表中。 使用说明及注意事项 　 1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低，然后关闭Excel重新打开，否则无法运行抽奖 程序。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种，即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置，抽奖过程中需手动在《 抽奖》工作表中切换抽奖级别。 4、本程序支持两种抽奖方法：每次抽取一组中的全部名额，或每次抽取指定的若干名额。但是推荐一次抽取1个，因为大余一 个时只能显示最后一名中奖者的照片，且显示众多中奖者的名字时布局不是很美观。 5、单项最多可设 5000 名中奖者，中奖者总数不能多于参与人数，否则在抽取最后一人时会出现死循环。 6、请在《参与名单》工作表中录入所有参与抽奖的人员。参与人数仅受Excel行数限制，输入时请连续纵向输入，不留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的人将被自动剔除，后面的抽奖中将不再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖参与人总数时，程序将出现死循环。 9、抽奖一旦开始，请完成整个抽奖过程，不要中途退出程序或追加参与人名单。 10、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。