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、 单击确定好出现了一个对话框，显示出“性别：男”。
