InputBox
函数提示用户输入值。当输入值后,如果用户单击确定 按钮或按下键盘上的ENTER 键,InputBox
函数将返回文本框中的文本。如果用户单击“取消” 按钮,该函数将返回一个空字符串(""
)。
语法
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
参数说明
- Prompt - 必需的参数。 在对话框中显示为消息的字符串。提示的最大长度大约为
1024
个字符。 如果消息扩展为多行,则可以使用每行之间的回车符(Chr(13)
)或换行符(Chr(10)
)来分隔行。 - title - 一个可选参数。显示在对话框的标题栏中的字符串表达式。如果标题留空,应用程序名称将被放置在标题栏中。
- default - 一个可选参数。用户希望显示的文本框中的默认文本。
- xpos - 一个可选参数。
X
轴的位置表示水平从屏幕左侧的提示距离。 如果留空,则输入框水平居中。 - ypos - 一个可选参数。
Y
轴的位置表示竖直方向从屏幕左侧的提示距离。如果留空,则输入框垂直居中。 - helpfile - 一个可选参数。一个字符串表达式,标识用于为对话框提供上下文相关帮助的帮助文件。
- context - 一个可选参数。一个数字表达式,用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文,则还必须提供
helpfile
。
示例
在这个示例中,通过在两个输入框(一个用于长度,一个用于宽度)的帮助下在运行时从用户获取值来计算矩形的面积。实现代码如下 -
Function CountArea()
Dim Length As Double
Dim Width As Double
Length = InputBox("输入一个长度值: ", "输入长度")
Width = InputBox("输入一个宽度值:", "输入宽度")
findArea = Length * Width
CountArea = findArea
End Function
实现过程 -
第1步 - 执行相同的操作,使用函数名称进行调用,然后按Enter
键,如下图所示。
第2步 - 执行时(点击单元格,然后移出时即触发执行),显示第一个输入框(长度),在输入框中输入一个值。
弹出一个输入框,并输入长度值 -
第3步 - 输入第一个值后,显示第二个输入框(宽度)。
第4步 - 输入第二个数字后,单击确定 按钮。该区域显示计算得到结果如下面的截图所示。