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=====