excel表单自动抽奖(excel表格抽奖系统

网友投稿 812 2023-02-08

本篇文章给大家谈谈excel表单自动抽奖,以及excel表格抽奖系统对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。 今天给各位分享excel表单自动抽奖的知识,其中也会对excel表格抽奖系统进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

本文目录一览:

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

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

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

如何用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表格抽奖系统的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。 excel表单自动抽奖的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于excel表格抽奖系统、excel表单自动抽奖的信息别忘了在本站进行查找喔。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:制造商与生产企业(制造商与生产企业区别)
下一篇:excel坐标轴(excel坐标轴最大值最小值)
相关文章