ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 29269|回复: 18

[分享] 从题库中随机抽取100道题生成试卷

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-9-11 09:30 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
案例背景
小王是某大型企业安全培训师,公司要求所有参加安全培训的员工必须进行测试,测试成绩计入档案。小王必须给每次测试选题、排版,保证每次试卷不能重复,难度不能相差太大。小王为此掉了不少头发.
数据先生认为可以利用Excel公式随机筛选试题,然后通过邮件合并即可轻松搞定。

案例最终效果

首先给大家看一下生成的效果
案例效果.gif

准备临时题库

首先我们要在excel中准备好相关试题,这里我们准备了50道试题,
包括序号,题干以及4种选项(如果需要显示答案的话就将答案列也放进去)

准备数据.png

添加辅助列
为了达到随机的效果,我们准备了2个辅助列,其中一列我们让他在一定的范围内随机生成一个数字(为了避免重复值我们在1-10000中随机生成数字)
第二列我们让他在第一列的基础上排序(即最大的数为1,然后是2,3。。。。。。)
因为每次第一列的数都是随机大小,所以第二列的数每次也都是不一样的

辅助列.png

随机数公式:
=ROUND(RAND()*10000,0)+1
排序公式:
=RANK(B2,$B$2:$B$51)


选出前10的试题作为筛选结果
我们在第二张表选出前10的试题作为筛选结果,这里我们用VLOOKUP函数来筛选


筛选结果.png

题干公式:
=VLOOKUP(A2,Sheet0!$C$2:$H$51,2,0)
选项A公式:
=VLOOKUP(A2,Sheet0!$C$2:$H$51,3,0)
选项B公式:
=VLOOKUP(A2,Sheet0!$C$2:$H$51,4,0)
选项C公式:
=VLOOKUP(A2,Sheet0!$C$2:$H$51,5,0)
选项D公式:
=VLOOKUP(A2,Sheet0!$C$2:$H$51,6,0)
设置目录格式
我们如果直接生成的话,每一条数据都会单独占用一张纸,这不是我们想要的。我们希望试题是一个接着一个排下来的,所以我们需要将邮件格式改为目录格式。
点击邮件→开始邮件合并→目录

设置目录格式.png

在word中填写模板
我们按照正常试卷的格式,来设计第一道试题的布局。


试题布局.png
选择收件人,拿到题库
通过选择收件人指到试题所在的excel上

拿到试题.gif





将试题内容放到对应位置
我们在插入合并域中将试题内容放到模板的对应位置上


完成合并.gif


完成合并
最后点击完成并合并即可生成题库(为了不让每道试题紧贴在一起,建议在下方留两行空格)





评分

5

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-11 09:39 | 显示全部楼层
本帖最后由 数据先生 于 2018-9-12 08:37 编辑

新发了几个帖子,欢迎大家前来拍砖
从题库中随机抽取100道题生成试卷
http://club.excelhome.net/thread-1435180-1-1.html
(出处: ExcelHome技术论坛)

利用邮件合并功能批量生成参会证
http://club.excelhome.net/thread-1434167-1-1.html
(出处: ExcelHome技术论坛)


利用公式快速格式化零件号
http://club.excelhome.net/thread-1433962-1-1.html
(出处: ExcelHome技术论坛)


excel利用旋风图加强数据对比效果
http://club.excelhome.net/thread-1433542-1-1.html
(出处: ExcelHome技术论坛)

用excel生成适合手机查看的报表图片
http://club.excelhome.net/thread-1429695-1-1.html
(出处: ExcelHome技术论坛)

TA的精华主题

TA的得分主题

发表于 2018-9-11 09:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-9-11 10:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
感谢楼主分享!   

TA的精华主题

TA的得分主题

发表于 2018-9-11 16:06 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-12 08:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
可以关注《鱼熊企管咨询》公众号,回复“随机试卷”获取原始资料和效果文件

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-9-26 08:24 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-3-11 14:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这个厉害了………………………………

TA的精华主题

TA的得分主题

发表于 2019-3-31 23:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-4-3 09:45 | 显示全部楼层
厉害呀,我有时候也碰到这个题库的问题,,,,,,,
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 16:18 , Processed in 0.039156 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表