ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: yuntianlh

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-11-26 10:51 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
只要6门课程的分数,物理化学语文数学英语的,还有学生工号,还有学生的电脑工号,就可以了。

TA的精华主题

TA的得分主题

发表于 2012-11-26 11:09 | 显示全部楼层
楼主上个附件吧,直接给你搞就是了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-11-26 11:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
hehex 发表于 2012-11-26 11:09
楼主上个附件吧,直接给你搞就是了。

附件.zip (146.44 KB, 下载次数: 61)
那我上附件了,那个身份证地址码在Sheet2里
谢谢各位大神啦。。

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:07 | 显示全部楼层
恩,对的,不用身份证件也可以的,直接用QQ,因为QQ登记了你的手机号码,只要用你的QQ登记一下,就可以了,身份证件用不着的。就可以对应地址了。2013的新版本QQ已经出来了,我弄好了。我放在附件里。你当一下,就可以了

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
传不了,我把网站地址给你,你自己下载一下,不用VB作也可以的,只要用EXCEL表单,把你的学生的QQ登记,还有6门课程登记分数,在除以6,就可以了。

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
http://www.qqtn.com/list/s_176_1.html     下载5459最新版本。

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:13 | 显示全部楼层
对的,但是QQ里有写字版,里面只要打字,就可以找到了。如果你找不到,加我QQ2821209191

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
你用VB作的话,很麻烦的,你直接用EXCEL表单就可以直接作业了。输入学生名字,跟6门课程分数。在选分类汇总。就可以。直接可以算出学生总分。

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

发表于 2012-11-26 14:23 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请参考附件
以下问题
1.楼主你原来的判断信息是否完全的代码有问题,即使信息不完全仍然会输入到表中。我给你修改了代码,当信息不完全的时候,将不会往表格里存。
2. 你的表格里原有2段关于身份证号码判断的程序,一个是判断身份证长度的,一个应该是算校验位的,本来想给你用上,你可以看到窗体中有一段注释掉的代码就是调用这2个函数来判断身份证是否合法的。但是好像你的函数本身有问题,无论身份证是否正确一概返回"N",因此只好放弃了,你自己再查查或者上网找一段正确校验身份证的算法程序取代掉现有的。
3. 添加了一个函数homeland 调用,返回根据Sheet2 里的身份证片段信息对应籍贯信息并填写到控件字段。

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

附件.zip

153.16 KB, 下载次数: 89

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 06:36 , Processed in 0.045161 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表