使用Exce实现随机抽奖功能

最新推荐文章于 2023-07-05 16:21:10 发布
原创 最新推荐文章于 2023-07-05 16:21:10 发布 · 394 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍如何使用Excel中的RAND()、RANK()及VLOOKUP()函数实现自动抽奖功能。通过RAND()生成随机数确保唯一性，RANK()为参与者排名赋予唯一序号，再结合VLOOKUP()函数匹配中奖者姓名。

用到的函数：RAND(),RANK(),VLOOKUP()
在这里插入图片描述

  1. 先使用RAND函数生成随机小数（之所以使用RAND是因为小数更不容易产生重复值）
  2. 利用RANK函数得到的名次基本上就是不重复的序号
  3. 利用VLOOKUP函数将对应姓名输出就是中奖名单
  4. F9可以实时刷新
EXCEL做随机抽奖摇奖器.doc
10-07
标题中的“EXCEL做随机抽奖摇奖器”指的...总的来说，通过Excel制作的随机抽奖摇奖器是一种实用且简便的方法，它利用Excel的计算和VBA编程能力，实现了随机抽取中奖号码的功能，为企业活动或聚会增添了一种互动的乐趣。
Excel VBA随机抽奖程序
04-20
用Excel VBA做的简易随机抽奖程序，随机抽取，不会重复抽取，供各位VBA爱好者参考！
【学习笔记】用Excel制作随机抽奖器（Visual Basic编程）。
Naiva的博客
06-30 4102
目录： Excel 宏 Excel 开发者工具 Excel 添加按钮控件 Excel VB(visual basic) 编程 Excel 函数之 INDEX/RANDBETWEEN函数 Excel 函数之 VLOOKUP函数 相关问题解决方案： EXCEL做随机抽奖摇奖器（一） Excel中如何插入按钮？ Excel 2016如何在快速访问工具栏添加控件命令？ 方案一： 功能描述：利用E...
【EXCEL】抽奖工具
孙文员的打工笔记
07-05 1348
这里使用的公示是vlookup配合if，实现查询序号的右侧值，不是太能理解也可以吧名字列放到排序列的右侧用普通的Vlookup。（如果你的表想设置为超级表， 可以先【Ctrl】+【A】权限在按【Ctrl】+【T】，所选区域就会变成超级表啦）二、使用RANK(数值，参照数值区域，排序方式) 函数对RAND()函数生成的随机数进行排序。公式：VLOOKUP(D3,IF({0,1},表1[抽奖人名],表1[排序]),2,0)1、给人员名单随机生成一个[0,1)以内的数值，再给这个随机数值进行排序；
excel随机抽取_抽奖or随机点名怎么做？用EXCEL分分钟就能搞定，干货值得收藏！...
weixin_39788386的博客
11-30 2376
文/ 雷哥+小鱼儿 编辑 / 小鱼儿职场上，抽奖或随机点名等情况经常会遇到，作为组织方或负责人，你该怎么做呢？一般来说可以用EXCEL，也可以用word/ppt结合，或者用第三方抽奖软件、写代码、用小程序。今天雷哥给大家分享几种简单的方法，不用编程，简单易懂。雷哥相信你学会了以下方法，职场上如鱼得水，而且某些功能不仅仅适用于抽奖或点名，还适用于批量高效办公哦～情景：从n名员工中抽出若...
【Excel】设计简单抽奖小程序
sinat_37967865的博客
09-16 3880
其实我们可以通过excel做一个抽奖的小程序。比如搞活动送奖品，我们就可以通过这个小程序抽中奖名单...
excel之用公式实现随机抽奖
weixin_39417722的博客
04-25 2752
前言 office产品家喻户晓, 其中excel更是其中的代表, 是各行各业必备的工具. 虽然和各种高级代码的学习成本没有可比性, 但是掌握一些实用的技巧还是很有必要的. 启发 抽奖是每一个公司或者班级经常会有的一个活动, 可能会发生在几个人或者一个小团队之中, 我在之前都是用java或者vba来做的, 由于大家对代码不熟悉, 没有中奖的同事总会抱有不可思议的态度. 在前一阵阅读excel公式大全...
excel抽奖随机工具
07-30
excel抽奖随机工具，打开文件进行设置好就可以使用，丰常方便，适用与教学人员班级点名和活动抽奖现场抽奖活动。excel抽奖随机工具，打开文件进行设置好就可以使用，丰常方便，适用与教学人员班级点名和活动抽奖现场...
eXcel抽奖器.xls
最新发布
07-01
eXcel抽奖器.xls也可以通过增加图形用户界面（GUI）的功能，让使用者通过点击按钮和菜单来进行抽奖，而无需直接与宏命令或公式打交道，从而让抽奖器的使用更加友好和直观。这对于一些不熟悉Excel操作的用户尤其有...
用Excel制作抽奖软件
Ralap Zhong的专栏
02-07 1万+
本来不想写此博客，但今天是休假后第一天上班，为了更快投入工作中，因此开写。。。 　　年前应厂内要求，用Excel中的VBA编写了此套抽奖软件。之后就想干脆制作一个通用的抽奖软件，这样以后只要更新名单便可以用。名单我们一般都是用Excel统计，所以这也是我选择用Excel制作的主要原因。   下载软件   开始上图： 抽奖主界面（因为是台资企业，所以是使用的是繁体，但代码中已改回简体了。
给你30秒的时间，你会用Excel制作出一个抽奖功能吗？
佛系软件
10-15 5303
一说到抽奖，大家都是想到最近的“支付宝锦鲤信小呆”，但是今天跟大家谈论的不是这个，而是：你会用Excel制作抽奖功能吗？可能大家都不知道Excel有这么多的神技能，但是你不知道的还有很多，Excel抽奖功能的制作其实很简单，关注我，你每天都可以get到新技能！ 一起跟我看看该怎么制作这个Excel抽奖功能： 先看看动图。 1、图片所示A1:A23单元格是所有员工名字，我们要在C4单元格随...
Excel制作抽奖小程序
苹果醉了香蕉的博客
12-08 3925
                                                                     Excel制作抽奖小程序                                                                        （Win10、Excel） 1、新建一个Excel，输入以下内容 2、输入公式(这里...
Windows窗体应用程序~随机数字抽奖系统
laizhixue的博客
06-14 3270
实现后的效果图： 步骤： 1.创建Windows窗体应用程序项目 Form1.cs: using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using Syste...
【转】从题库中随机抽取100道题生成试卷
热门推荐
09-11 4万+
案例背景 小王是某大型企业安全培训师，公司要求所有参加安全培训的员工必须进行测试，测试成绩计入档案。小王必须给每次测试选题、排版，保证每次试卷不能重复，难度不能相差太大。小王为此掉了不少头发. 数据先生认为可以利用Excel公式随机筛选试题，然后通过邮件合并即可轻松搞定。   案例最终效果   ...
python使用xlwings库操作Excel常见操作
独挽离人
12-20 8082
目录安装**前置知识**详细使用步骤**一、打开Excel程序****二、保存、退出、关闭****三、新建 Excel 文件****四、读取内容****五、写入数据**1.写入当前文件2.如果要写入新的文件，可以新建一个文件然后再写入**六、获取数据范围****七、输出并修改行高列宽****八、获取及设置公式****九、 获取、设置及清除颜色格式** 安装 xlwings 是一个非标准库，需要在命令行中安装，在终端(Mac)/命令行(Win)使用pip安装即可，一般不会出现什么问题。 pip install
Excel中文本的拆分与合并
独挽离人
03-31 3150
两端对齐的巧妙使用 office2019中叫做 内容重排(同样位于填充菜单栏下) 调整列宽，点击快速重排，文字会自动根据列宽拆分或合并文字到行 多单元格的合并的几个技巧 填写要合并的实例，选择整列，Ctrl+E 快速填充 用 & 符号将前面的单元格一一连接，好处是前面内容更改，后面的内容会随之改变 代码示例=A5&B5&C5&D5 使用Phonetic...
Excel中常用的几个快捷键及小技巧
独挽离人
03-30 2495
快捷键 Ctrl+下 直接到底边缘(其他的同理) Ctrl+Shift+下 从当前位置选中到下面所有区域（按住Shift可以缩小区域） Ctrl+G或者F5条件定位 F4 绝对引用（公式的灵活运用会用到） 小技巧 选中一片区域，在地址栏输入名字，可以为该片区域取一个别名 冻结窗格： 其实只需要选中一个单元格，选择冻结窗格，上面的区域即可固定不动（纠正自己之前的误区） 文字识别(OCR)： 这...
Excel实现抽奖功能随机不重复抽取
01-22
### 使用 Excel 实现随机不重复的抽奖功能 为了确保每次抽取的结果都是随机且不重复，可以通过组合使用 `RAND` 函数、排序以及索引函数来实现这一目标。 #### 方法一：仅使用内置函数 1. 假设人名列表位于 A 列 (A2:A10)，则可以在 B 列生成对应的随机数值。在单元格 B2 输入如下公式并向下填充至相应范围： ```excel =RAND() ``` 这一步骤会为每个人名分配一个介于 0 和 1 之间的随机数[^3]。 2. 接下来，在 C 列创建辅助列用于记录原始序号。在 C2 单元格输入以下公式，并同样沿用到整个名单范围内： ```excel =ROW(A2)-MIN(ROW($A$2:$A$10))+1 ``` 此操作有助于保持数据关联性以便后续处理。 3. 对上述两列（即姓名与随机数）按照 B 列升序排列。选择表格区域后点击“数据”选项卡下的“排序”，设置主要关键字为第二列（B），次序方式选择“递增”。 4. 完成排序之后，在 D 列应用 INDEX 函数提取前三名人选作为获奖者。例如，在D2:D4分别填写下列公式： ```excel =INDEX($A$2:$A$10,SMALL(IF(COUNTIF($E$1:E1,$C$2:$C$10)=0,COLUMN($A$2:$A$10)),ROWS(D$2:D2))) ``` 注意该数组公式需通过 Ctrl+Shift+Enter 组合键确认录入。此处 E 列为空白预留区，用来防止重复选取相同个体；而 ROWS 函数的作用在于动态调整返回值位置以适应多轮抽取需求[^4]。 5. 若要重新执行抽签过程，则只需按 F9 键刷新工作表即可获得新的随机序列[^1]。 #### 方法二：借助 VBA 编程 对于更复杂的场景或者希望自动化流程的情况，还可以考虑采用 Visual Basic for Applications (VBA) 来编写宏程序完成任务。 - 打开 Excel 文件，按下 Alt + F11 进入 VBE 开发环境； - 插入新模块 Module 或直接编辑 ThisWorkbook 下的工作表对象代码窗口； - 将下面给出的一段简单脚本粘贴进去保存修改后的项目文件： ```vb Sub RandomDrawWithoutReplacement() Dim rng As Range Set rng = Sheets("Sheet1").Range("A2:A10") ' 修改为你实际使用的区间 Application.Volatile True With CreateObject("Scripting.Dictionary") Do While .Count < 3 And Not IsEmpty(rng.Cells(.Keys.Count + 1)) If WorksheetFunction.RandBetween(LBound(rng), UBound(rng)) Mod rng.Rows.Count <> "" Then _ .Item(Application.WorksheetFunction.Index(rng.Value, , RandBetween(1, rng.Rows.Count))) = "" Loop For Each Key In .Keys Debug.Print Key & " 被选中" Next Key End With End Sub ``` 这段代码定义了一个名为 `RandomDrawWithoutReplacement` 的子例程，它能够从未标记过的候选人集合里挑选三位幸运儿而不发生重叠现象[^2]。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值