参赛选手巧抓阄

开篇：润墨网以专业的文秘视角，为您筛选了一篇参赛选手巧抓阄范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

制作抽签界面

打开Excel 2003，假设有15位参赛选手，在（B2：F4）单元格区域中依次输入数字1到15，接着执行“视图工具栏控件工具箱”，单击“命令按钮”，在下面插入两个按钮。右击第一个按钮，单击“属性”，在“属性”窗口中设置Caption选项为“开始”，名称选项为默认的CommandButton1；右击第二个按钮，单击“属性”，在“属性”窗口中设置Caption选项为“停止”，名称选项为默认的CommandButton2即可（图1）。

为按钮实现其功能

双击“开始”按钮，在打开的VBA代码窗口中输入下列代码（该代码中包含“停止”按钮的代码）：

Option Explicit

Dim flag As Boolean， i， j As Integer

Private Sub CommandButton1_Click（）

flag = True '初始化中断变量，当中断变量为真时执行抓阄

zhuajiu '调用抓阄过程

MsgBox "恭喜你！你是第" + Str（Cells（i， j）） + "号选手"， vbOKOnly， "抓阄"

'显示被中断时选中的单元格（即被抓到的顺序号）

Cells（i， j） = "已有选手"

'将被选手选中过的单元格替换为“已有选手”

End Sub

Private Sub Command Button2_Click（）

flag = False '中断循环 结束抓阄

End Sub

Private Sub zhuajiu（）

tiaozhuan1：

For i = 2To4 '从第2行开始到第4行结束

For j = 2 To 6

'从第2列开始到第6列结束 在没有被选中过的单元格中依次循环

If Cells（i， j） = "已有选手" Then GoTo tiaozhuan2

DoEvents '释放程序控制权 允许执行其它事件

Range（"b2：f4"）.Interior.ColorIndex = xlNone

Cells（i， j）.Interior.ColorIndex = 50 '为在循环中选中的单元格着色

tiaozhuan2：

If flag = False Then Exit Sub

Next

Next

If flag=True Then GoTo tiaozhuan1

End Sub

关闭代码窗口，退出设计模式，一个抓阄程序就制作好了（图2）。

选手抓阄

当选手单击“抓阄”按钮时，在（B2：F4）单元格中轮流显示待抓的顺序号，当单击“停止”按钮时显示该选手抓中的顺序号，同时信息框也作相应的提示（图3）。

本文中的抓阄程序下载地址为：http：///zT6kaMj