excel中使用vba提示输入的身份证号码位数不符

1、首先我们打开一个工作样表作为例子。

3、新插入一个模块，并在模块中输入以下的代码。Sub 根据身份证号码确定性别() sid = InputBo旌忭檀挢x("请输入身份证号码：") i = Len(sid) If i <> 15 And i <> 18 Then '判断身份证号长度是否正确 MsgBox "身份证号码只能为15位或18位！" Exit Sub End IfEnd Sub

5、len函数是历遍所输入的数撕良滤儆值，并返回个数的函数，将其以变量i储存。接下来是条件判断，如果i不等于15并且不等于18的时候，弹出提示窗口“身份证号码只能为15位或18位“

7、先写到这里了，谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。