VBA怎么弹出窗口输入，弹出显示输入某某某，输入后在某某位置上，因为表格太大了

Question

VBA怎么弹出窗口输入，弹出显示输入某某某，输入后在某某位置上，因为表格太大了

Answer 1

以输入身份证号码为例，提示和输入内容以及标题，都可以根据自己的需要更改，代码如下：

Sub 弹出输入对话框()
  m = InputBox("请输入身份证号码：", "提示", "420102198001013413")
  [A1] = m
End Sub

 执行该代码将弹出一个对话框，如图：

你可对m中的值用代码进行判断，如果有错则再写1句代码提示“输入错误，请重新输入：”等，m中的值也可赋值到你任意需要的地方，或直接在当前宏代码中使用。