抽奖程序excel

㈠ 如何用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抽奖器制作方法，

抽奖器是Excel2003版本特有的。

菜单栏——文件——新建——右侧出现《新建工作簿》窗格——本机上的模板——慎蔽雀出现《模板》对话框——电子方案表格——选“抽奖器”——确定——编辑界面出现与《MicrosoftExcel–Book1》平行的《MicrosoftExcel–REPORT91》操作程序：

工作表有：《抽奖》、《设置》、《抽奖结果》、《候选名单》等四个标签。

使用说明及注意事项：

1、本抽奖程序可以根据用户设置对一组候选名单进行抽奖。

2、在《候选名单》工作表中录入所有候选名单，每人一行格，不留空行。

3、在《设置》工作表里面：

①设置“奖项设置”名额（最多可设置“特等奖”~“五等奖”共6个级别的奖项），单项级别最多可设置5000名获奖者，获奖总数不能超过《候选名单》里的候选人数。

②“抽奖顺序”默认或根据需要另选它项。

③“抽奖方法”分：每次抽取一组中的全部获奖者、或每次抽取若干名同一组获奖者。

④设置完毕后点“设置完成”按钮，程序自动转入《抽奖》工作表。

4、在《抽奖》工作表里面：

①点“开始抽奖”按钮——程序自动按《设置》里的“抽奖顺序”在右上角“本次获奖名单”项下快速变换未被选中的所有候选名单——点“停止”按钮（原为“开始抽奖”按钮）即可在“本次获奖名单”里显示出《设置》里“奖项设置”的并大同级获奖名单——点“继续抽奖”按钮（原为“停止”按钮），又继续进入下一个奖项的抽奖……；

②抽奖一旦开始，请完成整个抽奖过程，不要中途退出程序；

③各个奖项抽奖完成后，“继续抽奖”按钮变成“抽奖结束”按钮。

5、在《抽奖结果》工作表里面，可以看出各个奖项的获奖名单。

6、在《抽奖》工作表里按“打印获奖名单”按钮，就可打印出各个奖宽早项的获奖名单了。

7、本程序不支持重复获奖。

㈢ excel抽奖如何设定一部分人只能抽中低等奖，又不被人看出

这有的是罩袜办法，但是正常别人让我这么做我不会做的。抽奖就是个随机值问题。既然这样就完全随机，如果不做完物派激全随机，就没有意思了。羡派
我用VBA给人写过Excel的抽奖程序，但是都是完全随机的。

㈣ EXCEL 抽奖 怎么做

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

=int(rand()*1000)

然后下拉填充。

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

=rank(a1,a:a)<4

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

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

㈤ 请问怎么用Excel，按照固定的概率自动抽奖，统计实际结果

用randbetween函数来生成随机数，然后用根据概率设置，用if来判断他应该落在哪个区间就行了，比如一等奖概率5%，可以这样写：
=IF(RANDBETWEEN(1,100) <=5, "恭喜你中了一等奖", "很遗憾未中奖")
如果是25%，把上面的5改成25就可以了
核心就是随机数的生仔陵拆成，至于怎么安排/显示/统计，就看汪橡你自己需要什么样的了（念枣统计那个可以直接根据最终文字， 也可以把随机数拆解出来分多个公式计算）

㈥ 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
点击按钮测试，得到随机中奖编号