【Excel VBA】身份证号校验功能函数

说明

在处理工作数据时经常会有身份证号，而身份证号作为唯一能够精确标记某个人的关键数据，所以身份证号的正确与否就非常关键，而一般身份证号都是手工录入为主，大多数人也不是银行员工，没有刻苦的联系过数字录入，难免会出现错误，那么这个时候能够帮助我们校验身份证号录入是否正确的函数就相当重要了。
根据百度百科中的介绍：

身份证号码中的校验码是身份证号码的最后一位，是根据GB 11643-1999中有关公民身份号码的规定，根据精密的计算公式计算出来的，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码，最后一位是数字校验码。

代码code

Sub 引用函数的过程()
  If CheckID("11012319001231001X") = True Then
    MsgBox "身份证号正确"
  Else
    MsgBox "错误请检查"
  End If
End Sub

Function CheckID(ID As String) As Boolean
  ID = Trim(ID)
  Select Case Len(ID)
    Case 15
      CheckID = False '标明这是15位的身份证号
      Exit Function