Function ID(num)
Dim X(17) '储存身份证号码分割后的每位字符
Dim Y() '储存计算相乘的系数
Dim LastNum() '储存身份证最后一位验证码
'储存身份证前17位
For i = 0 To 16
X(i) = Mid(num, i + 1, 1)
Next
'如果第18位是字母X或x,将数字10储存到X(17)中
'如果第18位是数字,直接储存到X(17)中
'如果是其他情况,什么都不做
If Mid(num, 18, 1) = "X" Or Mid(num, 18, 1) = "x" Then
X(17) = 10
ElseIf IsNumeric(Mid(num, 18, 1)) Then
X(17) = Mid(num, 18, 1)
End If
'Y中最后一位11是取模的除数,其余是相乘系数
Y = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 11)
LastNum = Array(1, 0, 10, 9, 8, 7, 6, 5, 4, 3, 2)
'判断位数,18位且前17位都是数字才可能正确,再计算校验码判断
If Len(num) = 18 And Application.WorksheetFunction.IsNumber(Mid(num, 1, 17)) Then
Sum = 0
For i = 0 To 16
Sum = Sum + X(i) * Y(i)
Next
Code = Sum Mod Y(17)
If LastNum(Code) - X(17) = 0 Then
ID = "正确"
Else
ID = "请检查身份证号码!"
End If
'非18位情况身份证号码错误
Else
ID = "请检查身份证号码!"
End If
End Function
以下是经优化后的VBA代码:
Function ID(num)
Dim X(0 To 16) As String '储存身份证号码分割后的每位字符
Dim Y() As Integer '储存计算相乘的系数
Dim LastNum() As Integer '储存身份证最后一位验证码
Dim i As Integer
Dim Sum As Long
Dim Code As Integer
'将字符串转成字符数组并储存
X = Split(Left(num, 17), "")
'如果第18位是字母X或x,将数字10储存到X(17)中
'如果第18位是数字,直接储存到X(17)中
If Mid(num, 18, 1) Like "[0-9]" Then
X(17) = Mid(num, 18, 1)
ElseIf LCase(Mid(num, 18, 1)) = "x" Then
X(17) = "10"
End If
'Y中最后一位11是取模的除数,其余是相乘系数
Y = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 11)
LastNum = Array(1, 0, 10, 9, 8, 7, 6, 5, 4, 3, 2)
'判断位数,18位且前17位都是数字才可能正确,再计算校验码判断
If Len(num) = 18 And IsNumeric(Left(num, 17)) Then
Sum = 0
For i = 0 To 16
Sum = Sum + X(i) * Y(i)
Next
Code = Sum Mod 11
If LastNum(Code) = CInt(X(17)) Then
ID = "正确"
Else
ID = "请检查身份证号码!"
End If
'非18位情况身份证号码错误
Else
ID = "请检查身份证号码!"
End If
End Function
优化说明:
将变量声明放置在函数开始处,提高代码的可读性;
将字符分割为字符数组,简化代码;
使用Like运算符代替Or,简化代码;
将字符转换为数值类型,提高代码执行效率;
简化校验码的计算过程;
若校验码计算错误,提示后缀不必添加“位身份证号码”。