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行的概率都相同。

EXCEL函数公式之《INDEX：年底抽奖用》

EXCEL函数公式之《INDEX：年底抽奖用》年底抽奖用;从一组中随机抽取3个人如下图所示，A列为姓名，要求从A列中随时抽取三个人，年底了，幸运抽奖可以用上它，呵呵。

公式：=INDEX(B:B,INT(RAND()*11+3))公式说明:1 RAND函数可以随时生成0~1的随机小数。

INT(RAND()*11+3))生成3~14之间的随时整数。

2 index可以在指定区域中（B:B）根据指定的位值（INT(RAND()*11+3)），提取出该位置的内容。

3 随机函数在双击任一单元格后都会生成新的数值，所以在下次抽奖时，再双击任一单元格即可。

若想一路顺风，请你开心度时光，永葆云淡风轻。

如果遇事解不开心结，过分地追求完美，一味地与自己较真，只会伤心劳神。

万事随缘莫计较，唯求淡泊与安宁。

淡然得与失，珍惜人间情。

与其和自己过不去，不如顺其自然，潇潇洒洒过一生。

若想一路顺风，请别拿别人的错误惩罚自己。

看得开才会快乐，放得下才会轻松。

胸怀要大度，凡事能接纳，对人能包容。

遇有不顺心的人和事，切不可小肚鸡肠，怀恨在胸。

你这里恼怒填胸，可惹你生气的人早已满面春风，试想，你何必再纠结、郁闷、怨言声声！若想一路顺风，请你用微笑掩埋苦痛。

客观事实证明，人生有失就有得，得和失总是相辅相成。

不要感叹自己不幸运，不要抱怨老天不公平，得到的我们感到欣慰，失去的我们一身轻松。

痛苦惋惜无济于事，坦然洒脱一路顺风！若想一路顺风，请你修炼豁达心，大度才能包容。

忍一时风平浪静，退一步海阔天空。

懂得谦让和谅解，胸襟宽阔人尊敬。

磕磕绊绊全甩弃，和睦相处快乐生。

要善待他人，即使路径狭窄，也要留一步与人行。

拿得起，放得下，才是人生的真性情。

若想一路顺风，请你把自己的心态好好调整。

细节决定成败，心态决定人生，拥有怎样的心态，就会有怎样的生活和心情。

面对困难和挫折，勇于挑战自我，就没有过不去的坎儿，就没有超越不了的山峰，就没有走不出去的困境，就会迎来风雨之后的彩虹！拥有一个良好的心态，就能乐观开朗地面对生活和人生。

Excel随机函数经典应用：随机生成数字与字母，模拟抽奖功能

Excel随机函数经典应用：随机生成数字与字母，模拟抽奖功
能
老板今天心情好，要给大家发红包。

八人里面选三位，这活谁干谁心累。

选大宝吧，二宝不高兴；选张三吧，李四不高兴；那就抓阄吧，用Excel行话来说，叫【随机】。

这个问题往大了说，就是抽奖问题，如何使用Excel制作一个简单的抽奖器？
1、从【帮助】开始
注：在最新的Office365中，已经将“告诉我你想要做什么”统一整合成搜索框了，如下图所示。

这个搜索框功能十分强大，他有三方面能力:①操作；②在文档中查找；③获得相关帮助。

换句话说，几乎所有的Excel菜单功能、文档资料、帮助等都可以通过这个框调出来。

2、随机函数入门
随机函数Rand使用起来非常简单，因为它没有任何参数，直接写出来=Rand()就能返回结果。

这里使用了批量输入公式的方法：Ctrl+Enter，这对于需要快速输入同样的公式非常便捷，不需要再进行复制填充了。

3、随机生成一个整数
老板喜欢买双色球，又出了个新难题：如何从1-16中随机抽一个整数？
这里希望大家记住这个公式=RAND()*(b-a)+a就可以构造a和b 之间的随机实数。

如何将实数变成整数？
只要去掉小数部分，保留整数就可以了。

这里使用向下取整的INT函数。

=INT(RAND()*16+1)
4、随机生成一个字母
变态老板已经不满足于纯数字了，新难题：如何随机一个大写字母？
生成随机数和随机字母是制作抽奖器的前提，事实上，抽奖这个动作就是在随机的状态下选出特定的量。

