做了一个Excel版的小学数学四则混合运算自由出题小程序

江南民谣 · 发表于 2013-5-15 11:57

本帖最后由江南民谣于 2013-5-15 16:43 编辑

解决自动出题的问题，可以自由设置最大值、加、减、乘、除及相应的混合运算，包括括号运算的各类题目，完全随机出题，基本不使用VBA（里面有些简单的VBA按钮只是用来复制和粘贴的），欢迎大家试用，并提出宝贵意见或建议！

zdct1.0.rar (327.8 KB, 下载次数: 2205)

wudixin96 · 发表于 2013-5-15 12:50

本帖最后由 wudixin96 于 2013-5-15 12:53 编辑

用点 APPLICATION.SCREENUPDATING=FALSE，可以减少屏幕闪

把所有ActiveWindow.SmallScroll行删除

zheng_0925 · 发表于 2013-5-15 12:51

这做得不错哈

Kelidai · 发表于 2013-5-15 13:10

谢谢分享，学习了。

苍海拾贝 · 发表于 2013-5-15 13:13

很实用的程序！
点击“重新出题”后双击题目时单元格会变白，建议锁定单元格

江南民谣 · 发表于 2013-5-15 15:41

苍海拾贝发表于 2013-5-15 13:13
很实用的程序！
点击“重新出题”后双击题目时单元格会变白，建议锁定单元格

如果完全锁定单元格，想修改其格式（比如当设定最大数字较大时，列宽会显不够宽，如果无法修改，则使用上会受限制）

江南民谣 · 发表于 2013-5-15 15:42

本帖最后由江南民谣于 2013-5-15 16:00 编辑

wudixin96 发表于 2013-5-15 12:50
用点 APPLICATION.SCREENUPDATING=FALSE，可以减少屏幕闪

把所有ActiveWindow.SmallScroll行删除

谢谢提醒，这个小软件里面基本没有VBA，只有一些简单的录制的宏中的代码复制过去的。按照你的提示，软件果然效果好多了。

苍海拾贝 · 发表于 2013-5-15 15:45

本帖最后由苍海拾贝于 2013-5-15 15:59 编辑

江南民谣发表于 2013-5-15 15:41
如果完全锁定单元格，想修改其格式（比如当设定最大数字较大时，列宽会显不够宽，如果无法修改，则使用上 ...

可以考虑在“重新出题”的sub中修改，出题目后保护，原来的代码放在
activesheet.unprotect和activesheet.protect之间，过宽时用autofit可以自动调整
ps.发现不保护工作表时，不会出现双击变白的现象
程序很不错，以上仅供参考，呵呵：）

江南民谣 · 发表于 2013-5-15 16:10

苍海拾贝发表于 2013-5-15 15:45
可以考虑在“重新出题”的sub中修改，出题目后保护，原来的代码放在
activesheet.unprotect和activeshee ...

如果保护了，后面的显示题目和显示答案同样要复制结果到重新出题的单元格中去。

江南民谣 · 发表于 2013-5-15 16:21

本帖最后由江南民谣于 2013-5-15 16:26 编辑

苍海拾贝发表于 2013-5-15 15:45
可以考虑在“重新出题”的sub中修改，出题目后保护，原来的代码放在
activesheet.unprotect和activeshee ...

其实，一旦“双击变白的现象”发生了，只要重新点击“显示题目”或“显示答案”按钮后就会重新还原的。也无大碍!

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

[原创] 做了一个Excel版的小学数学四则混合运算自由出题小程序