求助检查身份证检查

qiongmei6

非常感谢yylucke师傅的回答，现在这个以编号的形式提示错误的功能能否改成名字的形式提示错误呢，再次谢谢您的回答

qiongmei6

yylucke 发表于 2023-4-5 16:26
已经修改

非常感谢yylucke师傅的回答，现在这个以编号的形式提示错误的功能能否改成名字的形式提示错误呢，再次谢谢您的回答

qiongmei6

蓝桥玄霜 发表于 2023-4-5 11:35
检查的例子：

谢谢蓝桥玄霜师傅的回答，但是这个代码对身份证的小写字母他不会判断是错的，能否限制身份证号只要是小写的都判断是错的，再次谢谢您的帮忙

yylucke

qiongmei6 发表于 2023-4-5 17:46
非常感谢yylucke师傅的回答，现在这个以编号的形式提示错误的功能能否改成名字的形式提示错误呢，再次谢谢 ...

你自己修改如下：
MsgBox "编号：" & j - 2 & Chr(10) & "姓名：" & arr(j, 3) & Chr(10) & " 身份证号码有误！", vbCritical + vbOKOnly, "身份证号码检查不通过"

阿诺斯瓦星呆

qiongmei6 发表于 2023-4-5 18:27
谢谢蓝桥玄霜师傅的回答，但是这个代码对身份证的小写字母他不会判断是错的，能否限制身份证号只要是小写 ...

方方格子自带功能，公式如下,只能判定这个身份证号是否符合规则哈，不能判定是否名字和号对的上，哪怕你叫刘德华，迪丽热巴，秦始皇都行
IF(LEN(B10)=0,"空",IF(LEN(B10)=15,"旧号",IF(LEN(B10)<>18,"位数不对",IF(CHOOSE(MOD(MID(B10,1,1)*7+MID(B10,2,1)*9+MID(B10,3,1)*10+MID(B10,4,1)*5+MID(B10,5,1)*8+MID(B10,6,1)*4+MID(B10,7,1)*2+MID(B10,8,1)*1+MID(B10,9,1)*6+MID(B10,10,1)*3+MID(B10,11,1)*7+MID(B10,12,1)*9+MID(B10,13,1)*10+MID(B10,14,1)*5+MID(B10,15,1)*8+MID(B10,16,1)*4+MID(B10,17,1)*2,11)+1,1,0,"X",9,8,7,6,5,4,3,2)=IF(ISNUMBER(RIGHT(B10,1)*1),RIGHT(B10,1)*1,"X"),"正确","错误"))))