㈠ EXCEL 抽奖 怎么做
1、用随机函数rand分配给每个人一个抽签号，A1单元格里输入公式：
=int(rand()*1000)
然后下拉填充。
2、然后选中A列，设置条件格式，用公式将前三名（或自定）设置为红色，公式为：
=rank(a1,a:a)<4
(<4意思是取前3名,如果要取前5名就改为<6，以此类推)
3、每次可按F9键刷新一下结果
㈡ 用excel表 怎么设置一个随机抽奖
excel2003版本里面有个《抽奖器》，是2003版本特有的，可以试试：菜单栏——文件——新建——右侧出现《新建工作簿》窗格——本机上的模板——出现《模板》对话框——电子方案表格——选“抽奖器”——确定——编辑界面出现与《microsoftexcel–book1》平行的《microsoftexcel–report91》操作程序：按提示操作就行。
㈢ Excel2013制作随机抽奖系统
简单的制作方法。1.首先要打开我们的Excel2013表格，制作出本次参与抽奖的名单。(点小图看大图)2.然后再在F2单元格中输入=INDIRECT("d"&INT(RAND()*13+2))(点小图看大图)3.公式的意义是：int函数返回一个2-14的随机整数，和d串联就会返回D2：D14之间的随机单元格，最后，indirect会返回随机单元格里面的姓名。回车按下，得到一个人员的名字：孙天乐。(点小图看大图)4.选中从A到D，单击菜单栏–条件格式–新建规则选项。(点小图看大图)5.选择最后一个规则类型，途中已用红线标出来了，使用公式确定要设置格式的单元格，输入公式：=$D1=$F$2,点击格式按钮。(点小图看大图)6.弹出一个新建格式规则框如下图，可以置单元格格式，也就是中奖人员在名单册中的现实方式，与其他人进行区分。(点小图看大图)7.确定完了后再看看我们的表格的最终效果。(点小图看大图)我们www.ew8.cn郑州易网科技有限公司的孙天乐是我们的获奖者，很明确的表示出来了吧?嗯哼!这个Excel2013表格制作的抽奖系统不错吧?哦，最后告诉你按下F9键刷新，就会重新抽奖。好了blue1000今天讲的这个利用Excel2013去制作一个随机抽奖的系统是不能够作假的，没有猫腻的公平的随机抽奖系统，你要是需要认为控制的抽奖呢，且听有时间再告诉你。
㈣ 如何在excel表格中制作抽奖卷模板
LARGE函数，返回数据集中的第K个最大值。IF函数。MMULT函数，矩阵乘积函数。
ROW函数，返回指定单元格函数。INDIRECT函数，对引用进行计算，显示其内容。
TRANSPOSE函数，转置公式 , 就是把 竖列 变成横行的函数。这个函数是为了方便看。
RANDBETWEEN函数，返回大于等于指定的最小值，小于等于指定最大值之间的一个随机整数的函数。
方法/步骤
1.抽奖就以大乐透的形式来讲，在1到37之间选7个数，这7个数就是获奖的数字。
㈤ excel表格抽奖如何做
01打开excel，并点击excel的最左上角的图标，找到“Excel 选项”。02找到“常用”点击，然后在右侧找到“在功能区显示‘开发工具’选项卡”复选框打钩，按确定。03点击开发工具，调出开发控件04利用调出的开发控件，2个Label，2个TextBox，1个按钮。结合Excel知识，制作如下界面。05可以在视图中找到宏，也可以在开发工具中找到宏。然后打开宏编辑。06添加VBA代码：Option Base 1Dim t1 As Long '范围1Dim t2 As Long '范围2Dim czh As Integer '抽奖号码Dim num As IntegerSub auto_open()Application.OnKey "{ENTER}", "cj"Application.OnKey "~", "cj"End SubPublic Function tj(lb) As IntegerDim k As Integerk = 2DoSet myR = Sheets(lb).Cells(k, 1)If Trim(myR.Value) = "" Then '出现空记录Exit DoEnd Ifk = k + 1Loop Until Falsetj = k – 1End FunctionPublic Function csf()num = tj("temp")With Worksheets("temp")t1 = .Cells(num, 3).Valuet2 = .Cells(num, 4).ValueEnd WithWorksheets("抽奖程序").TextBox1.Text = t1Worksheets("抽奖程序").TextBox2.Text = t2End FunctionPublic Function cj()num = tj("temp")Call csfCall cjszEnd FunctionPublic Function cjsz()Dim r(10)For i = 1 To 10xh = FalseDod = Int((t2 – t1 + 1) * Rnd + t1)j = 0Doj = j + 1If r(j) = d Thenxh = FalseExit DoElsexh = TrueEnd IfLoop Until j >= iLoop Until xh = Truer(i) = dNext iDim b(1 To 10)For i = 1 To 10b(i) = Application.WorksheetFunction.Small(r, i)Worksheets("抽奖程序").Label1.Caption = ""NextFor j = 1 To 10For i = 1 To 2000If i Mod 100 = 0 ThenDoEventsEnd Ifm = Int((t2 – t1 + 1) * Rnd + t1)Worksheets("抽奖程序").Label2.Caption = Format(m, "00000")Next id = b(j)Worksheets("抽奖程序").Label2.Caption = Format(d, "00000")Worksheets("抽奖程序").Label1.Caption = Worksheets("抽奖程序").Label1.Caption & " " & Worksheets("抽奖程序").Label2.CaptionNext jnn = tj("数据统计")With Worksheets("数据统计").Cells(nn + 1, 1).Value = nn.Cells(nn + 1, 2).Value = Date.Cells(nn + 1, 3).Value = Worksheets("抽奖程序").Label1.CaptionEnd WithFor i = 1 To 14j = nn + 2 – iIf j > 1 ThenWith Worksheets("数据统计")a = .Cells(nn + 2 – i, 2).Valuec = .Cells(nn + 2 – i, 3).ValueEnd WithWith Worksheets("抽奖程序").Cells(i + 1, 14).Value = a.Cells(i + 1, 15).Value = cEnd WithElseExit ForEnd IfNext iEnd Function07点击按钮测试，得到随机中奖编号
㈥ 如何用电脑excel抽奖
单元格内输入公式：=CHOOSE(RANDBETWEEN(1,5),"没中奖","1等奖","2等奖","3等奖","纪念奖")，按F9键刷新选择结果。
㈦ 如何用excel做一个抽奖系统
先将图片的属性设置成“随单元格改变位置和大小”。第一步：设置随机数值在空单元格中，这里是在单元格中输入公式=INDEX($A$1:$A$8,RANDBETWEEN(1,COUNTA($A$1:$A$8)))公式说明：INDEX函数用法：= INDEX（单元格区域，指定的行数，指定的列数）RANDBETWEEN函数：表示随机生成整数，语法：=RANDBETWEEN（起始值，结束值）COUNTA函数：计算非空单元格第二步：建立名称点击公式——定义的名称——名称管理器——新建，然后重命名，这里命名为“抽奖”，在引用中输入公式=INDIRECT("B"&MATCH(抽奖!$F$1,抽奖!$A$1:$A$8,0))公式说明：MATCH函数用法：= MATCH（查找值，查找区域，查找方式）第三步：插入图片在表格中插入图片，之后在图片上插入文本框和任意一张图片，根据自己需要排版好，然后选中文本框，输入=F1单元格，选中图片，在编辑框中输入=抽奖，最后按F9即可滚动照片。以上就是excel制做抽奖的方法
未经允许不得转载：山九号 » 抽奖excel文件|excel表格抽奖如何做
