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

OKJSJSF

只有判断单选多选的试卷界面练习第一步（选项按钮、复选框）。



补充内容 (2018-7-14 18:14):
请朋友们下载后面最近重发的使用。

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

补充内容 (2018-11-14 20:48):
再次补充：要下载请载69楼最新修改的使用吧，都是2003版的。初版的计时方法ＯNTIME不正确。因为本人单位电脑升级，有时间必须改成2007版的了，2003版无法用了。

补充内容 (2019-3-16 22:41):
2019年3月16日已对其中不足作改正，附件在78楼，欢迎下载试用。

ardu95

学习了谢谢  继续加油

OKJSJSF

ardu95 发表于 2018-6-19 06:00
学习了谢谢  继续加油

争取能完成整个的。

OKJSJSF

昨天未发现，今天发现一个错误，单选题选项“对、错；错、对”排列不利于答卷校对公式设置，修改代码：
Cells(5, 1).Value = "一、判断题，二选一，共30个，每个1分，共30分。"
    For i = 1 To 90
         If i Mod 3 = 0 Then
             Cells(i + 3, 2).Value = i / 3 & "、"
             '把题库随机题目写入序号右边单元格(通过数组)
             Set sha = ActiveSheet.GroupBoxes.add(Cells(3).Left, Cells(i + 4, 3).Top - 1, Cells(3).Width, Cells(i + 4, 3).Height * 2 + 3)
             sha.Visible = False
             sha2.LinkedCell = "$N$" & i + 4
             sha2.Characters.Text = "错。"
         Else
             Set sha2 = ActiveSheet.OptionButtons.add(Cells(3).Left, Cells(i + 6, 3).Top, Cells(3).Width, Cells(i + 6, 3).Height)
             sha2.Characters.Text = "对。"
         End If
    Next
选项按“对、错；对、错”排列才合理。

OKJSJSF

综观论坛，试卷界面贴子并不多，可能技术含量太少，没人练，本贴发了一个星期多时间，只一位朋友提意见。但对我来说，好像一个大工程，看起来基本完工，但里面还有很多未解决的错误。经过多天练习，再发一贴，基本能用。附件： 试卷.rar (35.8 KB, 下载次数: 110)

2018-6-26 22:28 上传

点击文件名下载附件

在打开文件使用时，可先删除里面原有的三张题库表，单击按钮，获取选择自己的题库，再单击按钮，生成试卷，开始考试。程序中未能自己解决的错误（不太影响考试使用）二点：一、时间到自动交卷计分与提前交卷计分的定时设置有冲突不正确；二、考试完毕交卷后总是可以继续交替单击弹窗与单击按钮；三、交卷后工作表保护后仍无法禁用“选项按钮、复选框、命令按钮”。总之，ONTIME方法不熟悉，禁用事件不熟悉，表单控件不熟悉。还有：合并单元格后自适应行高显示全部内容没找到好方法。程序后续还需做的事：对题库字符的清理要放在题库中做，不放在生成试卷的过程中；交卷后考生答题赋值给题库（题库随机取题后不恢复成按原序号排序，使顺序与试题一致），校验显示错题，不另外添加错题库。

补充内容 (2018-7-14 18:13):
请朋友们下载后面最近重发的使用。

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

补充内容 (2019-3-16 22:44):
66楼的不必下载，请上78楼。

zpy2

OKJSJSF 发表于 2018-6-26 23:06
综观论坛，试卷界面贴子并不多，可能技术含量太少，没人练，本贴发了一个星期多时间，只一位朋友提意见。但 ...

这种考试一般用网页的形式比在工作薄中比较方便。

OKJSJSF

zpy2 发表于 2018-6-27 06:36
这种考试一般用网页的形式比在工作薄中比较方便。

是这么回事，我们银行就是经常采用这种界面考客观题，但只有在考试时才可见到这界面，所以我想自己设计一款这种界面的工作簿，供大家平时用，各种内容的题库都可获取后生成试卷。其实EXCEL工作簿也可直接用于考试，且更简单，不知为何要采用这种网页界面。

OKJSJSF

zpy2 发表于 2018-6-27 06:36
这种考试一般用网页的形式比在工作薄中比较方便。

当然，因为我对VBA发生了兴趣，所以不断折腾自己。只是很少有人给我提意见。比如我前面提到的问题之一：试卷提交后，要让命令按钮失效，我想了很多办法，都感觉不爽，如：1、删除该按钮、2、添加一更大的按钮覆盖它、3、移动它的位置到表格最右端或最下端、4、限制表格滚动范围，等等，这都达不到ACTIVEX工具箱控件的禁用属性那么“正宗”。

OKJSJSF

字符.rar (7.72 KB, 下载次数: 39)

2018-6-29 08:15 上传

点击文件名下载附件

题库中的标准答案,有时有特殊字符,虽然用替换或批量修改很快,但用VBA代码自动处理该如何做?因为同样一个字符"A",可能属于多种不同的字库或图形,仅仅去除空格与回车符换行符后,标准答案中还是用很多不同的"A"或B\C\D等.是不是要学正则表达式?要学字符代码?

OKJSJSF

    试卷界面练习第一版结束：，基本可以使用了。但有几个自己不能解决的问题，希望得到版主与朋友们的帮助。
    一、选项控件的文本TEXT无法自动换行，太长的选项内容无法全部显示（当然如果把控件宽度调到足够宽或控件图标与文本独立分开是可以做到全部显示文本的啦）；
    二、提前交卷后程序的ON TIME方法不能停止计时，会一直到预设时间到为止；
    三、获取题库程序中，如本压缩文件中的“有宏的簿.xls”，由四个表组成，最左边第一个表“参数表”设置了禁止被选中的宏代码，当采用循环方法把它们一个一个复制到程序所在工作簿“试卷界面.xls”中时，刚移入第一个表“参数表”时程序就提示：运行时错误‘9’ 下标越界 结束 调试 帮助。我把书上的几种防错代码都试了，都不能禁止错误提示的弹出。程序是写给大家用的，别人在选择题库时可能会打开含有各种宏的Excel工作簿文件，会出现各种错误提示导致程序中断。我想不可能在复制工作表时必须采用”工作组“的方法一次性复制粘贴才可以吧？    四、考试结束的消息框等会反复多次弹出才完毕，无法只弹出一次。
    因为这是第一版，还要修改程序顺序 练习第二版：先导入多选题的控件与文本，插入空行，再导入单选题，插入空行，后导入判断题，三种题型的题量变量都从 1 开始循环，最后导入，，，让用户自定义三种题型的题量。