示例

在实际工作中，经常需要从身份证号码中提取各种信息。如图所示，如何利用VBA提取A列身份证号码中的性别信息，并存储入B列中？

身份证号码	性别
110221290815224	女
11010119700626551X	男

实现代码

Option ExplicitSub 判断性别()Dim RowN As LongDim sIDNo As StringDim iGenderNo As IntegerFor RowN = 2 To Cells(Rows.Count, "A").End(xlUp).Row'获取身份证号码sIDNo = Cells(RowN, 1).Value'判断身份证位数Select Case Len(sIDNo)Case 18'提取第17位iGenderNo = Int(Mid(sIDNo, 17, 1))Case 15'提取最后一位iGenderNo = Int(Mid(sIDNo, 15, 1))Case ElseiGenderNo = -1End SelectSelect Case iGenderNo Mod 2'偶数为女Case 0Cells(RowN, 2).Value = "女"Case 1Cells(RowN, 2).Value = "男"Case -1Cells(RowN, 2).Value = "号码有误"End SelectNext
End Sub

Left、Right和Mid函数

当需要获取某个文本中的字符时，可以使用Left、Right或Mid函数。Left函数是从被提取的文本（字符串）最左边起提取指定长度的字符，Right函数则是从被提取的文本（字符串）最右边起提取指定长度的字符，而Mid函数是从被提取的文本（字符串）最左边起的指定位置提取指定长度的字符。这三个函数的语法为

Left(string,length)
Right(string,length)
Mid(string,start[,length])

其中，参数string为被提取的文本（字符串），length为所要提取的字符串长度，Mid函数中的start参数为提取字符串在被提取的字符串的起始位置。
本例中，对15位的身份证号码是提取最后一位数字作为性别信息字符，因而可以使用Right函数进行提取。18位身份证号码提取的是第1 7位数字作为信息字符，该字符既不以最左端为开始，也不以最右端为结束，则应使用Mid函数从第17位字符开始提取1位。

Len函数

由于15位身份证号码和18位身份证号码的提取规则不同，因而需要先将这两类号码进行区分。本例中使用了Len函数对字符串的长度进行了预先判断，然后分别进行不同的处理。Len函数可以返回某个文本字符串的长度，其语法为

Len(string)

其中，参数string为文本字符串。

Excel 2010 VBA 入门 049 根据身份证号码判断性别（left,right,mid,len）相关推荐

Excel 2010 VBA 入门 034 创建图片批注
目录批注(Comment)对象批注的添加与删除 FiIIFormat对象 OnError语句示例: 批注(Comment)对象 Comment对象是单元格的一个属性,表示单元格的批注.Comme ...
js根据身份证号码判断性别和年龄
/**这是一个超实用的用js根据身份证号码判断性别男女的特效代码,详细看下面的*/ /** 根据身份证号码判断性别 15位身份证号码:第7.8位为出生年份(两位数),第9.10位为出生月份,第11.1 ...
js根据身份证号码判断性别
1.html代码 <div class="box">请输入身份证号码:<input type="text" name="" ...
PHP实现输入身高和体重输出bmi值，PHP输入一个人的身份证号根据身份证号码判断性别，这两个程序
目录一.前言二.代码段 1.输入身高和体重输出bmi值的代码段 2.输入一个人的身份证号根据身份证号码判断性别的代码段三.实现结果(流程) 1.输入身高和体重输出bmi值的代码段 2.输入一个人 ...
Excel 2010 VBA 入门 053 DateDiff函数
目录示例实现代码 DateDiff函数 DateDiff函数中interval参数"w"和"WW"的区别 VBA的DateDiff函数和工作表函数DateD ...
Excel 2010 VBA 入门 001显示开发工具选项卡
目录 VBA简介宏简介显示"开发工具"选项卡 VBA简介 Visual Basic for Application (VBA)是Visual Basic的一种宏语言,是依附 ...
Excel 2010 VBA 入门 006 设置宏安全性
目录操作方法步骤1单击"开发工具"选项卡中的"宏安全性"按钮,如图所示. 步骤2在"信任中心"的"宏设置"选项中 ...
Excel 2010 SQL应用068 根据二代身份证号码判断性别
目录源数据表解决方案源数据表序号姓名身份证号 1 庞锡林 4525011954****0913 2 覃爽 4509211990****0010 3 邵运媚 4504211992****55 ...
根据身份证号码判断性别 java
摘自www.mylinux.com.cn 这是鄙人写的一个方法,用过身份证号来判别出用户的性别. @value为用户输入的身份证号. 我只知道身份证号码最末尾一个数字为奇数时,性别为男:为偶数时,性别 ...
Excel 2010 VBA 入门 139 创建工作簿级的自定义选项卡
目录题码 Excel工作簿的实质 XML简介 customUI.xml 常用的功能区控件及通用属性 tabs控件和tab控件 group控件命令控件内置控件的ID customUI.xml中控 ...

Excel 2010 VBA 入门 049 根据身份证号码判断性别（left,right,mid,len）

示例

实现代码

Left、Right和Mid函数

Len函数

Excel 2010 VBA 入门 049 根据身份证号码判断性别（left,right,mid,len）相关推荐

最新文章

热门文章