如果有了随机数，我们可以通过简单地筛选、排序等动作来模拟抽奖，想想是不是这个道理？！。

随机数字公式excel

随机数字公式excelExcel 中的随机数字公式，那可是个相当有趣且实用的小玩意儿！在日常的工作和学习中，我们经常会需要用到随机数字来进行各种模拟、测试或者随机抽样。

这时候，Excel 里的随机数字公式就派上大用场啦！比如说，咱要模拟一个抽奖活动，从 1 到 100 中随机抽取幸运号码。

这时候，“=RANDBETWEEN(1,100)”这个公式就能轻松搞定。

只要在单元格里输入它，每一次重新计算或者按 F9 键，都会给出一个新的随机数字，是不是超级方便？我记得有一次，公司搞活动，需要随机选出几个员工发放小礼品。

我就用 Excel 的随机数字公式来帮忙。

当时大家都围在我电脑旁边，眼睛紧紧盯着屏幕，那种期待和好奇的眼神，让我觉得这小小的公式瞬间充满了魔力。

当数字一个个跳出来的时候，大家的表情也是五花八门，有惊喜的，有遗憾的，还有满心期待下一轮的。

再比如说，老师在给学生出练习题的时候，想要随机生成一些数值让学生计算，也能用到这个公式。

或者是做市场调研，要从大量的数据中随机抽取一部分进行分析，随机数字公式同样能发挥大作用。

除了“RANDBETWEEN”函数，还有“RAND”函数也能生成随机数字。

不过它生成的是大于等于 0 且小于 1 的均匀分布随机实数。

要是想得到指定范围内的随机数，还得结合一些其他的运算。

就像给一组数据随机排序，先在旁边生成一列随机数，然后按照这列随机数进行排序，就能轻松打乱原来的顺序啦。

还有啊，要是想生成带有小数的随机数，比如在 1 到 10 之间，保留一位小数的随机数，可以这样写：“=ROUND(RAND()*9+1,1)”。

总之，Excel 中的随机数字公式就像是一个神奇的魔法棒，能在各种场景中变出我们需要的随机数字，帮助我们解决好多问题，让工作和学习变得更加有趣和高效。

不管是在学校里，还是在办公室中，只要你能灵活运用这些随机数字公式，就能节省不少时间和精力，创造出更多的可能性。

手把手教你用excel做一套电脑派位摇号系统

手把手教你用excel做一套电脑派位摇号系统首先说下这套电脑摇号派位的原理，一共分四步，第一步首先将需要摇号派位的学生信息收集完整，按照报名序号、姓名、性别及家长信息等原始信息放入一个excel表中。

第二步，给每个学生生成一个随机号，这个随机号是电脑随机生成，每个学生不同。

第三步，通过掷硬币或者找家长抽签的方式，确定录取的方式，是从大号到小号录取，还是从小号到大号录取，第四步，按照抽签确定的顺序排序录取一定数量的学生，到此录取全部完成。

之所以用excel来做，就是因为excel的VBA实现排序的功能很方便，源码所见所得，容易查询，也很容易公开查询。

下面来一点点的实现。

一、软件打开动画首先打开excel，打开VBA，插入一个窗体，设置5秒倒计时消失。

核心代码如下：Private Sub UserForm_Initialize()ltime.Caption = 5Call bEnd Sub二、主窗体设计基本功能都在此界面内完成，其实也简单，就是使用excel 表格的大部分功能，然后右侧加入需要的功能按钮。

这里为了更加公平，加入了两次生成随机数，两次排序，杜绝作弊。

大家看下右侧的按钮，我们一点点来做。

1.首先来做第一个查询窗口，点击查询记录，会跳出一个查询。

