使用vb的简单彩票抽奖程序（Excel表）

最近，我在年度会议上看到一名程序员在抽奖. 每个人都认为获胜的可能性有点吸引人，所以我当场阅读了这篇文章，并记得我曾经使用vb宏命令为学生制作彩票小程序. “色块跳动”的效果还可以轻松地修改表格的外观，隐藏表格行或使用插图突出显示名称.

实际上，内部彩票程序不必使用复杂的工具. Flash和网页更加麻烦. 当然，最好是一个彩票盒，并放一些彩球. 不必将其投射在屏幕上. 互动很幸运.

这是最终结果:

效果相当不错，有开始和结束按钮. 如有必要，您可以直接拉到文章的底部，单击以下载并运行.

打开后会提示安全性，您需要单击“启用宏”

点击宏，可以看到有两个宏，一个结束vb做一个抽奖程序，一个随机（开始）

您还可以自己添加按钮以执行其他效果，例如重新启动和清除绘制列表.

以下是相应的按钮绑定功能:

Dim a, t As Integer 定义公共变量，结束标记与运行次数
Dim x As Integer
Dim y As Integer
Sub 随机()
a = 0
 ActiveWorkbook.Sheets(1).Shapes(1).Visible = False
 ActiveWorkbook.Sheets(1).Shapes(2).Visible = True
Randomize 初始化
10:
x = Rnd() * (12 - 2) + 2 生成2至7的随机数，代表行数
y = Rnd() * (9 - 1) + 1 生成2至6的随机数，代表列数
Range("a2:i13").Interior.ColorIndex = xlNone 去掉填充色
Cells(x, y).Interior.ColorIndex = 3 填充为红色
DoEvents 释放程序控制权，允许其他事件
If a = 1 Then Exit Sub 如果按下“结束”钮则终止程序
GoTo 10
a = 1 结束标志
End Sub
Sub 结束()
 ActiveWorkbook.Sheets(1).Shapes(2).Visible = False
 ActiveWorkbook.Sheets(1).Shapes(1).Visible = True
a = 1 结束标志
t = t + 1
MsgBox (x)
复制单元格数据
Cells(t + 1, 12).Value = Cells(x, y).Value
End Sub

下载程序运行vb做一个抽奖程序，wps需要安装vb支持

choujian.zip

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-203936-1.html