VBA输入框（InputBox）(六)

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原文出自【易百教程】，商业转载请联系做者得到受权，非商业请保留原文连接：https://www.yiibai.com/vba/vba_input_box.html#article-start

实现过程 -

第1步 - 执行相同的操做，使用函数名称进行调用，而后按Enter键，以下图所示。

第2步 - 执行时(点击单元格，而后移出时即触发执行)，显示第一个输入框(长度)，在输入框中输入一个值。

弹出一个输入框，并输入长度值

第3步 - 输入第一个值后，显示第二个输入框(宽度)。

第4步 - 输入第二个数字后，单击肯定 按钮。该区域显示计算获得结果以下面的截图所示。