以输入身份证号码为例，提示和输入内容以及标题，都可以根据自己的需要更改，代码如下：
Sub 弹出输入对话框()
m = InputBox("请输入身份证号码：", "提示", "420102198001013413")
[A1] = m
End Sub
执行该代码将弹出一个对话框，如图：
你可对m中的值用代码进行判断，如果有错则再写1句代码提示“输入错误，请重新输入：”等，m中的值也可赋值到你任意需要的地方，或直接在当前宏代码中使用。
以输入身份证号码为例，提示和输入内容以及标题，都可以根据自己的需要更改，代码如下：
Sub 弹出输入对话框()
m = InputBox("请输入身份证号码：", "提示", "420102198001013413")
[A1] = m
End Sub
执行该代码将弹出一个对话框，如图：
你可对m中的值用代码进行判断，如果有错则再写1句代码提示“输入错误，请重新输入：”等，m中的值也可赋值到你任意需要的地方，或直接在当前宏代码中使用。
