关于使用VBA从身份证号码里提取籍贯信息的难题

星展小丰

只要6门课程的分数，物理化学语文数学英语的，还有学生工号，还有学生的电脑工号，就可以了。

hehex

楼主上个附件吧，直接给你搞就是了。

yuntianlh

hehex 发表于 2012-11-26 11:09
楼主上个附件吧，直接给你搞就是了。

附件.zip (146.44 KB, 下载次数: 61)

2012-11-26 11:22 上传

点击文件名下载附件

那我上附件了，那个身份证地址码在Sheet2里
谢谢各位大神啦。。

星展小丰

恩，对的，不用身份证件也可以的，直接用QQ，因为QQ登记了你的手机号码，只要用你的QQ登记一下，就可以了，身份证件用不着的。就可以对应地址了。2013的新版本QQ已经出来了，我弄好了。我放在附件里。你当一下，就可以了

星展小丰

传不了，我把网站地址给你，你自己下载一下，不用VB作也可以的，只要用EXCEL表单，把你的学生的QQ登记，还有6门课程登记分数，在除以6，就可以了。

星展小丰

http://www.qqtn.com/list/s_176_1.html     下载5459最新版本。

星展小丰

对的，但是QQ里有写字版，里面只要打字，就可以找到了。如果你找不到，加我QQ2821209191

星展小丰

你用VB作的话，很麻烦的，你直接用EXCEL表单就可以直接作业了。输入学生名字，跟6门课程分数。在选分类汇总。就可以。直接可以算出学生总分。

yuntianlh

星展小丰 发表于 2012-11-26 14:14
你用VB作的话，很麻烦的，你直接用EXCEL表单就可以直接作业了。输入学生名字，跟6门课程分数。在选分类汇总 ...

excel表单做的我有，用烦了，一堆的公式在格子里

hehex

请参考附件
以下问题
1.楼主你原来的判断信息是否完全的代码有问题，即使信息不完全仍然会输入到表中。我给你修改了代码，当信息不完全的时候，将不会往表格里存。
2. 你的表格里原有2段关于身份证号码判断的程序，一个是判断身份证长度的，一个应该是算校验位的，本来想给你用上，你可以看到窗体中有一段注释掉的代码就是调用这2个函数来判断身份证是否合法的。但是好像你的函数本身有问题，无论身份证是否正确一概返回"N"，因此只好放弃了，你自己再查查或者上网找一段正确校验身份证的算法程序取代掉现有的。
3. 添加了一个函数homeland 调用，返回根据Sheet2 里的身份证片段信息对应籍贯信息并填写到控件字段。

感觉上目前你的程序距离成熟到能使用的阶段还有不短的距离。