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

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、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。