1、 新建一张工作表，单击工作边菜单栏“开发工具”——VisualBasic，打开VBA编辑器，我们将在一下操作中，通过在代码框中输入代码来实现这个功能。
2、 现在我们双击VBA编辑器中的“Sheet1”，打开代码编辑框，如图所示。
3、 在代码编辑框中输入：Sub 身份证号码导出性别() sid = InputBox("请输入身份证号码：") '定义输入框，在其中脶巴躔炒输入身份证号 i = Len(sid) '用Len函数确定身份证号的位数 If i <> 15 And i <> 18 Then '判断身份证号长度是否正确，如果身份证号位数不等于15和18 MsgBox "错误身份证号！！！" '提示错误身份证号码 Exit Sub '结束查询 End If '结束如果 If i = 15 Then '如果身份证位数为15位 s = Right(sid, 1) '取最右侧的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 '结束循环
4、 现在我们在VBA编辑器中选择菜单栏中的“运行”——运行子过程\用户窗体，我们来对刚才辛辛苦苦编辑的代码进行调试。
5、 调试后出现一个对话框，“请输入身份证号码：”现在输入身份证号码：620622199811211117，单击确定。
6、 单击确定好出现了一个对话框，显示出“性别：男”。
