关于excel数字随机排列的问题在输入一定的数字,怎么样才能让他随机排列?假设我输入的是1~100（范围不限的,也可能是1~1000）,怎么让范围内的数据随机排列?任意数字不重复,谢谢.
【神恋】∞184
假设数据在A2：A100中,B2中输入=rand()下拉到B100,选中A2：B100,数据,排序,以B列为依据进行排序,升序或降序都行,然后把B列删除.
为您推荐：
其他类似问题
扫描下载二维码查看: 6467|回复: 4
我的题库是word格式，怎样组建一个随机抽题的模拟考试系统？
阅读权限10
在线时间 小时
本帖最后由 cyzy2000 于
19:51 编辑
我的题库是word格式，有的选择题中有图片，怎样才能组建一个随机抽题的模拟考试系统？要求：单选题11题，每题3分；判断题11题，每题2分。每次抽取的题目是不一样的。请高手详细指点，急盼回复。谢谢！
阅读权限95
在线时间 小时
建议把题库做成EXCEL，然后使用我的
阅读权限10
在线时间 小时
lhdcxz 发表于
建议把题库做成EXCEL，然后使用我的
http://club.excelhome.net/thread--1.html
谢谢分享。但是我的word题库中有许多幅图片，转成EXCEL后图片无法随题目处理。再望赐教。谢谢！
阅读权限95
在线时间 小时
cyzy2000 发表于
谢谢分享。但是我的word题库中有许多幅图片，转成EXCEL后图片无法随题目处理。再望赐教。谢谢！
哦。那我就没有办法了，功力不够啊。
阅读权限10
在线时间 小时
本帖最后由 cyzy2000 于
19:47 编辑
lhdcxz 发表于
哦。那我就没有办法了，功力不够啊。
非常感谢您的热心指教和帮助！期待高手指点迷津！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师做了一个EXCEL题库，想设置成可以随机抽取100题的考试，求大神！_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：125,267贴子：
做了一个EXCEL题库，想设置成可以随机抽取100题的考试，求大神！收藏
想做成能随机抽其中100题的考试，平时自己抽抽自己。
Foxtable2014,轻松输入,轻松查询,轻松统计,轻松设计Excel报表,快速搭建管理软件!
给题目定好序号，然后百度一下：EXCEL 随机不重复
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或卢洲映月——冬冬电教工作室
当前位置：当前位置：&&&
利用Excel VBA制作多选题考试系统
上传: 李小军 &&&&更新时间： 12:31:21
利用excel vba制作多选题考试系统 面对大量的选择题考试，如果印刷纸质试卷，考完后由教师人工阅卷，不但效率低下，而且浪费人力、物力，还很容易出错。即使学校有条件使用机读卡考试，也会提高成本，浪费财力。我们利用excel vba制作了选择题考试系统，使用方便，节约人力、物力，深受广大教师的欢迎。下面我以多选题为例介绍一下具体做法，供读者参考。 一、界面设计 启动exce12003，把sheetl更名为&多选题&，sheet2更名为&多选题库&，在&多选题&中输入相应的内容，把窗口右上角的&垂直拆分块&拖动到第五行的下边缘，再点击&窗口一冻结窗格&。两个按钮以后再添加，如图1所示。 把题目录入到&多选题库&中，其中第一行为字段名，在al -hl中分别输入：章、题号、答案、题干、a. b. c.d。第二行以下为题目，如图2所示。录入完毕后统计一下题目总数（我这里共录入了30 3道题，考试抽取20道题，考试时间共3 0分钟），在&多选题&的下列单元格中分别输入内容（ol：总题数、pl：303. 02：抽题数、p2：20. 01：考试时间（分钟）、q2：3 0）。选择&工具一保护一允许用户编辑区域&，把b2. d2. h5放入其中。至此，准各工作基本完毕。 二、代码编辑 限于篇幅，以下只介绍代码编辑中的技术性问题，详细请参阅http：／／user.／?ptlang=2052。按alt+fll键，进入vba编辑界面，按ctrl+r显示&工程资源管理器&窗口，按f4显示&属性&窗口。 1．启动代码简介 双击&microsoft excel中对象&中的&thisworkbook&，在右侧窗口中输入代码。这部分代码触发workbook_open()事件，主要有三项任务。其一是利用&worksheets（&多选题库&）．visible：xlsheethidden&隐藏题库；其二是清除上一名考生保存的信息；其三是利用msgbox语句给出&考试说明和答题注意事项&。 2．随机出题代码简介 插入模块，将其命名为&随机出题&(subsetapaper(》，在其中输入代码。任务有两项。其一是根据&总题数&和&抽题数&产生相应的不重复随机数，并存人&tihao()&数组，示例代码如下： for i=1 to tishu b：randomize y= int《startend(1,2)- startend(l,1)+1).rnd()+ startend(l, 1》 forj =1 toi if tihao(l,j)=ythen goto b：end if nextj: tihao(l,i)=y:next i startend(l,l)=l表示起始题号，startend(1，2)=总题数，是结束题号，tishu=抽题数。randomize语句的作用是初始化随机数生成器，避免每次启动程序时产生的随机数相同。其二是按照产生的随机数抽取题目，写在试卷的相应位置上。示例代码如下，其中dxt代表&单选题&工作表，dxtk代表&单选题库&工作表。 n=l: i=l for i=1 to tishu cells(i+5+1，2)=cstr(i)&&，&题号 cells(i+5+1,3)=dxtk.cells(tihao(l,i)+1,4)&题干 cells(i&5+2,2)=&a.&:cells(i-5+3,2)=&b.& cells(i+5+4,2)=&c.&:cells(i.5+5,2)=&d.& cells(i+5+2,3)=dxtk.cells(tihao(l,i)+1,5)&a选项 cells(i&5+3,3)=dxtk.cells(tihao(l,i)+1,6)&b选项 cells(i+5+4.3)=dxtk.cells(tihao(l,i)+1,7)&c选项 cells(i+5+5,3)=dxtk.cells(tihao(l,i)+1,8)&d选项 dxtk.cells(i+1,10)=dxtk.cells(tihao(l,i)+1,3)&记录答案 next i 3．按钮和学生答题代码 双击&microsoft excel对象&中的&sheetl（多选题）&，在右侧窗口中输入代码。其中两个按钮代码一个是&随机出题&： -个是&交卷评分&：c all score。学生答题主要是触发worksheet_selectionchange(byval target as range)事件，用r=target.row记录单击的行号，用x=lnt（（r-l）／5）记录题号。如果单击的不是第二列就退出，是题号行也退出。如果单击的是&选项&，就记录其值，并判断答案中是否已经存在该选项。如果存在就删除，如果不存在就添加。示例代码如下： with worksheets(&多选题&) danji= left(target.value,1) if cells(x&5+1,1)=&&then cells(x&5+1，1)=danji else mylen=len(cells(x.5+1,1》: for m=1 to mylen if danji= mid(cells(x+5+1,1), m,1)then&如果存在 cells(x&5+1,1)=replace(cells(x+5+1,1),danji，&&)&就删除 exit sub: end lf：next m cells(x&5+1,1)=cells(x.5+1,1)&danji&不存在就添加 end if end with 显示控件工具箱工具栏，添加第一个按钮并双击之，在属性窗口中把其caption属性更改为&随机出题&，添加第二个按钮，把其caption属性更改为&交卷评分&。 4．计时器代码 插入模块，命名为&计时器&，在其中输入代码，其中remt=worksheets（&多选题&）．cells(2，17)1，sec=60，jg=l。通过runtimer()过程和js()过程的循环调用，利用ontime函数，在屏幕上显示变化的时间，并实现剩余1分钟提醒，到时自动交卷。 sub runtimer()&时间运行 application.ontime now+ timevalue(&00:00:&&jg)，&js& end sub sub js()&计时 if cstr(cells(l, 12》&&&&then exit sub if sec&0 then sec=sec - jg: worksheets(&多选题&).cells(5，8)=&考试剩余时间：&& remt&&：&&sec else: sec=60 lf remt&0 then lf remt=1 then msgbox&离考试结束还有1分钟！&: thisworkbook.save: remt=remt -1 else: msgbox&考试结束！&：call score: endif.end if.call runtimer end sub 5．自动评分代码 插入模块，命名为&自动评分&(sub score(》,在其中输入代码。 sub score()&自动评分 ts=cells(2, 16):n=ts+5+5:df=0 for m=6 to n step 5 if cells(m,1)&&&&then mylen=len(cells(m, 1》 bzdaan=worksheets(&多选题库&).cells(l+(m -1)/5, 10) for i=1 to mylen mycheck=mid(cells(m, 1),i,1)like&【&&bzdaan&&】& if mycheck= false then goto c next i if len(cells(m, 1》= len(bzdaan) then df= df+1 if len(cells(m, 1》& len(bzdaan) then df= df+ 0.5 end if c: next m: df= df，ts★100: cells(l, 12)=df msgbox&本次考试共&&ts＆&道题，满分为100分，你的得分是&＆df&&分。& end sub 三，使用方法 1．教师提前把题库做好，设置好抽题数、考试时间，再分发给学生。 2．学生启动后会出现&考试说明&提示框，点击&确定&后填写考号和姓名。 3．敲回车后，&随机出题&按钮可用，出题后&交卷评分&按钮可用。 4．答题方法为：单击选项前的字母选择，再次单击该选项取消选择。对答案的顺序没有要求，比如答案是abc，考生答acb、bca等均得满分。 5．学生可以提前交卷评分，也可考试时间结束后自动交卷评分。评分标准为：(1)多选或选错均不得分。(2)对而不全得一半分。 6.教师更新题库时，按alt+fil进入vba编辑状态，单击&sheet2（多选题库）&，把其visible属性更改为：-1-xlsheetvisible，&多选题库&工作表就出现了。 &
评论：(未激活和未注册用户评论需审核后才能显示！如需回复，请留下联系方式！)
文明上网,理智发言 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
利用excel vba制作多选题考试系统
下载积分：2000
内容提示：利用excel vba制作多选题考试系统
文档格式：PDF|
浏览次数：25|
上传日期： 11:36:32|
文档星级：
该用户还上传了这些文档
利用excel vba制作多选题考试系统
官方公共微信