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

OKJSJSF

OKJSJSF 发表于 2018-8-23 22:45
好！明天我发上来。确实需要的。

40楼重发有了。

OKJSJSF

多谢EH侠圣Duquancai提供了多项选择题标准答案字符串转换为五位数的自定义函数编码方法，如下所示，这样不需罗列多项选择题的各种组合，不需使用Vlookup函数，不必担心标准答案字符串书写不规范，增加了一个大知识点。
Function getCode(ByVal s As String) As String
    Dim i&, j$, arr
    arr = Array("A", "B", "C", "D", "E")
    For i = 0 To 4
        If InStr(strconv(application.asc(s)，vbuppercase), arr(i)) Then
            j = j & "1"
        Else
            j = j & "2"
        End if
    Next
    getCode = j
End Function

补充内容 (2018-9-9 22:20):
学VBA竞忘了工作表函数，多选题标准答案字符串转换可直接用FIND函数：
=if(isnumber(find("A",upper(asc(target)))),1,2)&if(isnumber(find("B",upper(asc(target)))),1,2)&if(isnumber(find("C",upper(asc(targe...

补充内容 (2018-9-9 22:39):
FIND函数总时找到其中一个时即停止查找，返回ISNUMBER类型数字，没找到则返回ISERR类型错误。MATCH是找到工作表中单元格的位置，FIND是找到单元格中字符串中的位置，我曾在贴吧中大声赞叹该函数的神奇，现在几乎...

补充内容 (2018-9-9 22:41):
如果字符串很长时，工作表函数与自定义函数谁的编码速度更快呢？

OKJSJSF

试卷重发： 试卷2版、初版、题库样式.rar (84.35 KB, 下载次数: 28)

2018-9-7 20:43 上传

点击文件名下载附件

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

OKJSJSF

最近在使用“我的借款工作簿（仿职工信息管理界面练习）”中的数据导入导出时又发现，我的程序有个问题必须改，就是获取题库的程序。用worksheets.cope或worksheets(array("判断","单选","多选")).cope复制全部或部份工作表，当题库中某单元格的字符长度超过255个时（这情况不多），只有前255个字符被复制粘贴，后面的就丢失了。这个问题好像我自己很难解决。 警告提示称：”如要复制全部字符，请复制单个单元格而不是整个工作表“。这好像是错误的，因为一般情况下采用worksheets("表名").cells.cope 可复制粘贴整个工作表的所有单元格的全部字符。但如果以此方法采用循环程序逐个表复制，又可能会遇到以前我提过至今无法解决的程序出错问题（程序设置了某些工作表不能被选中）。！！！求助各位大神，遇到这类跨文件的数据导入导出问题，一会儿激活这个文件，一会儿激活另一文件，该用什么方法？该注意哪些问题？

ardu95

建议：先粗做习题练习
然后再细做专项练习或考试。

fzlhb

好好学习一下

OKJSJSF

我有太多东西需学习。如用代码打开另一文件时禁用另一文件的宏。

OKJSJSF

workbooks.open方法的14个参数中，唯一与被打开文件的宏有关的参数只一个，如果在一个文件中写代码以打开另一个文件，不管如何打开另一文件，都会执行被打开的文件的宏。并且宏安全性的弹窗不会弹出让我们禁用宏。
Editable      Variant 类型，可选。如果该文件为 Microsoft Excel 4.0 加载宏，则该参数的值为 True 时可打开该加载宏以便在窗口中看到。如果该参数的值为 False 或者省略该参数，则该加载宏以隐藏方式打开，并且无法设为可见。本选项不能应用于由 Microsoft Excel 5.0 或更高版本的 Microsoft Excel 创建的加载宏。如果该文件是 Excel 模板，则参数的值为 True 时，会打开指定模板用于编辑。参数为 False 时，可根据指定模板打开新的工作簿。默认值为 False。

OKJSJSF

那么如何让宏安全性高低的弹窗弹出让我禁用宏呢？下面再从Application中去找找看。

OKJSJSF

Application的方法属性实在太多，在沮丧徘徊之际，翻开《Excel实战技巧精粹修订版》，第75页技巧45正是我苦苦寻觅的方法“打开包含VBA代码的工作簿时禁用宏”，
Application.AutomationSecurity = msoAutomationSecurityByUI
可以自己决定宏是否启用，可直接设为禁用，文中还提到一个Excel的BUG.看来我的试卷练习中的题库可以采用循环方法获取了，单元格中255个以外的字符可以全部复制粘贴了。