代码如下：Sub 查询()UserForm1.ShowEnd Sub在VBA中添加窗体，窗体中加入各控件，给查询按钮加入事件：Private Sub CommandButton1_Click() '查询Dim MYRANGE As RangeDim i As IntegerSet MYRANGE = Sheets("SHEET1").Range("a2", Range("A65536").End(xlUp)).Find(TextBox10.Value) '在excel中查找相同的数据If Not MYRANGE Is Nothing ThenFor i = 1 To 8Me.Controls("TEXTBOX" & i) = Cells(MYRANGE.Row, i) Next iElseMsgBox "没有找到！" & TextBox10End IfEnd Sub2.做第一个随机数生成给图中按钮加入事件代码：Sub 随机号生成()'生成8位的不相同的随机数Dim i As Long, t0, dict, key As Long, key_count As LongDim low As Long, high As Long, diff As Long, count As Long, try As Currencyt0 = Timer[f2:f501].Clear '清空low = 10000000high = 99999999count = 291try = 100 * countIf high < low Then high = low: low = 1diff = high - lowIf diff <= count Then count = diff + 1Set dict = CreateObject("Scripting.Dictionary")ReDim arr(1 To count, 1 To 1)RandomizeFor i = 1 To trykey = Round(Rnd * diff + low, 0)If Not dict.exists(key) Thenkey_count = key_count + 1arr(key_count, 1) = keydict.Add key, ""Else'do nothingEnd IfIf key_count >= count Then Exit ForNext iRange("f2:f" & count + 1).Value = arrMsgBox "生成随机号完成"End Sub3.按照生成的随机数排序，抽签或者掷硬币确定排序顺序。

利用EXCEL设计转盘游戏数值的方法

利用EXCEL设计转盘游戏数值的方法转盘抽奖系统已经是各大手游的标配了。

玩家可以通过投入若干货币（游戏币或其他有价值的东西），用来博弈期望获得平台承诺赠送的物品（实物或虚拟），通过系统随机方式来确定玩家是否能获得该物品。

各种美轮美奂的转盘界面1.设计思路我们的游戏平台进行一下设置：1元RMB=1W金币，RMB可以充值为金币，金币不能反向兑换为RMB。

金币就是通用的游戏币，玩家直接游戏的输赢通过金币进行。

金币也可以进行转盘抽奖，奖品有奖券、大额金币、实物奖品（国家规定不能使用虚拟币直接抽取高价值实物奖品的，有各种规避办法，现在暂不讨论这个）商城可以兑换各种实物道具，消耗奖券。

2.设置奖品转盘都是1/8切的，我们就在奖池中设置8个奖品，如图：橙色：游戏币。

游戏中的通用货币，可用于抽奖。

绿色：奖券，用于兑换实物奖品。

蓝色：实物奖品，价值较高。

建议不要把价值太高的物品放入奖池，会严重拉高期望值，影响判断。

奖券显而易见，转盘中的奖品不能总是正期望的，也会存在负期望的物品。

换句话说，之所以有正期望的奖品，是由那些负期望所盈余出的价值来填补的。

如何造成负期望呢，很简单，让玩家投入3000金币，获得1000金币就行了，那么这2000金币的差额的价格就是盈余出的价值，可以用于填补玩家获得高于3000金币奖品的空洞。

可玩家不是傻瓜，频繁地入不敷出，会导致其直接放弃这种尝试，甚至直接看到中奖项里存在低于投入价的奖项，就可以断定这是个不公平的游戏，无论。

所以，需要给这种折价一个理由。

我们设定：1奖券=1金币。

那就能看到，中了1000奖券，玩家其实是亏的，。

但是，我们设定，奖券是可以直接购买商城的商品的，相当于直接挂钩人民币，实现了游戏币的反向转换，那么奖券相比金币，其效价就不可等量齐观了。

而且奖券可以积累，相当于给玩家一个长线的预期，即使抽大奖不中，也可以慢慢通过积攒奖券来兑换自己心仪的物品。

说到这里，我想起了《赌博默示录》第二季，主人公开司被抓进帝爱公司的地下工地做苦力来还债。

Excel抽奖系统案例

吴明翔张光毕王风亭吴才伦杨胜义李江敏杨海杨华琴王国秀闵卫琴宋国荣罗会变张金艳杨华忠雷本兴许乾力赵书君魏吉元王建华阮岳马仕开秦永琴丰帮益石尚华杨再品蒲生周蒋海江杨昌美彭应素龙继梅杨再芬宋国爱韦应刚杨昌线廖德成韦仕勇梁龙彪刘兴江杨胜宽秦霞任明秋龙胜潘颖吴兴珍刘年专杨忠英補国献安成事岑仕建张洪英
杨小现乔佳丽吴斌张益唐丽吴江琴安明勇李秀凤韦应昌韦堂开雷小浪杨秀昌龙明义郑阳帅杨跤陈荣才安明权杨胜坤王云伍倩贺茂会张明琴班小芬曾流香陆春情韦朝光李贵发张贵川伍建开常兴亮杨巧杨秀江曾流巧。

