玩转Excel就是这么简单——重复操作Excel文案工作，让我们用VBA工具为您"排忧解难"!

Excel入门教程 [七]

• VBA输入框（InputBox）

玩转Excel就是这么简单——InputBox函数提示用户输入值。当输入值后，如果用户单击“确定”按钮或按下键盘上的ENTER 键，将返回文本框中的文本;如果用户单击“取消” 按钮，则返回一个空字符串("")。注意： 在本教程中，我们也将基于MS office 2010来演示和讲解。

InputBox语法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

InputBox参数说明

• Prompt - 必需的参数。 在对话框中显示为消息的字符串。提示的最大长度大约为1024个字符。 如果消息扩展为多行，则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。
• title - 一个可选参数。显示在对话框的标题栏中的字符串表达式。如果标题留空，应用程序名称将被放置在标题栏中。
• default - 一个可选参数。用户希望显示的文本框中的默认文本。
• xpos - 一个可选参数。X轴的位置表示水平从屏幕左侧的提示距离。 如果留空，则输入框水平居中。
• ypos - 一个可选参数。Y轴的位置表示竖直方向从屏幕左侧的提示距离。如果留空，则输入框垂直居中。
• helpfile - 一个可选参数。一个字符串表达式，标识用于为对话框提供上下文相关帮助的帮助文件。
• context - 一个可选参数。一个数字表达式，用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文，则还必须提供helpfile。

实战演示

通过在两个输入框(一个用于长度，一个用于宽度)的帮助下，在运行时从用户获取值来计算矩形的面积。实现代码如下：

Function CalcArea()
   Dim Length As Double
   Dim Width As Double

   Length = InputBox("输入一个长度值： ", "输入长度")
   Width = InputBox("输入一个宽度值：", "输入宽度")
   findArea = Length * Width
   CalcArea = findArea
End Function

InputBox实战演示

Excel零基础入门教程预告：VBA变量

专业提供有偿地定制化Excel操作编写服务，嶶信:wolfxin2010

玩转Excel就是这么简单