Excel抽奖小工具(用Excel制作公司年会的抽奖系统)

最新推荐文章于 2025-04-11 15:10:03 发布
最新推荐文章于 2025-04-11 15:10:03 发布
阅读量1k 收藏 3
点赞数
文章标签： excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/wang_zhong_cheng/article/details/120191471
版权
这篇博客展示了如何利用Excel创建公司年会抽奖系统。通过宏代码实现，默认设置覆盖2-201行的人员名单，若需调整名单范围，只需修改源代码第7行。提供直接下载链接供读者使用。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

成果展示

在这里插入图片描述

宏代码

默认取人员名单2-201行，需要增加减少自定义行数，修改第7行代码即可

Dim flag
Sub 开始()
c = Rnd
Dim rng As Range
Set dic = CreateObject("scripting.dictionary")
n = 0
For i = 2 To 201
If Application.WorksheetFunction
最低0.47元/天 解锁文章
永不抹灭
关注
EXCEL实现抽奖系统
05-20
利用EXCEL VBA实现抽奖界面，可以导入人员，同时做了窗体
Excel抽奖程序（春节抽奖）
01-17
这是一个共享软件，除了可以在本站下载外，你还可以在http://dl.dbank.com/c0e431w4g9# 下载。其主要功能如下： 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、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。 　 　 关于《抽奖》工作表的界面设置的几点说明： 1、修改《抽奖》工作表的界面时需要先解锁工作表。具体方法：“工具”-“保护”-“解锁工作表”。修改完后最好锁定工作表。 2、抽奖时可隐藏Excel航标、列表。具体方法：“工具”-“选项”-“视图”-“行号列号”，取消勾选前面的复选框。 3、在调整《抽奖》工作表时，不可插入、删除行或列。 4、一般地，修改《抽奖》工作表布局可以通过调整第一行的行高或第一列的列宽来实现。如果你要对控件进行详细布局设计（例如改变控件大 小），你可以通过控件设计模式来实现。具体方法：“视图”-“工具栏”-“退出设计模式”。 这时，你可以随意拖动按钮或照片控件的位 置及大小。调整完成后必须退出设计模式（将“退出设计模式”前面的勾取消掉）。系统的默认位置为D2单元格。 5、为满足多人抽奖的需要，《抽奖》工作表中的D5:D65536（即D列中从第5行到65535行）用来显示中奖者姓名。该列采用了条件格式，用特殊 的格式来显示中奖者的姓名。如果你需要更改这个样式，可在编辑工具栏(显示fx的那个工具栏)最左边的“名称框”中选择“ResultDisplay” 或输入D5:D65536并回车，这时这些单元格会被自动选上，然后从工具栏中的“格式”-“条件格式”中修改。 6、《抽奖》工作表中的下拉列表根据设置自动生成，请不要更改其下拉列表的内容。 7、全屏显示。具体方法：“视图”-“全屏显示”。 8、更换背景。具体方法：“格式”-“工作表”-“背景”，选择你要的背景图片即可。 9、更换默认照片。具体方法：替换photo文件夹下面的“none.jpg”这个图片文件即可。 10、若要在抽奖过程中显示中奖者的照片，则需把抽奖人的照片放到photo文件夹下面，同时在《候选名单》工作表的C列给出照片名。 11、若要更改在抽奖过程中播放的声音，可以替换Music文件夹下面的start.wav、finish.wav文件。
公司年会抽奖系统
最新发布
gitblog_06724的博客
04-11 750
公司年会抽奖系统 【下载地址】公司年会抽奖系统 公司年会抽奖系统是一款功能全面、操作简便的开源工具，专为年会活动设计。它支持自定义奖项设置、抽奖次数控制、参与人数配置等，满足不同规模和风格的年会需求。系统提供清晰的抽奖区和中奖名单展示，确保抽奖过程公平透明。通过灵活的规则设置，您可以根据年会特色调整抽奖流程，为活动增添更...
【EXCEL】抽奖工具
孙文员的打工笔记
07-05 1084
这里使用的公示是vlookup配合if，实现查询序号的右侧值，不是太能理解也可以吧名字列放到排序列的右侧用普通的Vlookup。（如果你的表想设置为超级表， 可以先【Ctrl】+【A】权限在按【Ctrl】+【T】，所选区域就会变成超级表啦）二、使用RANK(数值，参照数值区域，排序方式) 函数对RAND()函数生成的随机数进行排序。公式：VLOOKUP(D3,IF({0,1},表1[抽奖人名],表1[排序]),2,0)1、给人员名单随机生成一个[0,1)以内的数值，再给这个随机数值进行排序；
EXCEL版本抽奖
09-14
绝对可以用的，非常不错的excel版本抽奖系统，千万别错过
抽奖用excel实现
08-27
滚动抽奖，用excel实现，简单VBA搞定。
年会 抽奖 小程序 EXCEL VBA
01-12
总的来说，这个“年会抽奖小程序 EXCEL VBA”利用了Excel的VBA功能，提供了一种便捷、可定制的抽奖解决方案，尤其适用于公司年会或其他类似活动，使得抽奖环节更加有趣和高效。通过VBA的编程能力，用户可以根据自己...
EXCEL年会活动抽奖工具.rar
09-02
EXCEL年会等活动必备抽奖工具,这个是EXCEL表形式的小工具。请选择包含抽奖人员名单的EXCEL工作簿，其中名单必须位于工作簿中第一个Sheet表的A列中。剔除名单路径：选择要剔除人员的EXCEL工作簿，其中名单必须位于...
公司 企业 喜庆 年会 抽奖 系统 公司企业喜庆抽奖系统 v2.1 完美版
10-28
公司企业喜庆抽奖系统是一款专为各类企事业单位设计的抽奖软件，适用于年会、庆典、奖励活动以及促销等场合，以增添活动的趣味性和互动性。版本v2.1是该系统的完美升级版，旨在提供更加稳定、高效且用户体验良好的...
html5实现最智能大气的公司年会抽奖（源码）
12-23
html5实现最智能大气的公司年会抽奖（源码），可以直接配置员工信息然后使用的（可以导入excel、xls等文件，有文件模板），实现动态配置员工信息，实现员工只能中一次奖，实现奖品可灵活配置，奖项分为特等奖、一等...
excel公式编辑器_用Excel制作 “抽奖”小软件,很简单！
weixin_39845347的博客
10-23 653
每逢年末，公司总要举办各种晚会、总结会，有一个环节也总是必不可少：幸运抽奖。在网上也可以下载很多抽奖软件，但不一定适合自已公司使用。所以今天 就用Excel做了一个超简单、实用的抽奖工具，希望对大家有用。先看抽奖效果：是不是很想用？使用方法很简单，简单几步就可以直接使用：1、准备工作抽奖工具下载后，打开时如果遇到安全提示，点击启用内容把人员名单输入到“名单”工作表A列中下载地址(百度网盘...
Excel抽奖程序（春节抽奖）.zip
09-06
Excel抽奖程序（春节抽奖）
Excel抽奖程序
01-13
这里只给大家提供一个部分免费（奖项数<=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、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。 　
EXCEL做的抽奖系统.xls
09-10
抽奖系统.xls抽奖系统.xls抽奖系统.xls
Excel抽奖器（可自主设定名单顺序）
10-04
一个简单的excel抽奖器，可以模拟抽奖动态画面，自助设置候选名单和奖项安排（一到五等奖）。本程序布置成重复抽奖。抽奖顺序有两种，即先小奖或大奖或先大奖或小奖
公司年会自制抽奖PPT
03-01
利用VBA宏代码制作公司年会抽奖PPT，随机无作弊版。自动读取、随机抽取同目录内的namelist.txt列表的名单。已中奖名单自动排除不会重复。namelist.txt列表每个名单占一行，需要排除时在名字后加*号。
利用excel实现简易抽奖
m0_67790374的博客
03-08 2237
Ⅰ.抽奖样式（一） 实现步骤： 随意选取一列输入文本，然后再随意选取一个表格作为抽奖显示框，在显示框里输入 =indirect("文本所在列"&randbetween(文本所在行的范围)) Ⅱ.抽奖样式（二） 实现步骤： 随意选取一列输入文本，再随意选取一列生成随机数，公式为 =rand() 最后再选取一列输出抽奖结果，公式为 =index(文本所在列,rank(随机数所在列的第一个值的位置,随机数所在列的范围)) Ⅲ.抽奖样式（三） VBA程序： Di
EXCEL 制作小型抽奖小程序
qq_41157391的博客
02-26 2222
5、制作抽奖显示窗口，点击插入【文本】-【横向文本框】，点击新建的框，在上方公式栏输入：=$A$2，选中抽奖显示框中的人名和工号，设置字体颜色为红色，字号选择22，加粗，去除文本框的框线及背景色；4、制作抽奖按钮，点击【插入】-【文本框】-【绘制横排文本框】，输入文字，设置字体：华文彩云，颜色：红色，字号：22，加粗，底色都点击【形状格式】-【形状填充】-【无填充】；8、鼠标先点击要抽的几等奖后的单元格，然后再点击开始抽奖，名字开始滚动，点击停止抽奖，定格中奖姓名，点击保存抽奖，该单元格就显示中奖姓名。
EXCEL制作抽奖器
mrlanqing的博客
01-13 610
话说某公司开年会，现场举行一次抽奖环节，要从50个人中抽取10个幸运者，要求每个姓名只能出现一次。 职工名单如下图所示： 在Excel中制作随机抽奖的效果，核心是生成一组随机不重复值。 首先在B2输入以下公式，向下复制至B51单元格： =RAND() RAND函数的作用是生成介于 0 到 1 之间的随机数。 接下来在D2单元格输入以下公式，向下复制到D11： =INDEX(A$2:A$51,RANK(B2,B$2:B$51)) 简单说一下公式的意思： 先来看这部分：RANK(B2,B$2:B$51)
年会抽奖系统：智能Excel抽奖与结果管理
开发年会抽奖系统时，可能需要使用以下技术工具或编程语言： 1. .NET Framework：Windows窗体应用程序主要的开发平台之一，使用C#语言进行编程。 2. Microsoft Visual Studio：集成开发环境（IDE），用于编写、...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值