Excel教程-抽奖程序

500元的奖金就这样没了！o(╥﹏╥)o（Excel教程-抽奖程序）
五一将近，
店里活动好多呢，
九九忙得要趴下了。

o(╥﹏╥)o
不过~~
再忙也觉得高兴，
(〃'▽'〃)
老板今天很霸气的，
每人发了300元的节日慰问金呢，
(＾－＾)V
而且，
还有一个500大洋的特别将，
说是要让我通过抽奖的方式，
确定获奖人。

考虑了一下准备时间，
我决定用Excel弄个抽奖程序，
然后在店铺的电视上播放抽奖过程，
(〃'▽'〃)
操作步骤：
1.建立抽奖表格
2.在B3的位置输入公式=RANDBETWEEN(1,5)，该公式表示在1~5的范围
内，随机抽取一个整数
店铺里，
包括我在内，
总共5个人，
大家领好各自编号后，
抽奖准备开始啦，
♪(^∇^*)
我按着键盘上的F9键不放，
Excel上的获奖编号不断闪烁，
为什么按F9？
因为Excel中F9是刷新的快捷键
放开F9，
就会显示出获奖编号，
大家猜猜会是谁获奖？
肯定是我啊，
(＾－＾)V
当然，伟大如我，
我把500大洋贡献了出来，今晚和大家去了宵夜。

我是心甘情愿贡献出来的，不是因为下面的人，
大叫贪污才拿出来的，
真的，你一定要信。

500大洋就这样没了
o(╥﹏╥)o。

excel教程年终抽奖必备运用2个函数随机抽取姓名

excel教程年终抽奖必备运用2个函数随机抽取姓名
在前面的课程，我们讲解了运用Excel制作掷骰子游戏，有的小伙伴就在问，可不可以用Excel随机抽取姓名用来抽奖，或者随机出现菜名，来帮助选择困难症的小伙伴，答案是可以的，下面，我们就以随机抽取姓名为例。

1、在A列输入好姓名，B1单元格写好标题，设置好格式（也可以不写，根据具体情况）2、选中B2单元格，输入公式
=INDIRECT('A'&RANDBETWEEN(2,10))其中，A为姓名列的列号，2为姓名开始行，10为姓名结束行3、再修改B2
单元格的样式，并隐藏网格线4、如果不想显示人名，可以选中A列，把名字颜色改为白色5、现在，想要随机出现姓名，只需要按【F9】，每按1次，随机出现1个姓名相关推荐如何用Excel制作1款小游戏？年终必备，掷骰子游戏，建议收藏！~●请大家多多关注、点赞、评论，让我有动力继续更新更多教程●。

excel2007制作抽奖器的教程

excel2007制作抽奖器的教程Excel中具体该如何制作抽奖器呢?接下来是店铺为大家带来的excel2007制作抽奖器的教程，供大家参考。

excel2007制作抽奖器的教程：制作步骤1：抽奖我们就以大乐透的形式来讲，在1到37之间选7个数，这7个数就是获奖的数字。

制作步骤2：这时候我们要用到的公式就是：=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=T RANSPOSE($C$38:$C38))*1,($C$38:$C38)*0+1),,ROW(INDIRECT( $C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39))) 制作步骤3：这个公式很长，我们在下面的截图中看不全，但是你只要知道就好。

这就是我们要的七个获奖数字。

制作步骤4：如果你想要一组别的获奖数字，就像大乐透的下一期，那你可以把点鼠标左键，选中一个单元格，把鼠标移动到这个单元格的右下角当鼠标的指示变成一个加号的时候你可以向下拖动，这可以生成下一组了制作步骤5：这样就生成了，您的摇奖器就生成了。

制作步骤6：剔除上期开奖号选号制作步骤7：如果是在一个晚会，药分别在晚会中间和晚会结束前，摇两次奖。

