怎么用excel查询身份证的真假

来源:百度知道 编辑:UC知道 时间:2024/05/05 09:52:09
谢谢大家!麻烦告诉我下
那怎么分辨

1、假设身份证从A2开始输入,在B2输入:=RIGHT(A2,1)=MID("10X98765432",MOD(SUM(MID(A2,ROW(INDIRECT("1:17")),1)*2^(18-ROW(INDIRECT("1:17")))),11)+1,1,按CTRL+SHIFT+ENTER。
2、TRUE代表正确,FALSE代表错误。

无法分辨真假 只能判断是不是身份证号

如何在Excel中判断身份证号码的真伪? 2007-05-14 23:43:26
大 中 小
我们经常在Excel中要处理身份证号码信息,如何判断身份证号码的真伪呢?对于18位的身份证号码,由于有校验位的存在,因此可以利用校验位判断一个号码是否合法——即是否符合身份证号码的编码规则。

VBA可以很简单地帮助我们实现这个目的,首先在Excel中添加宏代码如下:

Public Function CheckID(ByVal ID18 As String) As String

Dim Ai(17) As Integer

CC = "10X98765432"

Wi = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2)

s = 0

For i = 0 To 16

Ai(i) = CInt(Mid(ID18, i + 1, 1))

s = s + Ai(i) * Wi(i)

Next i

CheckID = Mid(CC, s Mod 11 + 1, 1)

End Function

这样我们就有了CheckID这个函数可以调用。在E