中的inputbox_常用VBA函数——InputBox函数

一、举例：

　　要求编写一段代码，运用InputBox函数，用户输入一定范围的数值并返回结果。

二、代码：

 SubSub 示例_1_17()

             Dim Msg$, bt$, Default$, MyValue,aa

             Msg = "输入一个10到25之间的数值："   

             bt = "InputBox 函数示例"

             Default = "10"    ' 设置缺省值。

 100：

MyValue =InputBox(Msg,bt, Default)

If MyValue< 10 Or MyValue > 25 Then

           aa = MsgBox("输入数值超出范围，请重新输入或者退出。", 1)

           If aa <> vbOK Then Exit Sub

           GoTo 100

Else

            MsgBox "你输入的是 " & MyValue

End If

 End Sub

三、代码详解

 1、Sub 示例_1_17()：宏程序的开始语句。宏名为示例_1_17。

 2、Dim Msg$, bt$, Default,MyValue,aa    ：变量Msg、Default和bt声明为字符串数据类型，其它的没有显式声明，都为可变型数据类型。

 3、Msg = "输入一个10到25之间的数值："    ：设置提示信息，把字符串赋给变量Msg。

 4、bt = "InputBox 函数示例"     ：设置标题，把字符串赋给变量bt。

 5、Default = "10"     ：设置缺省值，把字符串赋给变量Default。

 6、MyValue = InputBox(Msg,bt,Default)     ：通过InputBox函数显示信息、标题及缺省值，把函数返回值赋给变量MyValue。

 7、If MyValue < 10 Or MyValue >25 Then  ：如果InputBox函数返回的数值小于10或者大于25，那么执行下面的语句。

 8、aa = MsgBox("输入数值超出范围，请重新输入或者退出。", 1)  ：如果InputBox函数返回的数值超出了范围，显示一个消息框，消息框里面的第2个参数是1，表示消息框上有两个按钮：“确定”和“取消”按钮。并把消息框返回的结果赋给变量aa。

 9、If aa <> vbOK Then ExitSub  ：如果用户按了消息框上的“取消”按钮，就退出本程序。

 10、GoTo 100  ：如果用户按了消息框上的“确定”按钮，就转而从行号100开始执行代码。

 11、MsgBox "你输入的是 " & MyValue  ：如果用户输入了符合要求的数值，按了回车键或者“确定”按钮，消息框显示用户输入的值。

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帮助文件。