时间:2016-04-04 15:06 来源: 我爱IT技术网 作者:佚名
当年终时，有些企业会组织职工联欢会，可能还会搞个抽奖的小节目增添乐趣，下面就介绍一个用EXCEL做的简单的抽奖工具，这个抽奖的方法与前面介绍的界面不同。
按下开始按钮后会，会在B2：F2单元格中产生五个0-9的随机数。在按“结束”前，这些随机数字会不停变化，直到按下“结束”按钮。
Sub 开始()
a=0
Randomize '初始化
10：
For i=1 To 5
Cells(2, i + 1)=Int(Rnd() * 10) '在单元格中显示号码
Next
DoEvents '释放程序控制权
If a=1 Then Exit Sub '如果按下“结束”钮则终止程序
GoTo 10
End Sub
Sub 结束()
a=1 '结束标志
End Sub
如果你需要的抽奖数字个数不是五个，请修改FOR语句中的终值，比如想要8位数字，就修改成 For i=1 To 8 ，其他代码部分不用修改。经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。
一、界面
按下开始按钮后会，会在B2：F2单元格中产生五个0-9的随机数。在按“结束”前，这些随机数字会不停变化，直到按下“结束”按钮。
Sub 开始()
a=0
Randomize '初始化
10：
For i=1 To 5
Cells(2, i + 1)=Int(Rnd() * 10) '在单元格中显示号码
Next
DoEvents '释放程序控制权
If a=1 Then Exit Sub '如果按下“结束”钮则终止程序
GoTo 10
End Sub
Sub 结束()
a=1 '结束标志
End Sub
如果你需要的抽奖数字个数不是五个，请修改FOR语句中的终值，比如想要8位数字，就修改成 For i=1 To 8 ，其他代码部分不用修改。经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-