VBA中抽奖程序的调试

这个写在通用里：

Option Explicit

Private Flag As Boolean

添加一个开始按钮，代码如下：

Private Sub CommandButton1_Click()

Dim cell As Range

Flag = False

Do Until Flag = True

Range("A1:A28").Cells(Int(Rnd() * 28) + 1).Select

DoEvents

Loop

End Sub

添加一个结束按钮，写入以下代码：

Private Sub CommandButton2_Click()

Flag = True

End Sub

在excel里测试可用，，你可以如上添加两个命令按钮

界面如下，点start开始，点result结束

补充问题：第二个按钮加上以下几句

With Selection.Font

.Bold = True

.Color = RGB(255, 0, 0)

.Name = "黑体"

End With

第二个按钮代码 改为

Private Sub CommandButton2_Click()

Flag = True

With Selection.Font

.Bold = True

.Color = RGB(255, 0, 0)

.Name = "黑体"

End With

End Sub

看我新传的图片，试了三次，结果如图

要的话导出来给你

方法/步骤:

1.首先我们打开表格,在表格里制作三个框。

2.分别为:中奖名单、中奖编号和中奖人。

3.在中奖编号旁边的框里,输入函数:RANDBETWEEN()。在括号里,填入参与的人数。

4.在中奖人下面的框里,填入函数:VLOOKUP()。

5.在括号里“选中抽奖名单——逗号——选择2(姓名)——逗号——FALSE精确匹配。然后回车

---