我想用excel做一个自动抽签程序( 以下是电脑报里面介绍的内容，不知道为什么在我的电脑里操作失败了）

Question

问：在一次公开课中，看到讲课的老师在课堂上使用了一个Excel的抽签程序，由抽到相应学号的同学回答提问，这样能增加课堂的气氛，调动学生积极参与，是一种不错的教学策略。答：这位老师想法很有创意，做起来并不难。其实抽签在我们日常生活中很常见，这里我们介绍一个简单的抽签程序的示例，希望能给大家以更多的启示。假设有25个数，每行5个共5行，在数字的下方绘制两个命令按钮，修改其caption属性分别为“抽签”和“暂停”.双击“抽签”按钮输入代码，其中关键代码如下：
k=0:flag=0
Do until flag=1
for i=6 to 10
for j=3 to 7
if k=0 then
cells(i,j).select
DoEvents '释放程序控制权，允许运行其他事件
k=1
cells(i,j).select
end if
next
next
loop关闭代码窗口回到抽签工作表中，单击“抽签”按钮可实现25个单元格的快速依次选中，单击“暂停”按钮可中断抽签程序的执行（即选中其中的一个数字）。再次单击“抽签”按钮可继续抽取数字，这样一个简单的抽签程序就做好了

Answer 1

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Dim Flag As Boolean

Sub aaa()
Dim cell As Range
Do Until Flag
Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select
DoEvents
Loop
Flag = False
End Sub

Sub bbb()
Flag = True
End Sub

回到Excel，在C6:G10输入25个签（代码中的粗体字按实际修改），插入两个图形比如方框，一个写”抽签“，一个写”暂停“，右键点第一个框，指定宏，aaa；右键点第2个框，指定宏，bbb

就可以了。