问:在一次公开课中。看到讲课的老师在课堂上使用了一个Excel的抽签程序,由抽到相应学号的同学回答提问、这样能增加课课堂的气氛。调动学生积极参与。是一种不错的教学策略,答9028:这位老师想法很有创意,做起来并不难。其实抽签在我们日常生活中很常见、这里我们介绍一个个简单的抽签程序的示例,希望能给大家以更更多的启示!假设有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
DoEvents
Loop
Flag = False
End Sub
Sub bbb()
Flag = True
End Sub
回到Excel、在C6:G10输入25个签(5630代码中的粗体字按实际修改)、插入两个图形比如方框。一个写”抽签“!一个写”暂停“、右键点第一个框、指定宏。aaa,右键点第2个框!指定宏,bbb
就可以了、、