如何实现身份证号码即输即验证（验证身份证是否有效）？

tocsin · 发表于 2010-12-29 11:58

对于身份证问题，从论坛中查找了不少高手的贴子，学习了一些做法。现在想请教高手们这样一个应用：在单元格里输入一个18位身份证号，立刻进行验证是否是一个有效的身份证（符合身份证的编码特征）。

具体要求：

1、身份证号码为18位。
2、前17位为数字，最后一位符合身份证校验规则。
3、身份证号里的出生日期为有效的日期，并且限定在1960-1-1至2000-12-31。
4、前6位在提供的地区代码中（“编码表”）。
5、在“应用”表中的单元格中输入身份证号，立即进行以上验证。如果不符合以上条件，弹出对话框，提示相应错误（不在其他单元格中显示验证信息），焦点依然在该单元格中，要求重新输入。忽略空值。

实现这样的功能，该如何做呢？请教高手。

ID.rar (96.93 KB, 下载次数: 479)

[ 本帖最后由 tocsin 于 2010-12-29 18:20 编辑 ]

lu_zhao_long · 发表于 2010-12-29 12:16

原帖由 tocsin 于 2010-12-29 11:58 发表
对于身份证问题，从论坛中查找了不少高手的贴子，学习了一些做法。现在想请教高手们一个问题：在单元格里输入一个身份证号，立刻进行验证，如果有误，弹出对话框，提示错误。关闭对话框后，焦点仍然在当前单元格中。 ...

建议楼主上传附件，并在附件中做出自己想要的效果。然后大家才好帮你！

tocsin · 发表于 2010-12-29 12:21

就是想在某一单元格里，输入一个身份证号，立即进行验证，如果有误，弹出对话框加以提示

shaowu459 · 发表于 2010-12-29 12:22

数据有效性可以么？没有试验，焦点应该还在当前单元格

天堑小舟 · 发表于 2010-12-29 12:23

原帖由 tocsin 于 2010-12-29 12:21 发表
就是想在某一单元格里，输入一个身份证号，立即进行验证，如果有误，弹出对话框加以提示

身份证里有很多的信息,您要验证什么!

tocsin · 发表于 2010-12-29 12:27

主要是验证18位身份证号是否是一个有效的身份证号。无论是有效性还是VBA，都可以，能实现即输即验证。

一剑惊心 · 发表于 2010-12-29 12:40

何为有效性？指的是真实数据还是只要符合身份证的特征？

tocsin · 发表于 2010-12-29 12:42

只要是符合身份证的特征

shaowu459 · 发表于 2010-12-29 12:46

请列举出您认为的需要判断的身份证特征是什么，然后把基础数据找到，举个例子，你想确定前两位或前三位是真正的地区代码而不是随意的数字，那么你需要提供全部的地区代码。如果你想判断出生年月不是随意的数字，那么你需要提出需要判断的年份的上下限，比如出生年月从1900年1月1日到2010年12月31日等等。如果有其他的要求也许要提出来，否则大家做出一个来你就会说不对，然后再提出其他的需求。

tocsin · 发表于 2010-12-29 13:20

不好意思，我没有表述清楚。我的需求是：

1、身份证号码为18位。
2、前17位为数字，最后一位符合身份证校验规则。
3、身份证号里的出生日期为有效的日期，并且限定在1960-1-1至2000-12-31。
4、前6位在提供的地区代码中（“编码表”）。
5、在“应用”表中的单元格中输入身份证号，立即进行以上验证，如果不符合以上条件，弹出对话框，提示相应错误，焦点依然在该单元格中，要求重新输入。忽略空值。

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

[求助] 如何实现身份证号码即输即验证（验证身份证是否有效）？