怎样用excel制作抽奖机

❶ 如何做一个excel抽奖器，每个人只能被抽中一次

/.在A1:A10区域用=rand（)函数，这里就生成10个小于1的小数。2/.再在B1:B10区域... 在C1:C10输入10个参与抽奖人名。4/.比喻说只有前三名中奖，在D1:D3输入 1,2,35/....

❷ 用excel表 怎么设置一个随机抽奖

excel2003版本里面有个《抽奖器》，是2003版本特有的，可以试试：
菜单栏——文件——新建——右侧出现《新建工作簿》窗格——本机上的模板——出现《模板》对话框——电子方案表格——选“抽奖器”——确定——编辑界面出现与《microsoft
excel
–
book1》平行的《microsoft
excel
–
report91》操作程序：
按提示操作就行。

❸ EXCEL 抽奖 怎么做

1、用随机函数rand分配给每个人一个抽签号，A1单元格里输入公式：

=int(rand()*1000)

然后下拉填充。

2、然后选中A列，设置条件格式，用公式将前三名（或自定）设置为红色，公式为：

=rank(a1,a:a)<4

(<4意思是取前3名,如果要取前5名就改为<6，以此类推)

3、每次可按F9键刷新一下结果

❹ 电脑怎么做抽奖

方法/步骤

• 首先我们打开Excel软件，为了方便演示，我们需要输入部分内容，首先输入抽奖人员名单，我们将抽奖人员名单填好即可如下图所示。

  

• 好了，今天的如何用Excel制作抽奖活动教程就为大家介绍到这里，希望对大家有所帮助。

❺ 用EXCEl做一个抽奖器，每个人输入工号只能抽奖一次，抽奖后回记录下来，怎么弄

1/.在A1:A10区域用=rand()函数，这里就生成10个小于1的小数。
2/.再在B1:B10区域的B1单元格设置函数=rank(A1,A1:A10)向下复制进行排序，放心，不会有重名的。
3/.在C1:C10输入10个参与抽奖人名。
4/.比喻说只有前三名中奖，在D1:D3输入 1，2，3
5/.在E1:E3中的E1输入函数=vlookup(D1,$B$1:$C$10,2,)向下复制。
这时就简单的抽奖名单制作完成了，E列将显示抽奖结果，每次页面刷新，名单都会发生变化。

❻ 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去制作一个随机抽奖的系统是不能够作假的，没有猫腻的公平的随机抽奖系统，你要是需要认为控制的抽奖呢，且听有时间再告诉你。

❼ Excel2013表格中如何模拟一个随机抽奖系统

统计了各个地区各个公司的人员情况，下面要从中抽取一人，做为幸运观众，给以物质奖励。当然也不能有猫腻，不然会引起不服，这里我们就要用到rand随机函数了，以下是我做的一个抽奖模拟系统。
实例教程
①打开Excel，参与抽奖的人员名单已经制作好了，我们直接在F2单元格输入：=INDIRECT("d"&INT(RAND()*13+2))
②公式的意义我稍后为大家说明，回车按下，得到一个人员的名字：黄博文。
③选中A：D列，单击菜单栏--条件格式--新建规则选项。
④选择最后一个规则类型，使用公式确定要设置格式的单元格，输入公式：=$D1=$F$2,点击格式按钮。
⑤设置单元格格式，也就是中奖人员在名单册中的现实方式，与其他人进行区分。
⑥完毕，做为恒大勇夺亚冠冠军的一员，黄博文中奖。我们按下F9键刷新，就会重新抽奖。
公式说明
int函数返回一个2-14的随机整数，和d串联就会返回D2：D14之间的随机单元格，最后，indirect会返回随机单元格里面的姓名。

❽ excel表格抽奖如何做

01打开excel，并点击excel的最左上角的图标，找到“Excel 选项”。



02
找到“常用”点击，然后在右侧找到“在功能区显示‘开发工具’选项卡”复选框打钩，按确定。



03
点击开发工具，调出开发控件



04
利用调出的开发控件，2个Label，2个TextBox，1个按钮。结合Excel知识，制作如下界面。







05
可以在视图中找到宏，也可以在开发工具中找到宏。然后打开宏编辑。



06
添加VBA代码：
Option Base 1
Dim t1 As Long '范围1
Dim t2 As Long '范围2
Dim czh As Integer '抽奖号码
Dim num As Integer
Sub auto_open()
Application.OnKey "{ENTER}", "cj"
Application.OnKey "~", "cj"
End Sub
Public Function tj(lb) As Integer
Dim k As Integer
k = 2
Do
Set myR = Sheets(lb).Cells(k, 1)
If Trim(myR.Value) = "" Then '出现空记录
Exit Do
End If
k = k + 1
Loop Until False
tj = k - 1
End Function
Public Function csf()
num = tj("temp")
With Worksheets("temp")
t1 = .Cells(num, 3).Value
t2 = .Cells(num, 4).Value
End With
Worksheets("抽奖程序").TextBox1.Text = t1
Worksheets("抽奖程序").TextBox2.Text = t2
End Function
Public Function cj()
num = tj("temp")
Call csf
Call cjsz
End Function
Public Function cjsz()
Dim r(10)
For i = 1 To 10
xh = False
Do
d = Int((t2 - t1 + 1) * Rnd + t1)
j = 0
Do
j = j + 1
If r(j) = d Then
xh = False
Exit Do
Else
xh = True
End If
Loop Until j >= i
Loop Until xh = True
r(i) = d
Next i
Dim b(1 To 10)
For i = 1 To 10
b(i) = Application.WorksheetFunction.Small(r, i)
Worksheets("抽奖程序").Label1.Caption = ""
Next
For j = 1 To 10
For i = 1 To 2000
If i Mod 100 = 0 Then
DoEvents
End If
m = Int((t2 - t1 + 1) * Rnd + t1)
Worksheets("抽奖程序").Label2.Caption = Format(m, "00000")
Next i
d = b(j)
Worksheets("抽奖程序").Label2.Caption = Format(d, "00000")
Worksheets("抽奖程序").Label1.Caption = Worksheets("抽奖程序").Label1.Caption & " " & Worksheets("抽奖程序").Label2.Caption
Next j
nn = tj("数据统计")
With Worksheets("数据统计")
.Cells(nn + 1, 1).Value = nn
.Cells(nn + 1, 2).Value = Date
.Cells(nn + 1, 3).Value = Worksheets("抽奖程序").Label1.Caption
End With
For i = 1 To 14
j = nn + 2 - i
If j > 1 Then
With Worksheets("数据统计")
a = .Cells(nn + 2 - i, 2).Value
c = .Cells(nn + 2 - i, 3).Value
End With
With Worksheets("抽奖程序")
.Cells(i + 1, 14).Value = a
.Cells(i + 1, 15).Value = c
End With
Else
Exit For
End If
Next i
End Function



07
点击按钮测试，得到随机中奖编号