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

yuntianlh

书到用时方恨少。。。。LZ最近突发奇想，想用VBA把自己从重复劳动中解放出来。
背景这样的说：每天要登记n多人的信息，重复劳动量太大，于是乎在尝试用VBA编个小程序，实现信息自动分类填写。现在碰到一个难题，弄了一天没解决，问题是这样的：
lz有个表，sheet2是身份证地址码与籍贯对照表，如图:


现在lz在VBE里插入了一个控件，叫信息录入，里面有个“身份证号码”录入框，有个“籍贯”框，现在希望在身份证号码框里填入身份证号码的时候，自动根据sheet2里的对照表判断籍贯填入籍贯里。


求高人帮给个代码

winter_qy

注：这样提取的并不一定是正确的，因为他的身份证并不一定是在了生地取得的

yuntianlh

winter_qy 发表于 2012-11-25 23:52
注：这样提取的并不一定是正确的，因为他的身份证并不一定是在了生地取得的

可能描述的不清楚，我只要用那个表里的地址就行了

星展小丰

明白了。看懂了，明白了。

星展小丰

呵呵呵，地址没用的，用IP地址就可以了。

星展小丰

身份证件也没用，只要手机号码，就可以找到IP地址。学生可以到电脑科室上电脑课程，每个电脑班级有个IP地址。

星展小丰

只要用IP地址就可以了。就是只要输入学生的IP地址。

星展小丰

IP地址是变换的，查学生的登记学号，就可以了。我帮你作好了，如何。

星展小丰

我帮你作好，怎么把文档传给你。要用VB制作的。

yuntianlh

星展小丰 发表于 2012-11-26 10:31
IP地址是变换的，查学生的登记学号，就可以了。我帮你作好了，如何。

嘿嘿，是不是要用字典解决啊，老师？这个不用那么精确，说白了就是要用身份证前六位和上面那个表里的地址码对照，然后取出对应的地址就行了。