主题：[求助]如何设置一个公式验证身份证

[这个贴子最后由军旅在 2011/08/05 01:31pm 第 1 次编辑]

就是如果身份证录入错误就提示出来：比如身份证号应该是15位或18位，少录了，即提示的公式。谢谢高手了。egd文件下载

if(([身份证号] <> "" And len([身份证号])<>15 And len([身份证号])<>18),msgbox("身份证号长度错误。",0), True )

-=-=-=- 以下内容由 还不错 在 2011年08月05日 03:25pm 时添加 -=-=-=-
操作公式。

我在操作公式里已经设置了这个验证公式。如何能合二为一呢？
if(FindRow(Grid,"身份证号码","=",[身份证号码],2)>0,MsgBox("您录入的身份证号与他人重复!请查证!",0) And SetCellText(Grid,Row,"身份证号码",""), True )

egd文件下载

十分感谢版主！很好用。万分感谢您！