时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:1

在EXCEL的应用中,我们经常会用到身份证号,那么身份证号码怎么导出性别信息呢?我们可以用函数嵌套来实现这个功能,但是函数嵌套很麻烦,我们能不能用宏来实现这个功能呢?大拿当然是肯定的,我们一起来尝试一下。

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

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

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

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

在代码编辑框中输入: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                                     '结束循环

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

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

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

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

单击确定好出现了一个对话框,显示出“性别:男”。

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

Top