身份证号码真伪验证

xa50 · 发表于 2016-9-6 09:09

前期在网上找的验证程序，近日出现所有身份证号码均验证为ture，哪位给看看函数？

Excel学徒123 · 发表于 2016-9-6 09:32

现在身份证号码都统一到18位了吧，所以一般不会再考虑15位了，试试下面的吧

=IF(B6="","",IF(AND(LEN(B6)=18,CHOOSE(MOD(SUMPRODUCT(MID(B6,ROW($1:$17),1)*2^(18-ROW($1:$17))),11)+1,1,0,"X",9,8,7,6,5,4,3,2)&""=RIGHT(B6)),"有效","无效!!"))

复制代码

xa50 · 发表于 2016-9-6 09:38

楼上正解

Excel学徒123 · 发表于 2016-9-6 09:42

xa50 发表于 2016-9-6 09:38
楼上正解

{:02:}

苏子龙 · 发表于 2016-9-6 09:57

简化下，少几个字符
=IF(B5="","",IF(AND(LEN(B5)=18,MID("10X98765432",MOD(SUMPRODUCT(MID(B5,18-ROW($1:$17),1)*2^ROW($1:$17)),11)+1,1)=RIGHT(B5)),"有效","无效!!"))

xa50 · 发表于 2016-9-6 11:46

那么新问题来了，楼上二位可否添加个有效和无效的字符颜色区别无色为有效，红色为无效。

Excel学徒123 · 发表于 2016-9-6 11:54

xa50 发表于 2016-9-6 11:46
那么新问题来了，楼上二位可否添加个有效和无效的字符颜色区别无色为有效，红色为无效。

这个问题简单了吧，在你写这个验证公式那一列用条件格式就能做了，包含无字的单元格显示红色就行了，有效的不用管它就行

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