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

yuntianlh · 发表于 2012-11-26 14:44

hehex 发表于 2012-11-26 14:23
请参考附件
以下问题
1.楼主你原来的判断信息是否完全的代码有问题，即使信息不完全仍然会输入到表中。我 ...

谢谢老师啦，改的很好。
我只有点表单公式的皮毛，前天才开始弄VBA，一头雾水的，再去研究研究那个验证身份证的代码，我想再添加一条代码进去，在录入信息的时候检测，前面是否已经有了这个身份证的记录。

hehex · 发表于 2012-11-26 15:08

yuntianlh 发表于 2012-11-26 14:44
谢谢老师啦，改的很好。
我只有点表单公式的皮毛，前天才开始弄VBA，一头雾水的，再去研究研究那个验证身 ...

请参考附件，添加了判断身份证是否已存在于表1 中的自定义函数，如果已经存在就返回提示信息。
另外修改了原程序中的2点:
1. 你源程序中身份证.value 是数字型，这在输入进excel 表格的时候超过15位的部分有可能会被填写000,因此我修改为转换成文本型再填写。
2. 读籍贯程序做了调整，尽量不出现类似"荆门市荆门市" 这样重复信息的内容。

你再测试一下。

yuntianlh · 发表于 2012-11-26 15:35

hehex 发表于 2012-11-26 15:08
请参考附件，添加了判断身份证是否已存在于表1 中的自定义函数，如果已经存在就返回提示信息。
另外修改 ...

ms这样改了之后，输入的信息都会提示该员工已存在

hehex · 发表于 2012-11-26 16:04

yuntianlh 发表于 2012-11-26 15:35
ms这样改了之后，输入的信息都会提示该员工已存在

低级错误，变量没有赋初值。

星展小丰 · 发表于 2012-11-28 15:52

谢谢，但是关键问题是身份证件的后4位号码，就可以

星展小丰 · 发表于 2012-11-28 15:57

直接用身份证件后4位代码就可以了。

星展小丰 · 发表于 2012-11-29 09:16

呵呵呵，看懂了。

星展小丰 · 发表于 2012-11-30 14:44

提取生日号码就可以了，后4位不变，名字变一变，就可以了，笨蛋，算了，帮你吧。会了吗？

星展小丰 · 发表于 2012-11-30 14:45

地方变没用的，你怎么什么都不会。

lsh569219209 · 发表于 2013-1-7 14:46

呵呵，学习了

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

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

评分

评分