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

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

前期准备工作（包括相关工具或所使用的原料等）

EXCEL软件

详细的操作方法或具体步骤

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

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

在代码编辑框中输入：

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

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

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

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

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

Exit Sub '结束查询

If '结束如果

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

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

Else '否则长度为18度

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

If '结束如果

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

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

Else '否则

sex="男" '性别=女

If '结束如果

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

Sub '结束循环

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

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

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

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。