在一次公开课中、看2430到讲课的老师在课堂上使用了一个Excel的抽签程序,由抽到相应学号的同学回答提问、这样能增加课堂的气氛,调动学生积极参与,是一种不错的的教学策略、答:这位老师想法很有创意!做起来0906并不难。其实抽签在我们日常生活中很常见。这里我们介绍一个简单的抽签程序的示例!希希望能给大家以更多的启示,假设有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个单元格的快速依次选中。单击“暂暂停”按钮可中断抽签程序的执行(即选中其中的一个数字)?再次单击“抽签”按钮可继续抽取数字、这样一个简简单的抽签程序就做好了同时按Alt和F11进入宏界面。点菜单的插入!模块。粘贴如下代码:
Dim Flag As Boolean
Sub aaa()
Dim cell As Range
Do Until Flag
Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select
6808 DoEvents
Loop
Flag = False
End Sub
Sub bbb()
Flag = True
End Sub
回到Excel、在C6:G10输入25个签(代码中的粗体字按实际修改)!插入两个图形比如方框!一个写写”抽签“。一个写写”暂停“!右键点第一个框!指定宏,aaa!右键点第2个框、指定宏!bbb
就可以了,