Excel窗体控件练习（试卷界面）

OKJSJSF · 发表于 2018-7-11 22:55

考试结束返回普通工作表界面
捕获..JPG

OKJSJSF · 发表于 2018-7-12 07:50

本帖最后由 OKJSJSF 于 2018-7-14 18:10 编辑

昨晚没发上来，今早补上。

补充内容 (2018-10-7 20:55):
有需要的，请下载66楼的《试卷2版、初版、题库样式》压缩文件。此致

补充内容 (2019-3-16 22:46):
不必66楼了，可需要的请下载78楼的改正版。

OKJSJSF · 发表于 2018-7-12 21:10

本帖最后由 OKJSJSF 于 2018-7-13 06:42 编辑

今天又在使用中发现，在生成试卷的按钮单击过程的子过程(把题干与选项写进数组） Call Macro1、Macro2、Macro3中，各缺一句代码 .rows(1).autofilter
作用是取消自动筛选。
不加这句，在考试完，在导入的题库表中筛选错题后，如未取消筛选模式再生成试卷时，随机函数会失效，每次不会生成不同的试题。

OKJSJSF · 发表于 2018-7-12 21:23

由于在获取题库时，有些人把题库压缩后保存，程序无法获取，所以，在提醒消息框中还可加一句：你可以不通过单击“获取题库”按钮，自己选择题库工作簿打开复制到本工作簿中。

OKJSJSF · 发表于 2018-7-12 21:34

一个人造程序，闭门造车，不是这里错就是那里错。而今居然获得前辈的鲜花，万分荣幸！我当再接再励！！！
前面还有三个问题未解决！

OKJSJSF · 发表于 2018-7-14 17:51

本帖最后由 OKJSJSF 于 2018-7-15 14:40 编辑

试卷界面第一版，继续修改，重发

试卷 .rar (46.54 KB, 下载次数: 36)
一是获取题库代码采用全选工作表方法（wb.sheets.copy after:=），不用循环，用工作组，减少出错提示；
二是考试得分100分增加一个恭喜恭喜窗体弹出；
三是对无法忽略的错误（本作者能力所限），在工作簿打开时，即提示用户单击“结束”按钮。
还有一个关键技术未解决：选项表单控件的文本自动换行方法没找到！
祝大家使用愉快！

补充内容 (2018-10-7 20:56):
有需要的，请下载66楼的《试卷2版、初版、题库样式》压缩文件。此致

补充内容 (2019-3-16 22:47):
有需要的请下载78楼的改正版。

OKJSJSF · 发表于 2018-7-14 17:56

本帖最后由 OKJSJSF 于 2018-7-14 18:07 编辑

在此提醒各位朋友，要下载就载“最迟”发表的压缩文件使用。（昨天发现已发表的贴子还可以编辑修改）

OKJSJSF · 发表于 2018-7-14 18:23

这种试卷的控件（Excel是把它们当作图片的）的顺序号，在每次生成试卷考试时，都在不断增加，也不知有没有终点限制？如有限制，朋友们可以自己新建一个工作簿，插入窗体与标签控件，复制粘贴代码，重新做一份。

OKJSJSF · 发表于 2018-7-16 19:55

前楼说错话，每次生成的试卷都是新工作表，顺序号都一样不变，只是在同一表中不断调试才会那种情况。

OKJSJSF · 发表于 2018-8-6 21:05

本帖最后由 OKJSJSF 于 2018-8-6 23:23 编辑

可自定义考试题量、考试时间的选项型试卷(即我自称的第2版)程序写好了，请朋友们试用改进与纠错：

试卷2版(固定选项动态题量) .rar (53.82 KB, 下载次数: 37) ，其中每个试题选项个数仍是固定的，如要做出，感觉太麻烦，那就可叫第3版了。如果再改用工具箱的控件或直接用用户窗体做，那就是第4、第5版了。

补充内容 (2018-8-12 17:20):
今天刚发现还有设置不全的地方：每种题型必须至少考2题，如输录考1题或0，程序会出错，所以必须增加代码，或在有效性中限制考题数只能2个以上。本人采用第二种简便的方法。压缩文件重新上传。对不起大家。

补充内容 (2018-10-7 20:57):
有需要的，请下载66楼的《试卷2版、初版、题库样式》压缩文件。此致

补充内容 (2019-3-16 22:48):
有需要的请下载78楼的改正版。

		自动登录	找回密码
密码			免费注册

[分享] Excel窗体控件练习（试卷界面）

评分

最新热点 /1