excel抽奖（excel抽奖一次抽10个）

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

本文目录一览：

• 1、EXCEL怎么制作抽奖系统
• 2、excel表格抽奖如何做
• 3、excel随机抽奖有规律吗

EXCEL怎么制作抽奖系统

材料/工具excel抽奖：Excel2010

1、首先打开一个空白excel抽奖的Excel表格excel抽奖，在A列种依次输入奖品的名称，接着在表格的其它地方新建一个抽奖表格

2、接着在抽奖表格中，输入函数：“RANDBETWEEN”

3、然后在函数括号后面输入奖品的序号，这里奖品的序号是A列的2-7

4、在函数“RANDBETWEEN”前面插入index函数

5、最后在函数RANDBETWEEN前面输入奖品所在的列，这里是A列，操作是：“A:A，”输好之后直接按回车键

6、  现在就可以开始抽奖了，在这里直接按F9来进行抽奖环节。

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随机抽奖有规律吗

excel随机抽奖有规律。

假设参与抽奖的号码或姓名在A列，就在B列输入 =rand() 然后向下复，在 C列 （得奖栏）输入：=INDEX(A:A,MATCH(SMALL。

菜单栏——文件——新建——右侧出现《新建工作簿》窗格——本机上的模板——出现《模板》对话框——电子方案表格——选“抽奖器”——确定——编辑界面出现与《Microsoft Excel – Book1》。

让数据显示不同颜色：

在学生成绩分析表中，如果想让总分大于等于500分的分数以蓝色显示，小于500分的分数以红色显示。操作的步骤如下：首先，选中总分所在列，执行“格式→条件格式”，在弹出的“条件格式”对话框中，将第一个框中设为“单元格数值”、第二个框中设为“大于或等于”。

然后在第三个框中输入500，单击[格式]按钮，在“单元格格式”对话框中，将“字体”的颜色设置为蓝色，然后再单击[添加]按钮，并以同样方法设置小于500，字体设置为红色，最后单击[确定]按钮。 这时候，只要你的总分大于或等于500分，就会以蓝色数字显示，否则以红色显示。

关于excel抽奖和excel抽奖一次抽10个的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。 excel抽奖的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于excel抽奖一次抽10个、excel抽奖的信息别忘了在本站进行查找喔。

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