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

闲池 · 发表于 2010-12-30 01:04

身份证验证.rar (102.66 KB, 下载次数: 344)
试试吧

duanyuncl · 发表于 2010-12-30 16:18

能即时自动弹出提示，但焦点得手工返回，不知道是不是你要的。

yang0158 · 发表于 2010-12-30 21:05

没有怎么看明白

ziguang1981 · 发表于 2010-12-30 21:56

高手真多，常来学习。

oyzhjr · 发表于 2010-12-31 11:33

楼主自定义一个身份证验证函数，在A列中输入身份证号，在B列中输入这个公式。

tocsin · 发表于 2011-1-5 10:07

原帖由 wshcw 于 2010-12-29 21:24 发表

你说了半天也是没诚意(连个附件都不想上)让人帮忙,还是你自己弄吧.

附件在1楼有啊

tlzhh · 发表于 2012-4-11 16:53

duanyuncl 发表于 2010-12-30 16:18
能即时自动弹出提示，但焦点得手工返回，不知道是不是你要的。

22楼代码和位数可以，年也可以，但月和日不能核定

8144158 · 发表于 2017-10-22 16:56

=IF(LEN(B2)=0,"空",IF(LEN(B2)=15,"老号",IF(LEN(B2)<>18,"位数不对",IF(CHOOSE(MOD(SUM(MID(B2,1,1)*7+MID(B2,2,1)*9+MID(B2,3,1)*10+MID(B2,4,1)*5+MID(B2,5,1)*8+MID(B2,6,1)*4+MID(B2,7,1)*2+MID(B2,8,1)*1+MID(B2,9,1)*6+MID(B2,10,1)*3+MID(B2,11,1)*7+MID(B2,12,1)*9+MID(B2,13,1)*10+MID(B2,14,1)*5+MID(B2,15,1)*8+MID(B2,16,1)*4+MID(B2,17,1)*2),11)+1,1,0,"X",9,8,7,6,5,4,3,2)=IF(ISNUMBER(RIGHT(B2,1)*1),RIGHT(B2,1)*1,"X"),"TRUE","FALSE"))))

8144158 · 发表于 2017-10-22 18:07

有效性，录入
=IF(LEN(B2)=0,"空",IF(LEN(B2)=15,"老号",IF(LEN(B2)<>18,"位数不对",IF(CHOOSE(MOD(SUM(MID(B2,1,1)*7+MID(B2,2,1)*9+MID(B2,3,1)*10+MID(B2,4,1)*5+MID(B2,5,1)*8+MID(B2,6,1)*4+MID(B2,7,1)*2+MID(B2,8,1)*1+MID(B2,9,1)*6+MID(B2,10,1)*3+MID(B2,11,1)*7+MID(B2,12,1)*9+MID(B2,13,1)*10+MID(B2,14,1)*5+MID(B2,15,1)*8+MID(B2,16,1)*4+MID(B2,17,1)*2),11)+1,1,0,"X",9,8,7,6,5,4,3,2)=IF(ISNUMBER(RIGHT(B2,1)*1),RIGHT(B2,1)*1,"X"),"TRUE","FALSE"))))

zopey · 发表于 2017-10-23 09:32

http://club.excelhome.net/thread-1351752-1-1.html

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

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

回复 1楼 tocsin 的帖子