Excel 自動隨機出題 教師神器

zxcnny930

求救:https://www.52pojie.cn/thread-1143272-1-1.html
希望懂VBA的朋友帮忙解答此篇文章!!
台湾的编码是UTF-8
如果开不起来可以用windows内建的文件档编辑成ansi档案应该就可以开启了
此Excel是由台湾教师钟元杰老师设计免费开源
有分为填充题以及选择题两种版本
设定好的介面有 20题 40题 100题
只需要将题目按照"题库"工作表填入后

回到题目工作表按下只想看看或是列印

题目会自动随机产生以及自动将题目顺序更换
简直是教师神器 不用怕互抄答案

要考试的朋友也可以将自己题库输入进去后自主练习!


miocaro507 修改版:

链接：https://pan.baidu.com/s/1tRJYmanZFhfSi8L0_CoxdQ
提取码：u2c9

注：
1. 只对20题试卷做了修改
2. 为便于测试，把题库做了适当修改，某些题目的答案选项增加了选项五、选项六

xisp修改版

试了一下，非常不错。感谢，代码简体化了一下，给需要的人
链接：https://pan.baidu.com/s/1jq5FtqzbnALc_K4E5Bu0zw
提取码：n7t1

zxcnny930

miocaro507 发表于 2020-3-30 13:27
已经更新完毕，请到以下链接查看。

链接：https://pan.baidu.com/s/1tRJYmanZFhfSi8L0_CoxdQ

@xisp
@miocaro507
谢谢二位协助
想在请问一下
因为我的题目有些答案是复选题
答案会是ACD或者是AB
但是主程式会自动修正成char
删除CheckFunction会造成主程式不运作
删除主程式CheckFunction执行也是有问题
该如何修改?

xisp

miocaro507 发表于 2020-3-30 13:27
已经更新完毕，请到以下链接查看。

链接：https://pan.baidu.com/s/1tRJYmanZFhfSi8L0_CoxdQ

试了一下，非常不错。感谢，代码简体化了一下，给需要的人
链接：https://pan.baidu.com/s/1jq5FtqzbnALc_K4E5Bu0zw
提取码：n7t1

拣尽寒枝不肯栖

谢谢分享，支持一下，辛苦了   说是分享失效了  

hu007

好东西，可惜说是分享失效了 ，请楼主看看

随风轻扬

链接挂了

lxq8432

蓝奏一下

mailang1125

秒挂啊，楼主补个链接吧

zxcnny930

我补上GOOGLE连结
希望有朋友可以帮我拉回来
https://drive.google.com/drive/folders/1m2onWPWtWyiUtDeS3JiOj-ssI-S0dlkT?fbclid=IwAR2OJCWQWC8gGGQ-sS1BmW_TLgkRIecn0lyejMBLLJ9ZeKU-2BMmrKaFti8

happyhuaer

好东西，谢谢分享

枫叶荻花

刚试过，微云链接有效的

小冰同学123

为啥我打开是日语的还是乱码好像 宏也不能用