用excel怎么做抽奖小纸条？1、打开电脑后，直接进入到excel中，新建一个空白的表格文档，在表格中某一列单元格中录入好我们要抽取的内容，例如姓名，编号等等。2、录入完成后，我们在当前表格文档中重新再去选择一个单元格，那么，用excel怎么做抽奖小纸条？一起来了解一下吧。
方法/步骤
首先我们打开Excel，为了方便演示，我们需要输入部分内容，首先输入抽奖人员名单，我们将抽奖人员名单填好即可如下图所示。
请点击输入图片描述
填好抽奖名单之后，我们选择一个单元格输入抽奖区域，然后将其填充为红色即可。
请点击输入图片描述
接着我们在抽奖区的下一个单元格，按下等于号，然后选择函数index，如下图所示。
请点击输入图片描述
接着我们设置抽奖区域的数字，选择为a列，如下图所示。
请点击输入图片描述
再接着我们设置第2个参数，插入randbetween函数，我们设置函数的首尾分别为4和11，我们可以看到a4是抽奖人员的第1位，a11是抽奖人员的最后一位。如下图所示。
请点击输入图片描述
请点击输入图片描述
最后我们连续伏扮加入两个括号，那么这个函数就完成了。
请点击输入图片描述
完成函数之后我们按下enter键，按下enter键之后，我们就可以看到已经随机出现了一个人的名字。如果我们想进行抽奖的话，双击上面的抽奖区，然后按下enter键，就可以随机进行抽奖了。如友稿下图所示。
请点击输入图片描述
请点击输入图片描述
当然我们也可以在后面的单元格加入备注，设置一等奖为50元，二等奖为40，三等奖为30元即可，如下图所示。
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，在一个空白的工作表中，选中一个单元格，输入第一个数字。
选中这个单元格，点击“开始”选项卡中的“条件格式”，选择“数据条”，根据需要设置数据条的颜色和样式，并设置数值范围。
在这个单元格中，右键选择“格式单元格”，进入“数字”选项卡，在“自定义”分类下输入以下公式：
[$-F400]0.00;[$-F400]-0.00
这将使单元格中的数字自动滚动，并且数字的颜色会根据设定的嫌悔御数据条颜色自动变化。
4.在这个单前运元格后面连续输入需要滚动的数字。
5.如果需要增加抽奖效果，可以在单元格中插入其他特殊符号或图片，例如彩票、礼物等。
6.如果需要停止数字的滚动，只需要在芹岩单元格中输入一个新的数字即可。
通过以上步骤，就可以在Excel中制作一个简单的年会抽奖器自动滚动数字颜色的效果了。
一般用随机函数RAND()产生，具体方法要看你的抽奖是如何设计的。1、制作中奖段贺名单。
2、生产随机代号，这里用到公式“=round(rand（）*11+1,0)”生成1到12之间的随机数清缓,用round函数保留0位小数。
3、通过随机代号，返回中奖者，这里用到函数“=vlookup(e4,a2:b13,2)”表示在a2到b13的范围内，答燃模找到e4所对应的第2列的值。
4、最终完成，每按一次f9，就生产一次，也达到了抽奖的目的。
Excel精彩课程推荐 办公的使用是一项非常基础的技能，可以帮助人们快速进行文字处理，表格制作，数据处理，制作演讲稿等。办公的应用范围很广，大到统计，小到记录，数字化办公等等都离不开办公的鼎力协助。为帮助用户快速掌握办公的使用，有Word、Excel、PPT、思维导图等办公的精品教学课程，都可以免费试学，还没有掌握办公的小伙伴们一定不要错过哦。 以上就是用excel怎么做抽奖小纸条的全部内容，1、新建一个空白excel表格 2、选中多个单元格，并进行合并居中（本步骤可以省略）2 /4 3、选中单元格，输入公式=INT(RAND()*(100-1+1))+1，按回车键确认 提示：1）记住连同=号一起输入；2）如果是在1-50中抽取，内容来源于互联网，信息真伪需自行辨别。如有侵权请联系删除。