但幸运观众不能重复获奖。

这就要求剔除上期开奖号选号。

制作步骤8：首先我们用刚才的办法生成一组获奖数字。

还是那个公式，就是单元格变化了。

=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=T RANSPOSE($F$38:$F38))*1,($F$38:$F38)*0+1),,ROW(INDIRECT($ C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39))) 制作步骤9：这时候我们要用的公式就是：=LARGE(IF(MMULT((ROW(INDIRECT($C$37&":"&$E$37))=T RANSPOSE($F$38:$F45))*1,($F$38:$F45)*0+1),,ROW(INDIRECT($ C$37&":"&$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))制作步骤10：就是生成公式的变形。

Excel轻松制作抽奖系统EXCEL基本教程-电脑资料

Excel轻松制作抽奖系统EXCEL基本教程-电脑资料春节到了，单位里组织大联欢，其间穿插一些抽奖活动，。

为了体现抽奖的公正性，我们让Excel来帮我们抽奖。

一、加载模板1、启动Excel2003，执行“文件→新建”命令，展开“新建工作簿”任务窗格（如图1）。

注意：①这虽然是Excel2003版本新增加的一个模板，但是，经测试将文档保存后，在其他版本（2002、2000）中同样可以直接使用。

②不能直接单击“常用”工具栏上的“新建”按钮。

2、单击其中的“本机上的模板”按钮，打开“模板”对话框（如图2）。

3、切换到“电子表格方案”标签下，选中“抽奖器”模板，确定返回。

注意：第一次使用该模板，需要将安装盘插入光驱中，让系统加载此模板。

二、奖项设置1、在新建的抽奖工作簿中，切换到“候选名单”工作表中（如图3），将参加抽奖的员工名单输入其中（也可以从以前输入的文档中直接复制、粘贴过来）。

注意：每行输入一个名单，不能有空行。

2、再切换“设置”工作表中，设置好“奖项设置”、“抽奖顺序”、“抽奖方法”等（如图4），电脑资料《Excel轻松制作抽奖系统EXCEL基本教程》(https://)。

设置完成后，按下“设置完成”按钮，系统自动切换到“抽奖”工作表中。

三、开始抽奖1、单击其中的“开始抽奖”按钮（如图5），此时“开始抽奖”按钮转换为“停止”按钮。

2、过一会儿，按下“停止”按钮，“三等奖”抽出（此处设置的最小奖级为“三等奖”，且抽奖顺利是“先小奖，后大奖”）。

此时“停止”按钮转换为“继续抽奖”按钮。

3、到了抽下一个等级奖的时候，按下“继续抽奖”按钮，过一会儿，按下“停止”按钮。

四、查看结果1、在抽奖“停止”情况下，可以切换到“抽奖结果”工作表中，随时查看各奖级的抽奖结果（如图6）。

2、在“抽奖”工作表中，按下“打印获奖名单”按钮，即可奖抽奖结果打印出来。

怎么样？是不是很方便？！赶紧试试吧！关键字：EXCEL相关文章：Excel 加密文件Excel“公式求值”功能Excel标题跨列居中Excel表格边框设置Excel表格标题重复打印。

只需七步，用Excel做一个抽奖小程序！

只需七步，用Excel做一个抽奖小程序！
话不多说，直接开始！
第一步：先把要设置的奖品打出来，如图所示，奖名称可别打错了哦！
第二步：全选“数据”，选择“插入”，选择“饼图”，生成一张饼图
第三步：如图所示，将饼图无用数据清除，并且填充饼图颜色，修改标题
第四步，右键，设置标签格式，若没有此选项的话，先右击添加数据标签即可，然后选中类别名称，
第五步：新建工作表，将饼图复制在新表中，多少个奖品，就复制多少张图表哦，并将每个饼图中的一块填充红色，不要重复哦，不然就有选不中的了，如果是故意的，当我没说，哈哈！
第六步：点击“公式”，先择“定义名称”，修改名称“抽奖大转盘”，然后最重要一步，输入公式“=index(sheet2!$a$1:$f$1,randbetween(1,5))，点击“确定”，
第七步：插入任意图片，然后输入“=抽奖大转盘”，此时抽奖的饼图届面就出来了，按F9测试，随机选中任意一个，OK,大功告成！
感谢小伙伴们的支持，有什么更好玩的，方法，还请大家多多指教，谢谢！有什么需求，也可以提出哦，谢谢！。

基于Excel VBA的随机滚动抽奖系统设计与实现

ａ＝Ｆｏｒｍａｔ（Ｄａｔｅ， “ ＷＷ年ｍ月ｄ日ＩＩ）ｂ＝Ｆｏｒｍａｔ（Ｔｉｍｅ， ” ｈｈ时ｍｍ分ＳＳ秒” ）
：（ｊ０ｆ０６５￣掂６７～一｝一！Ｌｊ “ ：Ｐ［１２３～１２～３ｉ７；Ｓｒｆ薯ｉ：３ ■ ｌ：ｉ
０３２５
… —
｝
０ＳｌＳ２｛Ｓ６Ｓ
“ 抽奖” ｆ作表用来作为于Ｉ “ 奖界面，此界向将作为
主要界面、 “ 抽奖”界面包含抽奖滚动显 ≮ 域（默认抽取ｌ０名）和栩父的文ｊ：参数以及４个ＡｔｔｉｖｅＸ控件
２功能实现及难点
２．Ｉ难点与突破
摘要：公司单位在组织活动时，大都会有一个抽奖环节来活跃气氛抽奖方式也有很多，其中波常
见的是利用抽奖软件在大屏幕上进行随机滚动抽奖目前这类软件也不少，介绍了通过Ｅｘ（＇ｅＩＶＢＡ来
制作一个随机滚动抽奖系统
作者简介：数删（１９８９一），，助教，学ｆ：，ｆｉＪ１＝究
参数２相同的排铝值…现的概牢ｕ土儿乎趋近ｒ零，终
向：信息管１ｊ．信息系统。
收稿日期：２０１７ — ０８ — ２３
“ 于｝ ¨ 奖过
操作复杂，若要较好的电脑水平才能操作：（２）内部使用，通』ｔＪ性不强，；（３）需要注册，ｆ则无法使用，有的还需要给钱能使Ｊ｝Ｊ；（４）无法保存ｌ拼１奖记录，

大公司年会都在用的Excel抽奖模板，姓名和照片都会随机跳动

大公司年会都在用的Excel抽奖模板，姓名和照片都会随机跳动值此年会季，教大家做一个随机滚动出现人名和照片的抽奖器。

写了这么多抽奖模板的做法，这一款是绝对是为年会量身定制的刚需品。

案例：制作如下图所示的年会抽奖模板：按住F9，姓名和照片开始随机跳动；放开 F9，得到抽奖结果。

解决方案：先制作抽奖数据库，在 Sheet1 中，将所有抽奖池中的姓名和照片都输入到数据表中。

1. 在 A1 和 B1 分别输入表头 --> 选择菜单栏的“插入”-->“图片”2. 在弹出的对话框中选择所有人员的照片 --> 点击“插入”3. 根据照片大小，适当调整需要放置照片的单元格尺寸4. 将第一张照片拖动到 B2 单元格5. 按F5 --> 在弹出的对话框中点击“定位条件”-->“对象”-->“确定”，即可选中所有照片6. 选择菜单栏的“格式”-->“对齐”-->“左对齐”7. 将任意一张照片拖动到 B 列中需要放置照片的最后一个单元格8. 再次按F5 --> 在弹出的对话框中点击“定位条件”-->“对象”-->“确定”，选中所有照片9. 选择菜单栏的“格式”-->“对齐”-->“纵向分布”所有照片都在 B 列中上下左右对齐，均匀排列好了。

10. 在 A 列中输入对应的姓名11. 选择另一个工作表 Sheet2 作为抽奖工作表，将表头复制粘贴过来，照片单元格同样调整到适合照片大小的尺寸。

12. 在 A2 单元格中输入以下公式：=INDEX(Sheet1!$A$2:$A$11,RANDBETWEEN(1,COUNTA(Sheet1!$A$2:$A$11)))公式释义：•COUNTA(Sheet1!$A$2:$A$11)：统计数据库表中的姓名个数，即总共有几个人参与抽奖•RANDBETWEEN(1,...)：生成一个 1 到总人数之间的随机整数•INDEX(Sheet1!$A$2:$A$11,...)：查找姓名列，返回随机数所在的第 n 行单元格的值现在按住 F9，姓名就会随机跳动；放开 F9，停止跳动。

excel怎么制作抽奖小程序？

excel怎么制作抽奖⼩程序？
年尾了，很多企业年会都有抽奖环节，你还在弱弱的使⽤把名字写好放⼊抽奖箱的原始⽅式吗？其实我们只要⼀台电脑上的EXCEL就可以实现随机抽奖功能，听起来⾼⼤上的样⼦，哈！先看动态效果图：
如上图，按住F9键就可以随机抽奖了，名字随机变化！
具体制作⽅法：
1.⾸先把名字输⼊到表格当中，设定⼀个显⽰中奖员⼯名字的单元格（可以⼤⼀点⽅便显⽰），在单元格输⼊公式【=INDEX(B:B,RANDBETWEEN(2,21))】
2.选择B列名字，设置单元格条件格式【等于D6,颜⾊为绿⾊，字体⿊⾊】
３.最后按住F9键不放就可以实现随机抽奖功能了！也可把名字改变成奖品名称，那随机显⽰的就是奖品了，可以⽤于显⽰员⼯随机抽中的奖品是什么！
公式解析：
由【index】和【randbetween】两个函数综合运⽤合成，randbetween是返回⼀个介于指定数字的随机数，INDEX是返回给定单元格的值，randbetween显⽰的是⼀个数字，⽤index把这个数字代表的值（名字）显⽰出来！
春节尾⽛将⾄，如何⽤Excel制作抽奖器呢？
⼩编分享2种类型的抽奖器
1. 简单、朴素且实⽤的抽奖器
2. 复杂、美观且专业的抽奖器
鸣谢：需要源⽂件，请关注后，发私信给我噢！！发私信！！
春节尾⽛将⾄，如何⽤Excel制作抽奖器呢？
⼩编分享2种类型的抽奖器
1. 简单、朴素且实⽤的抽奖器
2. 复杂、美观且专业的抽奖器
鸣谢：需要源⽂件，请关注后，发私信给我噢！！发私信！！。

excel怎么制作抽奖小程序？

excel怎么制作抽奖⼩程序？
抽奖⼩程序，要求的是结果随机，在Excel⾥⾯有随机数函数rand()和randbtween来进⾏制作的，我们分三种情况来制作，1、单⼈抽奖，2、多⼈不重复抽奖，3、内定抽奖
我们⾸先准备抽奖的名单，放在A列，这个表格⾥⾯有88个⼈员
1、单⼈抽奖模式
我们在某个空⽩的单元格中输⼊公式
=index(a:a,randbetween(1,88))
这个时候，我们按住F9键，屏幕就会滚动起来，松开F9键，就得到了抽奖的结果（如果是笔记本电脑，按FN+F9键），抽奖效果如下所⽰：
2、多⼈不重复抽奖
我们需要在第2列中输⼊公式=rand()函数，然后向下填充，它会随机的⽣成0-1之间的随机数
然后我们在中奖名单⾥⾯输⼊公式：=index(a:a,rank(b1,b:b))，希望⼏个⼈中奖的话，就向下拉动⼏个单元格，便可以得到不重复的多⼈中奖抽奖模式
3、内定抽奖
如果希望抽奖的时候，内定抽到⾃⼰的话，那么我们可以借助VBA来实现制作过程如下，⾸先我们按ATL+F11，打开VBA编辑器，在⾥⾯输⼊如下三个模块的代码
因为在代码中，我们是对D1单元格产⽣随机数，所以在表格中，输⼊的公式是：=index(a:a,d1)然后我们插⼊三个按纽，其中内定的按纽放的隐蔽⼀点，分别绑定开始，结果，内定代码
这个时候就制作完成了，当我们正常点击开始，结束抽奖时，是正常的
当我们提前点了⼀下内定按纽之后，再点开始，结束时，抽奖的结果100%是作者本⾝了
因为插⼊了VBA代码，所以表格需要另存为⼀下，将格式更改成xlsm格式的⽂件。

这就是3个Excel⽤来制作抽奖的⼩程序技巧。