中易网

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

答案:2  悬赏:80  
解决时间 2021-02-02 05:08
问:在一次公开课中,看到讲课的老师在课堂上使用了一个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个单元格的快速依次选中,单击“暂停”按钮可中断抽签程序的执行(即选中其中的一个数字)。再次单击“抽签”按钮可继续抽取数字,这样一个简单的抽签程序就做好了
最佳答案
同时按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

就可以了。
全部回答
不明白啊 = =!
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
古图地址在什么地方,想过去办事
elle行李箱28寸在哪里有得卖?价格多少?
九个月大的泰迪犬突然不吃东西,还吐了黄色的
我被别人打了轻伤二级法医鉴定结果已经出来,
为什么泰国的高中生都带牙套啊
求商业高人赐教 适合我打开产品市场的方法
打过玻尿酸敷平时面膜有影响吗
陆什么开什么的词语
中山西区港口镇石特社区穗兴路附近有没有快递
轻舟广告我想知道这个在什么地方
北京哪里有比较好的中医按摩推拿的地方啊?
绿源美发养发在哪里啊,我有事要去这个地方
孟州市嗨贝贝儿童摄影O2O体验店在哪里啊,我
定积分如何求导,与上下限有关吗
请问独资企业用不用提取法定公积金呢?谢谢
推荐资讯
隆盛装饰材料店这个地址在什么地方,我要处理
好运时装地址在什么地方,想过去办事
连云港鸿郎化工科技开发有限公司在哪里啊,我
秦皇岛开发区(东区)金水家园第二小区北门怎么
股民朋友们帮我看下中联重科,涨回7块的成本
江苏银行24小时自助银行(南通金信支行)这个地
三只熊童装在什么地方啊,我要过去处理事情
Dreamweaver8制作网页预览时网页内容不显示
请问新华书店有没有卖卖五年级上册英语书
手机右上角出现HD是什么意思
凯翼X3行驶稳定性怎样?
山师东路这个地址在什么地方,我要处理点事
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?