教你用VBA从身份证中提取性别.docVIP

教你用VBA从身份证中提取性别 　　在很多信息系统中都需要使用到身份证号码，身份证号码中包含有很多信息，如可从其中提取个人性别。 　　我国现行使用的身份证号码有两种编码规则，即15位居民身份证和18位居民身份证。 　　15位的身份证号的编码规则。 　　dddddd yymmdd xx p 　　18位的身份证号的编码规则。 　　dddddd yyyymmdd xx p y 　　其中： 　　— ? ?dddddd为地址码（省地县三级）18位中的和15位中的不完全相同。 　　— ? ?yyyymmdd yymmdd 为出生年月日。 　　— ? ?xx序号类编码。 　　— ? ?p性别。 　　— ? ?18位中末尾的y为校验码。 　　这里我们主要用到if语句，以前已经介绍过if语句了，这里不再鳌述。 　　新建Excel工作簿，在VBE中插入一个模块。在模块中编写以下代码： 　　Sub 根据身份证号码确定性别() 　　sid = InputBox(请输入身份证号码：) 　　i= Len(sid) 　　If i 15 And i 18 Then ? ? ? ? ? ? ?判断身份证号长度是否正确 　　MsgBox 身份证号码只能为15位或18位！ 　　Exit Sub 　　End If 　　If i = 15 Then ? ? ? ? ? ? ? ? ? ? ? ? ?长度为15位 　　s = Right(sid, 1) ? ? ? ? ? ? ? ? ? ?取最右侧的数字 　　Else ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?长度为18度 　　s = Mid(sid, 17, 1) ? ? ? ? ? ? ? ? ?取倒数第2位数 　　End If 　　If Int(s / 2) = s / 2 Then ? ? ? ? ? ? ?为偶数 　　sex = 女 　　Else 　　sex = 男 　　End If 　　MsgBox 性别： + sex 　　End Sub 　　切换到Excel环境，添加一个按钮“从身份证号码提取性别”，并指定执行上步创建的宏。 　　单击“从身份证号码提取性别”按钮出现下图 　　输入身份证号码后单击“确定”按钮，将在对话框中对话框中显示性别。