作者：乔山办公网日期：
返回目录：excel表格制作
假如A列是身份证号，B列设抄置校验，那么B2单元格可以输入公式=IF(LEN(A2)<>18,"--",TEXT(--(RIGHT(A2)=MID("10X98765432",MOD(SUMPRODUCT(MID(A2,ROW($1:$17),1)*2^(18-ROW($1:$17))),11)+1,1)),"[=1]√;×"))即可。见下图zd：
现在的身份证号码包括18位，从左至右依次为：六位数字地址码，八位数字出生日期码，三位百数字顺序码和一位数字校验码度。
1、通过数据有效性可以做一些最基本的检查来。
点菜单“数据”——“有效性”，点“设置”标签，在“允许”中选择“自定义”，在后面“公式”问中输入=and(len(a1)=18,countif(s:s,left(a1,6)))。点“出答错警告”标签，点中“出错警告”，在“样式”中选“停止”，在“标题”中输入“你输入的身份证号有误！请重新输入！”。该公式只检查了输入的身份证位数是否为18位和版地区编号是否正确。
2、对于要求严格的检查需要用VBA。除作以上检查处，可权以检查出生日期是否符合规则，顺序码中的男女标识是否对应，校验码是否正确。