Private Sub Command1_Click()
If Command1Caption = "开始" Then
Command1Caption = "暂停"
Timer1Enabled = True
Else
Command1Caption = "开始"
Timer1Enabled = False
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Label1Caption = ""
Label1FontSize = 50
Timer1Interval = 50
Timer1Enabled = False
Command1Caption = "开始"
Command2Caption = "结束"
End Sub
Private Sub Timer1_Timer()
Label1Caption = Int(Rnd 50) + 1
End Sub
方法/步骤
首先我们打开Excel软件,为了方便演示,我们需要输入部分内容,首先输入抽奖人员名单,我们将抽奖人员名单填好即可如下图所示。
填好抽奖名单之后,我们选择一个单元格输入抽奖区域,然后将其填充为红色即可。
接着我们在抽奖区的下一个单元格,按下等于号,然后选择函数index,如下图所示。
接着我们设置抽奖区域的数字,选择为a列,如下图所示。
再接着我们设置第2个参数,插入randbetween函数,我们设置函数的首尾分别为4和11,我们可以看到a4是抽奖人员的第1位,a11是抽奖人员的最后一位。如下图所示。
最后我们连续加入两个括号,那么这个函数就完成了。
完成函数之后我们按下enter键,按下enter键之后,我们就可以看到已经随机出现了一个人的名字。如果我们想进行抽奖的话,双击上面的抽奖区,然后按下enter键,就可以随机进行抽奖了。如下图所示。
当然我们也可以在后面的单元格加入备注,设置一等奖为50元,二等奖为40,三等奖为30元即可,如下图所示。
好了,今天的如何用Excel制作抽奖活动教程就为大家介绍到这里,希望对大家有所帮助。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)