ExcelVBA一键提取身份证信息，代码详解，手把手教你学编程

在视频教程中我为大家展示了怎么使用VBA编程，一键就可以通过身份证号码获取到个人相关信息。视频教程限于篇幅没法给大家详细讲解代码，所以这篇文章将为大家带来视频中展示的代码的详细讲解。

基础知识

在excel的文档中如果插入了宏的代码，那么我们需要把文件保存为.xlsm格式，并且打开excel工作簿的时候要启用宏。

按住alt+f11能调出VBA的代码编辑器。

【开发工具】选下卡的插入可以插入按钮等表单控件。

在VBA代码编辑器中定义好一个宏后，可以插入一个按钮，然后右键点击按钮指定宏，这样能给按钮指派宏，当点击按钮就会触发宏当中的VBA代码。

实现一键提取信息的步骤

我们要实现通过选中批量的身份证信息，然后使用VBA代码一键获取性别、出生年月日以及年龄等信息的步骤如下：

1.获取选中的单元格内容

2.判断是否选中了多个单元格

3.判断是否选中的是同一列的单元格

4.循环遍历选中的身份证信息，截取对应位数的数字，判断性别、生日

5.根据当前时间和生日，用函数算出年龄

6.把算出的信息放在对应单元格上面

代码讲解

全局代码如下：

这一段是定义一个名字叫【从身份证号码获取信息】的宏，End Sub是结尾，中间是功能代码：

Sub 从身份证号码获取信息()

……

End Sub

这一段是在定义后面可能会用到的变量，变量相当于存放数据的盒子：

Dim rng As Range, i As Integer, Mystr As String, arr, arr2()

这一段是在判断当前你在工作表中是否选中了单元格，如果没选中就会报出错误信息并退出执行代码，后面的代码不会再执行，出现Exit Sub就会中止执行后面的代码：

If TypeName(Selection) <> “Range” Then MsgBox “请选择存放身份证号码的区域”: Exit Sub

返回选中单元格和当前活动sheet中有内容的单元格间重复的单元格，也就是去除你选中了，但是没有值的空单元格，Intersect是一个函数，这个函数的作用是返回两个参数中的单元格部分的重合部分：

Set rng = Intersect(Selection, ActiveSheet.UsedRange)

这两段代码也是在判断和限制你选中的单元格内容，就不做详细讲解了，请参考代码注释：

If rng.Columns.Count > 1 Then MsgBox “只能选择单列”, vbOKOnly + vbInformation, “出错提示”: Exit Sub

If rng(1) = “” Then MsgBox “请选择身份证号码存放区域”, vbOKOnly + vbInformation, “出错提示”: Exit Sub

这里是在开始进行循环，然后处理相似的操作，为什么要循环，这是因为，我们对几个身份证号码进行提取的规则是一样的，变化的只是号码不同，所以这就可以用循环来实现，否则一个一个写代码会非常多也很麻烦：

For i = 1 To UBound(arr)

……

Next i

截取身份证号从第15位开始，总共取3位，然后除以2取余数，Mod是取余数的操作。如果余数是1就是奇数，那么就是男，反之位0那么就是偶数，性别就是女。

arr2(i, 1) = IIf((Mid(arr(i, 1), 15, 3) Mod 2), “男”, “女”)

身份证号如果是15位，并且第7位如果是0，那么证明是00后，那么生日的年份就要加上20，然后取7，8位和20拼接起来，组成年份，中加用-连接，然后9，10位位月份；11，12位为日，这样就组成了出生生日：

If Len(arr(i, 1)) = 15 And Mid(arr(i, 1), 7, 1) = 0 Then Mystr = “20” & Mid(arr(i, 1), 7, 2) & “-” & Mid(arr(i, 1), 9, 2) & “-” & Mid(arr(i, 1), 11, 2)

和上面类似，15位身份证，当第7位大于0就应该在前面加上19，而不是加20，其余部分和上面一样：

If Len(arr(i, 1)) = 15 And Mid(arr(i, 1), 7, 1) > 0 Then Mystr = “19” & Mid(arr(i, 1), 7, 2) & “-” & Mid(arr(i, 1), 9, 2) & “-” & Mid(arr(i, 1), 11, 2)

18位的身份证，这个内容较简单，相信大家根据上面的讲解能够举一反三：