在视频教程中我为大家展示了怎么使用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位的身份证,这个内容较简单,相信大家根据上面的讲解能够举一反三:

If Len(arr(i, 1)) = 18 Then Mystr = Mid(arr(i, 1), 7, 4) & “-” & Mid(arr(i, 1), 11, 2) & “-” & Mid(arr(i, 1), 13, 2)

Evaluate函数能把字符串内容,当作代码去执行,这段代码主要是为了执行DATEDIF函数用当前时间减去生日,这样就能计算出年龄:

arr2(i, 3) = Evaluate(“DATEDIF(” & DateSerial(Split(Mystr, “-“)(0), Split(Mystr, “-“)(1), Split(Mystr, “-“)(2)) * 1 & “, NOW(),” & “””Y””” & “)”)

这里就是在做赋值的工作,前面所有计算结果都是放在arr2这个变量中,我们可以理解为放在arr2盒子中,这段代码执行后就会把计算结果放在相应的单元格中了。

rng.Offset(0, 1).Resize(UBound(arr), 3) = arr2

结语

学VBA编程就需要我们先理清楚实现业务场景的步骤,然后查阅相关VBA函数的功能,一步一步用代码实现,获取我们想要的数据,然后最后展示在单元格中。本文章需要配合视频教程和代码进行学习,效果更佳。视频课程可以点击我的头像,查看我的主页的视频课程,需要代码的同学可以私信我。希望本文对你有所帮助!

举报/反馈

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注