1. Excel抽奖函数
EXCEL有排列和组合函数。
排列函数为PERMUT函数，组合函数为COMBIN函数。
组合函数：计算从给定数目的对象集合中提取若干对象的组合数。利用函数 COMBIN 可以确定一组对象所有可能的组合数。
语法：COMBIN(number,number_chosen)
排列函数：返回从给定数目的对象集合中选取的若干对象的排列数。排列为有内部顺序的对象或事件的任意集合或子集。排列与组合不同，组合的内部顺序无意义。此函数可用于彩票抽奖的概率计算。
语法：PERMUT(number,number_chosen)
扩展资料：
Excel函数大全：
AVERAGE 返回选定数据库项的平均值。
COUNT 计算数据库中包含数字的单元格的个数。
COUNTA计算数据库中非空单元格的个数。
DGET 从数据库中提取满足指定条件的单个记录。
MAX 返回选定数据库项中的最大值。
MIN 返回选定数据库项中的最小值。
PRODUCT 乘以特定字段（此字段中的记录为数据库中满足指定条件的记录）中的值。
STDEV根据数据库中选定项的示例估算标准偏差。
STDEVP 根据数据库中选定项的样本总体计算标准偏差。
SUM 对数据库中满足条件的记录的字段列中的数字求和。
VAR根据数据库中选定项的示例估算方差。
VARP 根据数据库中选定项的样本总体计算方差。
GETPIVOTDATA 返回存储在数据透视表中的数据。
2. 抽奖的函数
很多彩民看谁都能中，就是自己中不到，还市场怀疑是否有内幕，别人拿走大奖？今天我为你解密，开奖内幕。
中国彩票大奖基本都是通过摇奖机产生，包括今年深圳的大乐透1.28亿的大奖，目前全球最先进的摇奖机由法国制造，它非常精密，并且昂贵，中国体彩和福利彩票的超级大奖的摇奖机，基本都由国外进口，以保障开奖的公平和公开。
目前，摇奖机全球都在用，它包括用于法院、政府机构、企事业，娱乐，博彩机构等等，需要展示公平公正，有抽奖或者选号环节的所有企事业单位的活动中，全球估计超过5000万台，市场产值过千亿美元。
中国的国家彩票、也均是采用摇奖机开奖、省级以上法院、相关公示部门，均采用摇奖机作为公平公正标志。最早的摇奖机由法国科学家研发出来。分为一代的搅拌式摇奖机和二代的吹气式摇奖机。
现在，全球最新最先进的摇奖机，名为—维纳斯，由法国AKANIS公司生产，高1.94米，重444公斤，是国际最先进的摇奖设备之一，通过国际电工委员会电子元器质量体系认证，被美国、西班牙、法国、新加坡，日本，韩国，中国，巴西，摩纳哥，中东等很多国家和地区的彩票机构都在使用。
经过几年的发展，国内摇奖机技术水平已经追赶上世界步伐，国内目前已有多家企业，可以生产摇奖机，专门为彩票附属机构提供服务，规模大、技术先进的摇奖服务。
即便如此，诸如彩票的福彩或体彩，国家彩票中心的摇奖机，仍旧采用法国进口的设备—新“维纳斯”，维纳斯的搅拌仓均由透明高级树脂制成，观众可以清晰地看到摇奖球从搅拌到出球的全过程。
因为机器是采用吹气式搅拌，里面的彩票球，在依靠气流搅拌摇奖球，避免摇奖球在搅拌过程中与其他介质的接触，在短时间内形成更为充分的搅拌，以保证摇奖结果的随机性和公平性。
特别是法国公司制造的摇奖球，重量一样，光滑度一样，摩擦系数一样，甚至连静电值都相同，所以，在隔绝的摇奖容器里，它既不受电或磁力影响，也不受声音或其它气流干扰。
新“维纳斯”摇奖机，将在福彩或体彩开奖现场同步投入开奖使用。在此之前，福彩或体彩测试小组成员与法国工程师，还将对其进行为期一周的测试检查与模拟使用，以确保其在正式摇奖中的安全性和稳定性，因为这个摇奖的球，每次用完就会全部销毁，下次摇奖用没开封，也无静电的新球，并且，新球全部由法国母公司随机配送过来，开奖时倒入摇奖机内，用完一次就销毁。
目前，我国许多政府部门或事业性单位，因社会环境要求均需要对外公开化，以示公平，加之娱乐性抽奖活动逐步走进人们的工作需求当中，故摇奖机的需求量日渐增大，另外，近年来，计多新兴的、需要公平公证的行业的兴起，也增加了摇奖机的需求。
所以，看上去简单一台摇奖机，实际上也是一台高科技产品，要仿制并不容易，它的材料和涂层配方均是高度保密的商业机密，到今天为止，只有法国一家可以做到绝对精确和最低误差。
因此，你担心开奖的摇奖机有问题，就多余了，你所看到大奖，均是公平公正通过机器随机产生的。
3. excel抽奖函数不重复
材料/工具：Excel2010
1、打开电脑后，直接进入到excel软件中，新建一个空白的表格文档，在表格中某一列单元格中录入好我们要抽取的内容，例如姓名，编号等等。
2、录入完成后，我们在当前表格文档中重新再去选择一个单元格，将其作为最终抽取结果的展示用。
3、接着我们在该抽奖结果单元格中输入以下公式：“=INDEX(A:A，RANDBETWEEN(2,61))"。
4、在“=INDEX(A:A，RANDBETWEEN(2,61))"公式中，A：A表示我们要抽取的内容所在的单元格列范围为A列A列，可以自定义。
5、公式输入完成后，在抽取结果单元格就会随机产生一个抽取结果，我们可以为该抽取结果单元格设置一个格式：字体、字号、颜色等等。
6、设置好之后，想要开始抽奖或者抽签，我们只需要选中抽取结果单元格，然后按住键盘上的“F9”键，按下后在抽取结果单元格中就会在我们选择的抽取内容中随机产生抽取结果，松开“F9”就可以产生一个抽取结果。
4. excel抽奖函数制作
先看上面的示例：
在A2至A14列输入所有人名，在B2输入公式：
=RAND()
并下拉拖到B14。
然后在E2中输入公式：
=INDEX($A$2:$A$14,RANK(B2,$B$2:$B$14))
并下拉拖出三行。
按F9摇奖，单按一次，会随机提取出三个人名。
如果按下F9不放，就会实现人名滚动的效果，松开F9后人名停止滚动。
提取出来的人名重复的机率是一亿分之一，一般不会提取到重复人名，
退一万步讲，如果摇出重复人名，可以放弃这次摇奖，重新按F9摇奖。
5. excel抽奖函数笔记本按哪个键
用vba编个程序可以实现。
将一个案例分享给大家。程序页面如下：
部分代码如下：
Private Sub CommandButton4_Click()
'开始抽奖
Dim zb As String, dj As String, rs As Integer
Dim SARR(1 To 5000, 1 To 2) '存放本次抽奖的候选人清单 1-姓名 2-电话号码
'Dim lsARR '存放最近100次的候选人
Dim ZZ1 As Integer, ZZ2 As Integer, ZZ3 As Integer
'Dim jgarr
Dim ysARR(1 To 3, 1 To 3) As Integer '三种颜色参数
Dim zjZD '仅存放姓名+半角分号（;)+4位尾号
Dim myName As String
Dim hxRs As Integer, ZJRS As Integer '候选人数,中奖人数
Const lsRs = 100 '存放100位候选人
Set zjZD = CreateObject("scripting.dictionary")
'ReDim jgarr(1 To ZJRS) As Long
A = 0 '
ysARR(1, 1) = 255: ysARR(1, 2) = 250: ysARR(1, 3) = 0
ysARR(2, 1) = 255: ysARR(2, 2) = 10: ysARR(3, 3) = 10
ysARR(3, 1) = 255: ysARR(3, 2) = 250: ysARR(3, 3) = 0
'清空颜色
For I = 1 To 15
myName = "TextBox" & I
Set xx = Me.Controls(myName)
xx.BackColor = RGB(255, 255, 255)
xx.ForeColor = RGB(255, 215, 0)
xx.Font.Size = 10
xx.BackStyle = 0
ZZ3 = ZZ3 - 1
If ZZ3 = 0 Then ZZ3 = 15
Next I
zb = ComboBox1.Value
dj = ComboBox2.Value
ZJRS = ComboBox3.Value '中奖人数
'读取还可抽取人数
With Sheets("中奖人数设定")
For I = 3 To 8
If .Cells(I, 2) = zb Then Exit For
Next I
For j = 9 To 11
If .Cells(2, j) = dj Then Exit For
Next j
kcqrs = .Cells(I, j) '可抽取人数
End With
If ZJRS = 0 Or ZJRS > kcqrs Or ZJRS > 15 Then
MsgBox ("抽奖人数设置不正确！")
Exit Sub
End If
ReDim jgarr(1 To ZJRS, 1 To 2)
'读取候选人 放入sarr
Select Case zb
Case "A"
lh = 2
Case "B"
lh = 5
Case "C"
lh = 8
Case "D"
lh = 11
Case "E"
lh = 14
Case "F"
lh = 17
End Select
hxRs = 0
With Sheets("人员清单")
HH = 3
Do While .Cells(HH, lh) <> ""
If .Cells(HH, lh + 2) = "" Then '检查是否中奖，已经中奖的不得参与摇奖
hxRs = hxRs + 1
SARR(hxRs, 1) = .Cells(HH, lh)
SARR(hxRs, 2) = .Cells(HH, lh + 1)
End If
HH = HH + 1
Loop
End With
ZZ1 = 0: ZZ2 = 0: ZZ3 = 0
upperbound = hxRs
lowerbound = 1
'1-11:中奖人数和候选人数一样时，单独做一个循环
If ZJRS < hxRs Then GoTo 200
'一样时
Do While True
For ZZ2 = 1 To hxRs
myName = "TextBox" & ZZ2
Set xx = Me.Controls(myName)
xx.Text = SARR(ZZ2, 1) & Chr(10) & Right(SARR(ZZ2, 2), 4)
Next ZZ2
DoEvents '释放程序控制权，允许其他事件
Sleep (5) '延时ms
DoEvents '释放程序控制权，允许其他事件
If A = 1 Then GoTo 300
Loop
200:
Do While True
100:
SJS = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
MYKEY = Trim(SARR(SJS, 1)) & ";" & Trim(Right(SARR(SJS, 2), 4))
If zjZD.EXISTS(MYKEY) Then
ZZ1 = ZZ1 + 1
If ZZ1 > 10000 Then
MsgBox ("数据异常！！！")
Exit Sub
End If
GoTo 100
End If
'ZZ1 = ZZ1 + 1
'If ZZ1 = 101 Then ZZ1 = 1
ZZ2 = ZZ2 + 1
If ZZ2 = ZJRS + 1 Then ZZ2 = 1
'ZZ3 = ZZ3 + 1
'If ZZ3 = 4 Then ZZ3 = 1
'lsARR(ZZ1) = sjs
myName = "TextBox" & ZZ2
Set xx = Me.Controls(myName)
'xx.Text = Left(SARR(SJS, 2), 3) & "XXXX" & Right(SARR(SJS, 2), 4)
xx.Text = SARR(SJS, 1) & Chr(10) & Right(SARR(SJS, 2), 4)
zjZD.RemoveAll
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
If xx.Text <> "" Then
MYKEY2 = qczf(Left(xx.Text, InStr(xx.Text, Chr(10)) - 1)) & ";" & Right(xx.Text, 4)
zjZD.Add MYKEY2, I
End If
Next I
'xx.BackColor = RGB(ysARR(ZZ3, 1), ysARR(ZZ3, 2), ysARR(ZZ3, 3))
DoEvents '释放程序控制权，允许其他事件
Sleep (5) '延时ms
DoEvents '释放程序控制权，允许其他事件
300:
If A = 1 Then
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
xx.BackColor = RGB(ysARR(1, 1), ysARR(1, 2), ysARR(1, 3))
xx.ForeColor = RGB(0, 0, 255)
xx.Font.Size = 20
xx.BackStyle = 1
'ZZ3 = ZZ3 - 1
'If ZZ3 = 0 Then ZZ3 = 15
Next I
Exit Sub
End If
Loop
End Sub
Private Sub CommandButton5_Click()
A = 1
End Sub
Private Sub CommandButton6_Click() '记录中奖信息
Dim zjZD
Dim ZJRS
Dim zjArr
zb = ComboBox1.Value '组别
dj = ComboBox2.Value '等级
ZJRS = ComboBox3.Value '中奖人数
Set zjZD = CreateObject("scripting.dictionary")
'遍历文本框，获取中奖的电话号码
For I = 1 To ZJRS
myName = "TextBox" & I
Set xx = Me.Controls(myName)
ARR = Split(xx.Text, Chr(10))
MYTEXT = qczf(ARR(0)) & ";" & qczf(ARR(1))
zjZD.Add MYTEXT, I
xx.Text = ""
xx.BackColor = RGB(255, 255, 255)
Next I
Select Case zb
Case "A"
lh = 2
Case "B"
lh = 5
Case "C"
lh = 8
Case "D"
lh = 11
Case "E"
lh = 14
Case "F"
lh = 17
End Select
With Sheets("人员清单")
For I = 3 To .Cells(10000, lh).End(xlUp).Row
'SARR(SJS, 1) & Chr(10) & Right(SARR(SJS, 2), 4)
'mytext = Left(.Cells(I, lh + 1).Text, 3) & Right(.Cells(I, lh + 1).Text, 4)
MYTEXT = qczf(.Cells(I, lh).Text) & ";" & qczf(.Cells(I, lh + 1).Text)
If zjZD.EXISTS(MYTEXT) Then
.Cells(I, lh + 2) = dj
End If
Next I
End With
End Sub
Private Sub Frame2_Click()
xxx = 1
End Sub
Private Sub UserForm_Initialize()
Dim xstr(1 To 6) As String '保存每列的数据
Dim ystr(1 To 3) As String
Dim zstr(1 To 15) As Integer '
xstr(1) = "A"
xstr(2) = "B"
xstr(3) = "C"
xstr(4) = "D"
xstr(5) = "E"
xstr(6) = "F"
ComboBox1.List = xstr
ystr(1) = "一等奖"
ystr(2) = "二等奖"
ystr(3) = "三等奖"
ComboBox2.List = ystr
For I = 1 To 15
zstr(I) = I
Next I
ComboBox3.List = zstr
ComboBox3.Value = 15
End Sub
6. excel抽奖函数是指定哪个数
1/7分步阅读
首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。
2/7
首先我们在抽奖区的单元格中输入=INDEX（）。
3/7
然后选中数据源，也就是所有成员。
4/7
然后继续输入=INDEX（E:E，Randbetween()）。
5/7
在Randbetween()这个涵数中输入1，5，也就是数据源。
6/7
输入完成后，回车确认，这样一个抽奖小程序就制作好了。
7/7
我们只需要按f9里面的幸运儿就跟着切换了。
7. excel抽奖函数怎么用
需要准备一份word文档，里面写上1-300的数字，记得的是word每一个数字都要作为一行，然后给每一个数字都选中标题1（建议可以在excel里面直接用填充柄，快速填充300个数字，复制到word里面，就更方便了）
做好了这份word的之后，保存在桌面后，关闭word。
新建一份PPT，点击“文件”-“打开”-“浏览”，找到你放置的word文件的位置，打开它，就可以放那些数字放到PPT里面，一个数字一页。
选中其中一页，点击“视图”-“幻灯片母版”，进入那页后，只留下一个文本占位符，其他的删了，就留下那个写着“单击此处编辑母版标题样式”的，然后放好这个文本框的位置，放大里面的字体，在“开始选项”那里设置。都设置好后，点击“关闭母版视图”
关闭后，选中所有的幻灯片，在“开始”选项那里的“版式”，找到我们刚刚设置的那页幻灯片，点击下它，就可以把所有页面就换成我们想要的版式了。
选择所有幻灯片，在“切换”-“换片方式”，把点击鼠标时的勾去了，勾上“设置自动换片时间”。
在“幻灯片放映”-“设置幻灯片放映时间”，勾上这个选项“循环播放，按ESC键终止”。
这个时候你点击全屏播放或是按F5键播放，就是让幻灯片开始播放，你会看到每个数字在非常快的切换，就是抽奖。
当你按任意键盘上的一个数字键时，它就会停止在抽奖的号码，当你按空格键时，它就开始继续抽奖，跳动。
8. excel实现抽奖功能
觉得EXCLE还可能设计好，WORD就不知道怎么设计了！
用EXCLE设计先画一个文本框，然后再到上面写上字，时间，地点，名称，然后再将文本框设计好线型，颜色等等……
9. excel抽奖函数按F9为什么锁屏了
材料／工具：Excel2010
1、打开电脑后，直接进入到excel软件中，新建一个空白的表格文档，在表格中某一列单元格中录入好我们要抽取的内容，例如姓名，编号等等。
2、录入完成后，我们在当前表格文档中重新再去选择一个单元格，将其作为最终抽取结果的展示用。
3、接着我们在该抽奖结果单元格中输入以下公式：“＝INDEX(A:A，RANDBETWEEN(2,61))"。
4、在“＝INDEX(A:A，RANDBETWEEN(2,61))"公式中，A：A表示我们要抽取的内容所在的单元格列范围为A列A列，可以自定义。
5、公式输入完成后，在抽取结果单元格就会随机产生一个抽取结果，我们可以为该抽取结果单元格设置一个格式：字体、字号、颜色等等。
6、设置好之后，想要开始抽奖或者抽签，我们只需要选中抽取结果单元格，然后按住键盘上的“F9”键，按下后在抽取结果单元格中就会在我们选择的抽取内容中随机产生抽取结果，松开“F9”就可以产生一个抽取结果。
- 相关评论
- 我要评论
-