1、首先我们打开一个工作样表作为例子。
2、打开vba编辑窗口，按下alt+f11快捷组合键，或者是在开发者工具栏中点击vb按钮。
3、新插入一个模块，并在模块中输入以下的代码。
Sub 根据身份证号码确定性别()
sid = InputBox("请输入身份证号码：")
i = Len(sid)
If i <> 15 And i <> 18 Then '判断身份证号长度是否正确
MsgBox "身份证号码只能为15位或18位！"
Exit Sub
End If
End Sub
4、这里我们定义了一个sid变量来储存inputbox中输入的数据。inputbox的参数请输入身份证号码来作为提示内容。box对话框取默认值。
5、len函数是历遍所输入的数值，并返回个数的函数，将其以变量i储存。接下来是条件判断，如果i不等于15并且不等于18的时候，弹出提示窗口“身份证号码只能为15位或18位“
6、如果不满足，则终止该模块的运行。代码中的中文前有一个'注释号，后面的内容为注释，不属于代码范畴。如果没有注释号，则该段代码会报错。
7、先写到这里了，谢谢大家的观看。
祝大家生活愉快。
小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。
看不清楚图片的可以点击放大再看哦。
