EXCEL技巧——如何用VBA快速调用身份证性别

1、    新建一张工作表，单击工作边菜单栏“开发工具”——VisualBasic，打开VBA编辑器，我们将在一下操作中，通过在代码框中输入代码来实现这个功能。

2、   现在我们双击VBA编辑器中的“Sheet1”，打开代码编辑框，如图所示。

3、   在代码编辑框中输入：

Sub 身份证号码导出性别()

    sid = InputBox("请输入身份证号码：")    '定义输入框，在其中输入身份证号

    i = Len(sid)                            '用Len函数确定身份证号的位数

    If i <> 15 And i <> 18 Then             '判断身份证号长度是否正确，如果身份证号位数不等于15和18

       MsgBox "错误身份证号！！！"          '提示错误身份证号码

       Exit Sub                             '结束查询

    End If                                  '结束如果

    If i = 15 Then                          '如果身份证位数为15位

       s = Right(sid, 1)                    '取最右侧的1位数字

    Else                                    '否则长度为18度

       s = Mid(sid, 17, 1)                  '取倒数第2位数

    End If                                  '结束如果

    If Int(s / 2) = s / 2 Then              '是否为偶数

        sex = "女"                          '如果是，则性别=女

    Else                                    '否则

        sex = "男"                          '性别=女

    End If                                  '结束如果

    MsgBox "性别：" + sex                   '输出框中显示出性别

End Sub                                     '结束循环

4、    现在我们在VBA编辑器中选择菜单栏中的“运行”——运行子过程\用户窗体，我们来对刚才辛辛苦苦编辑的代码进行调试。

5、  调试后出现一个对话框，“请输入身份证号码：”现在输入身份证号码：620622199811211117，单击确定。

6、  单击确定好出现了一个对话框，显示出“性别：男”。