excel抽奖器模板
【原创】ExcelVBA实现不重复、多次抽奖小程序
【原创】ExcelVBA实现不重复、多次抽奖⼩程序在活动中，我们常会有抽奖，抽奖箱准备繁琐，现在多采⽤线上抽奖⽅式，下⾯⽤Excel VBA写了⼀个简单的抽奖⼩程序简单测试效果如下，可实现：多次抽奖，且每次抽奖都不重复抽奖界⾯滚动⼈员信息，点击抽奖按钮锁定中奖⼈员中奖⼈员信息在右侧公⽰区域展⽰，最新中奖⼈员展⽰在最上⽅设置了⼀部分误点、误操作提⽰，以及抽奖完成提⽰等已优化，⽀持万⼈级抽奖做了⼀个抽奖简单演⽰，演⽰GIF如下：实现代码如下，按需⾃取，转载请备注出处：'申明Flag、d、e三个模块变量，跨进程引⽤，实现滚动和抽奖数据传递Dim Flag As Boolean '屏幕停⽌滚动并抽奖的判断参数Dim d As Object '将随机抽取的中奖⼈员按⾃增键储存Dim e As Object '将随机抽取的中奖⼈员按原键储存Dim dict_id As Object '本轮参与抽奖⼈员⼯号Sub 重置()'清空上次抽奖内容，将⼈员名单复制到辅助列Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("抽奖界⾯").SelectSheets("抽奖界⾯").Range("E2") = 0Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsSheets("抽奖界⾯").Range(Range("J3"), Range("P3").End(xlDown)).ClearContentsSheets("⼈员名单").SelectSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").Range(Range("A3"), Range("A3").End(xlDown)).Copy _Sheets("⼈员名单").Range("H3")Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为滚动抽奖做准备End SubSub 准备() '准备开始抽奖，灰⾊区域滚动更新中奖⼈员Set d = NothingSet e = NothingSet dict_id = NothingFlag = Truetext_level = Sheets("抽奖界⾯").Range("A2") '抽取奖项lottery_target = Sheets("抽奖界⾯").Range("D2") '抽奖次数⽬标'判断该奖项是否已经抽取过，当变更了抽取奖项时，⾃动重置已抽取次数为0If Application.WorksheetFunction.CountIfs(Sheets("抽奖界⾯").Range("J:J"), _text_level) = 0 ThenSheets("抽奖界⾯").Range("E2") = 0End If'判断剩余参与⼈数是否⾜够抽奖If Sheets("抽奖界⾯").Range("F2") < Sheets("抽奖界⾯").Range("C2") ThenMsgBox ("剩余参与⼈数不⾜，请修改抽奖参数或停⽌抽奖")Exit SubEnd If'判断该奖项是否已抽取完，提⽰操作⼈员是选择加抽还是变更抽奖奖项If Sheets("抽奖界⾯").Range("E2") >= lottery_target ThenQS_Return = MsgBox(text_level & "抽奖" & lottery_act & "已完成！" & _Chr(10) & "要变更奖项请选择是" & Chr(10) & "要再次抽取" & text_level & _"请选择否", vbYesNo + vbQuestion, "提⽰")If QS_Return = vbYes ThenMsgBox (text_level & "请重新选择奖项，输⼊抽奖次数和单次抽奖⼈数！")Exit SubElseSheets("抽奖界⾯").Range("D2") = Sheets("抽奖界⾯").Range("D2") + _Sheets("抽奖界⾯").Range("E2")End IfEnd If'清空抽奖滚动区域Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsnum_agent = Sheets("抽奖界⾯").Range("F2")'字典赋值Set dict_id = CreateObject("Scripting.Dictionary")For i = 1 To num_agentdict_id(i) = Sheets("⼈员名单").Cells(i + 2, 8)Nextnum = Sheets("抽奖界⾯").Range("C2")'持续滚动抽奖界⾯，等待点击抽奖后停⽌DoSet d = CreateObject("Scripting.Dictionary")Set e = CreateObject("Scripting.Dictionary")For j = 1 To numDoa = Int(Rnd * num_agent) + 1Loop Until Not e.Exists(a)d(j) = dict_id(a)e(a) = dict_id(a)NextFor m = 1 To 10For n = 1 To 5If n + (m - 1) * 5 > num ThenExit ForElseSheets("抽奖界⾯").Cells(m + 5, n + 1) = d(n + (m - 1) * 5)DoEvents '将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，⾮常关键 End IfNextNextLoop Until Flag = FalseEnd SubSub 抽奖()If Not Flag ThenMsgBox ("请先点击准备按钮，再开始抽奖")Exit SubEnd IfFlag = False '停⽌抽奖滚动，中奖⼈员确定Set f = CreateObject("Scripting.Dictionary")text_level = Sheets("抽奖界⾯").Range("A2")Sheets("抽奖界⾯").Range("E2") = Sheets("抽奖界⾯").Range("E2") + 1 '已抽取次数+1lottery_act = Sheets("抽奖界⾯").Range("E2") '已抽取次数，后⾯需要判断是否提⽰抽奖完成num = Application.WorksheetFunction.CountA(Sheets("抽奖界⾯").Range("B6:F15"))num_exist = Sheets("抽奖界⾯").Range("G2")'将新中奖⼈员信息添加⾄公⽰区域末尾For i = 1 To numSheets("抽奖界⾯").Cells(2 + num_exist + i, 10) = text_levelSheets("抽奖界⾯").Cells(2 + num_exist + i, 11) = lottery_actSheets("抽奖界⾯").Cells(2 + num_exist + i, 12) = d(i)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 13) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 2, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 14) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 3, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 15) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 4, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 16) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 5, False)Next'将所有中奖⼈员存放⾄字典For i = 1 To num_exist + numIf i <= num Thenf(i) = Sheets("抽奖界⾯").Range(Cells(num_exist + i + 2, 10), _Cells(num_exist + i + 2, 16))Elsef(i) = Sheets("抽奖界⾯").Range(Cells(i + 2 - num, 10), Cells(i + 2 - num, 16))End IfNextSheets("抽奖界⾯").Range(Cells(3, 10), Cells(num_exist + num + 3, 16)).ClearContentsSheets("抽奖界⾯").[J3].Resize(f.Count, 7).Value = _Application.Transpose(Application.Transpose(f.items))'奖项抽取完成后提⽰⼈员变更参数If lottery_act = Sheets("抽奖界⾯").Range("D2") ThenMsgBox (text_level & "抽取" & lottery_act & "次已完成，请变更抽奖奖项和次数")End If'更新待抽奖⼈员名单，实现不重复抽奖num_agent = Sheets("抽奖界⾯").Range("F2")Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("⼈员名单").SelectFor Each Key In edict_id.Remove (Key)NextSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").[H3].Resize(dict_id.Count, 1).Value = _Application.Transpose(dict_id.items)Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为下⼀轮滚动抽奖做准备End Sub功能实现思路：通过随机函数Rnd产⽣[0,1)的随机数，再乘以当前参与⼈数放⼤，实现随机抽奖通过字典的Exists⽅法判断是否重复，实现去重抽奖定义模块变量，实现⼈员滚动和抽奖的分离DoEvents语句将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，是实现抽奖屏幕滚动更新的关键最初以遍历的⽅式回填数据，发现参与⼈数上万时明显卡顿，改⽤字典的items⽅法回填数据（⼀维数据回填到列：Application.Transpose(dict.items)，⼆维数据回填到列：Application.Transpose(Application.Transpose(dict.items))）。
用excel制作简单抽奖器
•excel软件1.打开excel，建立两个表格，分别命名为【员工花名册】和【中奖名单】，分两个表格只是为了抽奖时放大效果。
当然，你也可以只在一个表格上操作。
2.在【员工花名册】表格中，空白处输入公式【=rand()】。
3.接着按【回车/enter】，就能看到一个随机数值，下拉填充与员工数量对等。
4.打开另一个子表格【中奖名单】，选择一个空白格，输入公式：=INDEX(员工花名册!C$3:C$22,RANK(员工花名册!E3,员工花名册!E$3:E$22))5.接着按【回车/enter】，就能看到一个随机员工名字，中奖几个人，就下拉填充几行。
6.公式设置结束后，可根据自己喜好，对抽奖版面进行修饰。
7.最后，抽奖时，长按【F9】，让名单滚动，停下时，即可选出中奖名单。
END•运用到的函数分别有rand、rank、index•注意数据的绝对值手把手教你制作Excel抽奖器2014-11-15 作者:ExcelHome 阅读:154612次三国公司开年会，现场举行一次抽奖环节，要从50个人中，抽取10个幸运者，要求每个姓名只能出现一次。
职工名单如下图所示：在Excel中制作随机抽奖的效果，核心是生成一组随机不重复值。
首先，在B4输入以下公式，向下复制至B53：= RAND()RAND函数的作用是生成介于 0 到 1 之间的随机数（变量）。
******************D4单元格输入以下公式，向下复制：=INDEX(A$4:A$53,RANK(B4,B$4:B$53))简单说一下公式的意思：RANK(B4,B$4:B$53)RANK函数对B4:B53单元格产生的随机数字排序，生成了随机的1-50的数字。
RANK函数的计算结果将用于INDEX函数的参数。
INDEX函数返回表格(B4:B53)中的元素值，此元素由行号的索引值(也就是RANK 函数的运算结果)给定。
因为B列的数字是完全随机的，所以任何数字出现在前10行的概率都相同。
年会抽奖器 VBA模板
[X]等奖-本次获奖名单
开始抽奖打印获奖名单
使用说明及注意事项：【使用模板前需要先把该模板以et或xls格式保存到本地，然后在打开】
1. 本抽奖程序可以根据用户设置对一组候选名单进行抽奖。
2. 请在《候选名单》工作表中录入所有候选项。
请连续纵向输入，不留空行。
3. 最多可设置六个级别的奖项。
4. 单项最多可设 5000 名获奖者，获奖者总数不能多于候选人数。
5. 抽奖顺序有两种，即先小奖后大奖或相反。
6. 抽奖方法分为两种：每次抽取一组中的全部获奖者，或每次抽取若干名同一组获奖者。
7. 抽奖一旦开始，请完成整个抽奖过程，不要中途退出程序。
8. 本程序不支持重复获奖。
说明：
本抽奖模板仅用于娱乐目的！
模板作者对抽奖过程、抽奖结果及模板本身的工作状况不作任何承诺!
模板作者对所有因使用本模板而产生的疑问、纠纷或其他问题不承担任何责任！。
Excel复杂表格制表技术
Excel表头斜线设置秘技技术要点：利用“单元格格式”对话框中的“边框”选项卡设置斜线，利用“对齐”选项卡结合空格键调整文字位置。
具体操作步骤如下。
1 .单击工作表的的A1单元格，输入斜线表头的内容，比如本例中有两个题目“项目名称”和“日期”，先输入“项目名称”，然后按快捷键 Alt+ 回车键，如此能够在单元格内向下换行，再按Alt+ 回车键一次，输入“日期”。
2.按Ctrl+ 回车键，如此能够在不离开该单元格的情形下选中该单元格。
这时的单元格应如图1所示。
图1 选中A1单元格3.按快捷键Ctrl+1 ，打开“单元格格式”对话框。
( 若是在单元格上单击右键，然后从弹出的快捷菜单当选择命令“设置单元格格式”，也能打开该对话框，但利用快捷键会更快一些。
)4.在“单元格格式”对话框中，单击“边框”选项卡，然后单击如图2所示的左斜线按钮。
图2 单击左斜线按钮5.在“单元格格式”对话框中，单击“对齐”选项卡，将文本的水平和垂直对齐方式都设置为“两头对齐”，如图3所示。
设置完毕，单击“确信”按钮，能够看到如图4所示的成效。
图3 设置单元格对齐方式图4 显现斜线6.观看表头中的文本，显然项目名称的位置不是很适合。
双击A1单元格，将插入点定位到“项目名称”左侧，并按两次空格键，让“项目名称”的位置向右一些。
按Ctrl+ 回车键离开编辑状态并选中A1单元格，若是发觉“项目名称”换行了，能够通过调整该列的宽度将其调整到适合为止，一样能够调整行宽，使表头的大小变得适合。
固然，也能够改变表头中文本的大小。
最后咱们能够取得如图5所示的表头斜线成效。
图5 最终的表头斜线成效制作超复杂Excel表头在Excel中，常常会碰着要制作的复杂表头，其中包括有斜线和文字(见以下图画红圈处)，许多初学者往往对此束手无策，还有的干脆胡乱调整，由于采取的方式不妥，结果却是花了很长的时刻却达不到理想的成效。
许多初学者常常采纳以下两个操作来处置：一、用边框中的斜线来调整；二、在单元格中直接输入文字。
Excel抽奖券模板
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
NO:
001
xxx公司庆元旦暨员工生日晚会
副 NO: 001 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
副 NO: 008 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
NO:
009
XXX公司庆元旦暨员工生日晚会
副 NO: 009 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
NO:
002
XXX公司庆元旦暨员工生日晚会
副 NO: 002 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
NO:
003
XXX公司庆元旦暨员工生日晚会
副 NO: 003 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
005
XXX公司庆元旦暨员工生日晚会
副 NO: 005 券
注：此副券用于抽奖
庆元旦暨员工生日晚会
抽奖券（正券）
注：（1）凭此券可在会场参加抽奖； （2）仅限2017年12月29日晚会当天使用。
NO:
006
XXX公司庆元旦暨员工生日晚会
巧用Excel基础函数实现抽奖、抓阄功能实用技巧解读!
实际的工作中，随机选取相关人员的活动很多，除了传统的“抓阄”之外，在Excel中有没有办法实现“抓阄”的功能呢？一、效果展示。
从效果图中可以看出，“名单”是随机产生的，而且每次产生的都不一样，那么，该如何去完成此过程了？二、必备函数简介。
1、Index函数。
作用：返回指定区域中，行列交叉处的值或引用。
语法：=Index(单元格区域，行，[列])。
当“列”省略时，默认为第一列。
目的：返回B2:C9范围内第4行第1列的值。
方法在目标单元格中输入公式：=INDEX(B2:C931)。
2、Match函数。
作用：返回指定值在相对范围中的位置。
语法：=Match(定位的值，定位的范围，定位模式)。
定位模式有：-1、0、1三种，分别为：-1：查找大于或等于“定位的值”的最小值。
0：精准定位。
1：查找小于或等于“定位的值”的最大值。
目的：返回指定人员的相对位置。
方法：在目标单元格中输入公式：=MATCH(F3B3:B90)。
3、Small函数。
作用：返回数组中第K个最小值。
语法：=Small(数组范围，K）。
目的：返回指定范围内的最小值。
方法：在目标单元格中输入公式：=SMALL(C3:C9F3)。
4、Large函数。
作用：返回数组中第K个最大值。
语法：=Large(数组范围，K)。
目的：返回第K个最大值。
方法：在目标单元格汇总输入公式：=LARGE(C3:C9F3)。
5、Rand函数。
作用：返回大于等于0且小于1的随机数。
语法：=Rand()。
目的：随机生成大于等于0且小于1的随机数。
方法：在目标单元格中输入公式：=RAND()。
三、制作过程。
1、完善表格，添加辅助列并生成随机值。
方法：在目标单元格中输入公式：=RAND()。
2、“抓阄”或随机产生相关人员。
方法：在目标单元格中输入公式：=INDEX(B:BMATCH(SMALL(C:CF3)C:C0))。
解读：1、利用Small函数获取随机生成列中的最小值，然后用Match函数对其进行定位，最有用Index函数返回对应位置上的“姓名”。
E cel抽奖券模板
抽奖券（正券）NO:001副券NO:001注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:002副券NO:002注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:003副券NO:003注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:004副券NO:004注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:005副券NO:005注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖抽奖券（正券）NO:006副券NO:006注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:007副券NO:007注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:008副券NO:008注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:009副券NO:009注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:010副券NO:010注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
专用抽奖券模板
专用抽奖券模板专用抽奖券模板抽奖券模板使用说明本抽奖券模板可用于任何类型的抽奖活动。
使用这个模板，你可以轻松创建自己的专属抽奖券，让参与者们感到兴奋。
以下是该模板的使用说明：1. ，此抽奖券模板并保存到你的电脑上。
3. 在文件中找到“抽奖券模板”标题，将其替换为你的抽奖活动的名称。
4. 在“抽奖券编号”一栏，为每个抽奖券分配一个唯一的编号。
你可以使用数字、字母或者组合来进行编号。
5. 在“参与者信息”部分，填写参与者的姓名、等相关信息。
确保每个参与者的信息都是准确无误的。
6. 在“抽奖规则”部分，详细描述你的抽奖活动的规则和细则。
你可以包括抽奖时间、奖品设置、参与条件等等。
7. ，将完成的抽奖券模板保存为Markdown文本格式或者导出为其他格式，例如PDF等。
抽奖券模板样例以下是一个抽奖券模板样例，你可以根据自己的需求进行修改和个性化定制。
抽奖券模板抽奖券编号: 001参与者信息姓名:地质: 北京市朝阳区抽奖规则活动时间: 2023年1月1日至2023年1月31日参与条件: 持有有效抽奖券的顾客奖品设置: 一等奖：iPhone 13 Pro Max；二等奖：Apple Watch Series 7；三等奖：rPods Pro如何使用抽奖券模板1. 抽奖券模板并保存到你的电脑上。
3. 根据参与者的实际情况，修改“参与者信息”部分的内容。
4. 根据你的抽奖活动规则，修改“抽奖规则”部分的内容。
5. 保存修改后的抽奖券模板。
6. 打印或导出抽奖券模板，分发给参与者。
7. 按照抽奖规则，进行抽奖活动。
8. 将中奖者的信息记录下来，以备后续联系。
9. 当抽奖活动结束后，通知中奖者并发放奖品。
通过使用这个抽奖券模板，你可以简化抽奖活动的准备工作，并增加参与者的乐趣和期待。
祝你的抽奖活动圆满成功！。
Excel抽奖券模板
注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:005副券NO:005抽奖券（正券）NO:004副券NO:004注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:003副券NO:003抽奖券（正券）NO:002副券NO:002注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:001副券NO:001抽奖券（正券）NO:010副券NO:010注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:009副券NO:009抽奖券（正券）NO:008副券NO:008注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
注：此副券用于抽奖庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会庆元旦暨员工生日晚会XXX公司庆元旦暨员工生日晚会抽奖券（正券）NO:007副券NO:007抽奖券（正券）NO:006副券NO:006注：（1）凭此券可在会场参加抽奖；（2）仅限2017年12月29日晚会当天使用。
excel抽奖公式，简单好用，元旦晚会能用上
3 随机函数在双击任一单元格后都会生成新的数值，所以在下次抽奖时，再双击任一单元格即可。
3随机函数在双击任一单元格后都会生成新的数值所以在下次抽奖时再双击任一单元格即可
excel抽奖公式，简单好用，元旦晚会能用上
如下图所示，为姓名，要求从A列中随时抽取三个人，年底了，幸运抽奖可以用上它，呵呵。
公式：
=INDEX(B:B,INT(RAND()*11+3))
公式说明:
1 RAND函数可以随时生成0~1的随机小数。INT(RAND()*11+3))生成3~14之间的随时整数。
Excel还能随机点名或摇号？简单易学，快来试试吧！
Excel还能随机点名或摇号？简单易学，快来试试吧！我们都知道Excel的函数库非常强大，仍有不少地方需要我们探索！今天小编来教教大家如何使用一个Excel函数就可以制作简易的点名工具，办公小白的老师都能够轻松上手！课堂上随机点名器的功能可是老强大了！不仅可以帮助老师解决点名纠结症，还能活跃班级气氛，让学生保持高度紧张！小编使用Excel自制了随机点名器，效果如下：而且只需要简单的三步就可以完成！再也不用到处找资源下载这些小工具啦！而且自己制作的会更加有成就感呢！具体步骤：1、新建一个Excel表格，复制一份班级学生名单并粘贴。
2、在名单右侧，或另建一个Sheet表建立一个文本框并输入函数"INDEX(A2:A12,RANDBETWEEN(1,11))"，如下图所示。
其中，INDEX函数是返回表或区域中的值或值的引用。
RANDBETWEEN是返回位于两个指定数之间的一个随机整数。
3、每次只需点击F9即可刷新，获取新数据。
怎么样！是不是超级简单！小编没有骗人！老师们学会了吗？你以为今天的文章就此结束了吗？那当然不是啦！小编还要给大家递上一个Excel摇号工具！效果图：特点：1、只需复制粘贴名单，点击“快摇抽签”即自动生成名单。
2、自动生成记录名单，不用害怕丢失。
3、小编已经制作打包好，大家只需下载解压就可以使用啦！使用说明：1、如果使用office2003及其以上版本的Excel，打开“抽签摇号神V2.0.xls”，将宏安全性设为“低”，然后关闭Excel，再重新打开抽签摇号神器V2.0.xls，就可使用。
2、office2016及其以上版本可使用“抽签摇号神器V2.0.xlsm”。