vb视频教程(visualwebclient教学)

在视频教程中我为大家展示了怎么使用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

结语

本文TAG：vb视频教程