Excel VBA学习之身份证号校检自定义函数

Excel VBA学习之身份证号校检自定义函数

【问题提出】上次学习了一个用Excel函数的方法来解决这个问题，但是函数太长了，有时会忘记：

=IF(LEN($B2)=18,IF(MID("10X98765432",MOD(SUMPRODUCT(VALUE(MID($B2,ROW($1:$17),1)),说明!$B$2:$B$18),11)+1,1)=RIGHT($B2,1),"合法","不合法"),"长度错误")

能不能简单一点，工作时不用那么辛苦的输入这个函数

【知识学习】

自定义函数的基本语法：

我们在Excel中使用的内置函数，有的没参数，比如Rand函数，有的有参数，比如Vlookup，参数还好几个，有些参数是区域，有些是数字。

我们今天就从最基本的开始，先来学习下定义一个没有参数和一个只有一个参数的函数，通过最基本的例子来掌握自定义函数的基本语法结构。

自定义函数的语法结构：

Function 函数名(参数1，参数2，……，参数n)

代码

函数名 = 代码执行的结果

End Function

语法很简单，看来难在了怎么得到结果的这段代码上。

好了，下面我们就开始自定义一个没有参数的函数吧。

【写一个自定义函数用于检测身份证号是否正确】

''====用于校检身份证号是否正确的自定义函数=========

Function ID(n)

Dim h, s, t, z As Integer

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

y = Array("1", "0", "X", "9", "8", "7", "6", "5", "4", "3", "2")

If Len(n) = 18 Then

For h = 0 To 16

r = Mid(n, h + 1, 1)

If IsNumeric(r) = False Then

ID = "第 " & h + 1 & " 位为非法字符"

Exit Function

End If

s = s + r * wi(h)

Next h

t = s Mod 11

If UCase(Mid(n, 18)) = y(t) Then

ID = "身份证号码正确"

Else

ID = "身份证号码不正确"

End If

Else

ID = "位数少于18位"

End If

End Function

【使用方法】

【测试成功】

=====The End=====