在使用Excel 的过程中，如果需要用户输入简单的数据，作为“已知数”，那么可以使用inputbox 函数显示一个对话框，供用户在对话框中输入数据。
Inputbox 函数语法在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。
第一讲：简单介绍里面的参数，以及判断用户选择了那个按钮。
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
InputBox 函数的语法具有以下 几个命名参数：
Prompt必需的。
作为对话框消息出现的字符串表达式。Prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 Prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。
Title可选的。
显示对话框标题栏中的字符串表达式。如果省略 Title，则把应用程序名放入标题栏中。
Default可选的。
显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 Default，则文本框为空。其它参数省略，请参见Excel帮助文件。
知道了Inputbox函数说明后，则需要进一步得知，用户在选择不同按钮后会有什么反应。即要知道在单击[取消]或[关闭]或[确定]按钮的返回值。
例子#1： 加载简单判断的输入框
Sub Zhihuinputbox()Dim Inp As String'如果需要赋值时，请在函数内添加括号()Inp = InputBox("这是在知乎专栏的分享", "知乎", "VBA inputbox 用法") ' 如果按了【取消】或者【关闭】 则返回VbNullstring, 则strptr(Inp)=0If StrPtr(Inp) <> 0 Then If Len(Trim(Inp)) > 0 Then '取消输入框里的所有空格，并计算其字符长度[a1].Value = InpelseMsgBox "你没有输入任何内容！" '等于0，则便是输入为空值End IfElseMsgBox "你取消并放弃了输入！" '表示你按了【取消】/【关闭】这俩个间任意一个按钮End IfEnd sub
MsgBox "你取消并放弃了输入！" '表示你按了【取消】/【关闭】这俩个间任意一个按钮
