excel成绩录入工具 (vba)

lzqlaj

今天，宝宝已经四个月了，发帖留念。这个工具，几年前的做的。发出来与大家共享，主要作用是方便录入分数，vba的安全性很差，其它功能纯属娱乐。其中一部分代码来自论坛。
登录密码：123654789
vba密码：123654789
显示工作表密码：123654789
1、登录密码输入错误，工作簿自动删除。
2、程序运行，工作表隐藏，此时可以录入成绩，先选择考号，再选择科目，输入分数，按回车即可输入，也可点击"显示工作表"输入，此时效果更直观。
3、如果能上网，连接网络后，选择语音核对--google语音，按回车后，自动读出刚输入的分数。不上网，选择语音核对--系统语音，也能读出分数，只是声音不动听，前提是安装语音引擎。如果安装22楼的引擎，声音甚至比google语音还好。
4、语音引擎安装与使用。安装与使用ScanSoft-MeiLing-ChineseMandarinVoice中文女声语音包的方法，安装后语音很动听。
下载地址 http://www.yimuhe.com/file-578629.html
5、在隐藏工作表的情况下，退出时点击“关闭excel”，默认为先保存工作簿再退出。
6、未启用"宏",请先启用(可以把安全级别设置为“中”)。
7、第一次运行，请先点击"显示工作表"，工作表的标题行中“班级、姓名、考号"这三列顺序不要动,“班级、姓名、考号"这六个字不要改动。后面的科目可以删减或添加，也可以变名称。标题行以下行可以删减或添加。至少保留一个科目。

如果启用"宏"后，不能打开，下载“去除宏表”的附件。两个附件无大的区别。想更新一下附件，结果误操作给删除了，前一个下载了69次，后一个5次。附件已经更新了，只是名称没变。

lzqlaj

程序截图说明。。

lzqlaj

默认不开启语音核对，这个会影响速度，因为要读完内容，需要时间。可以录入完统一核对。

xpm130

感谢分享!                       

qhllqhll

谢谢分享 我下载了怎么打不开啊

sh205

呵呵！不错，学习一下。

qhllqhll

sh205 发表于 2013-1-14 09:13
呵呵！不错，学习一下。

请问你能打开吗？
谢谢

lzqlaj

qhllqhll 发表于 2013-1-14 09:41
请问你能打开吗？
谢谢

先启用“宏”，我是在excel2003下测试的。

lzqlaj

修正一处问题，输入分数后，按回车即可。附件已更新。。
Private Sub cj_Enter()
     If cj <> "" Then CommandButton2.SetFocus
End Sub

caihongniao

楼主，您好！怎么增加的科目、学生姓名不能导入到窗体中啊？谢谢赐教！