1. excel制作抽奖程序
用电子表格制作抽奖的方法如下:
1、第一：将所需抽奖的人员名字输入，当然也可以输入编号，效果都是一样的，下面以人员名字进行模拟抽奖，在对应抽奖编号栏中输入公式“=RAND()”这个中奖编号是辅助抽奖使用的，没有实际意义，但是是必须要有的，需靠这个编号来挑选抽奖，将所有编号填充完成。
2、第二：在中奖人员名字一栏中输入公式“INDEX($B$4:$B$16,RANK(C4,$C$4:$C$16))”公式内数字与表格的数字需一一对应，大家可以自己调整，这里我是对应我的表格的数字。
3、第三：按动“F9”即可进行摇号抽奖，按住F9一直滚动，松掉F9即可停止。
2. excel怎么做抽奖程序
1、首先打开Excel，以制作一个抽奖小程序为例，先输一些数据。
2、首先我们在抽奖区的单元格中输入=INDEX（）。
3、然后选中数据源，也就是所有成员。
4、然后继续输入=INDEX（E:E，Randbetween()）。
5、在Randbetween()这个涵数中输入1，5，也就是数据源。
6、输入完成后，回车确认，这样一个抽奖小程序就制作好了。
7、我们只需要按f9里面的幸运儿就跟着切换了。
3. Excel制作抽奖
觉得EXCLE还可能设计好，WORD就不知道怎么设计了！
用EXCLE设计先画一个文本框，然后再到上面写上字，时间，地点，名称，然后再将文本框设计好线型，颜色等等……
4. excel如何制作抽奖小程序
我们平时总用到excel表格，但是很多人还不知道excel表格是可以制作抽奖小程序的，这个程序对我们来说非常方便，无论是对于小公司，还是大公司来说，这个都是抽奖的最好方法，那么如何实现呢，下面我来教大家如何操作。
工具/原料
excel表格
电脑
方法/步骤
1、我们打开excel表格，在表格中输入本次抽奖的奖品。
2、然后我们选中旁边一个大点的表格，扩选一下，再次点击“合并居中”。
3、接下来在空白大表格中，我们输入“=RANDBETWEEN()”。
4、然后再后边小括号中输入“1,10”，其中1是横向第一行，10是纵向第十行，这个数字你们可以自己设定，根据奖品排数设定的。设置上述内容完毕后，我们需要在“=”后边加上“INDEX(A:A,”。最终我们输入的总数字是“=INDEX(A:A,RANDBETWEEN(1,10)”。
5、输入了完了“INDEX(A:A,”后，我们这时按下回车键，得到下图内容。
6、我们要将左边的奖品隐藏掉，操作方法是，右键点击坐标上面的“A”，点击菜单中的“隐藏”选项。
7、最后我们按住“F9”转盘开始转了起来，松开F9停手，就可以抽到随机奖品， 这就是我们所说的抽奖小程序。
5. 怎么用excel制作抽奖
这种情况下 用excel更合适 设定单元格格式为自定义中的“00”（如果是三位数，可以设置为000） 然后下拉即可实现
6. excel怎么制作抽奖系统
1、首先打开要进行随机抽查的人员表。
2、然后打开插入函数对话框，类别中选择【全部】。
3、然后找到【RANDBETWEEN】，点击。
4、然后设置数字的最低值，还有最高值。
5、接着在抽查人员框中输入【=VLOOKUP(D2,A2:B11,2,FALSE)】。
6、最后即可看到抽查号码和对应的抽查人员。
另一种复杂方法如下：
全部名字放在一列（假设是A列），在B列加一个辅助列，在B1中输入或复制粘贴此公式=RAND()（说明：这是随机函数），下拉填充或双击B1右侧的填充柄，选中B列任一非空单元格 单击或多次单击常用工具栏上的升序排序或降序排序图标。在C1中输入或复制粘贴此公式=INDIRECT("A"&(COLUMN(A:A)-1)*68+ROW($A1))，右拉填充到E列，选中C1:E1，下拉填充到第68行。即可。
7. excel抽奖如何制作
设定一个触发器。
当输入F9的时候，中奖人则设定为某个人。
8. 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”就可以产生一个抽取结果。
9. 如何用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
10. excel制作抽奖系统
1 先将所有不重复的题目依次编号
2 再将所有编号放在a列依次排列
3 将与a列中有编号的单元格相邻的b列单元格都加上随机函数rand
4 点击b列中任意一个有数值的单元格，再点-排序
5 现在只要在a列中选择需要的前n个题目编号即可
- 相关评论
- 我要评论
-