VBA函数精选之十七（InputBox函数）

    第1.17例 InputBox函数
一、题目：
　　要求编写一段代码，运用InputBox函数，用户输入一定范围的数值并返回结果。
二、代码：
Sub 示例_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 > 25Then
             aa =MsgBox("输入数值超出范围，请重新输入或者退出。", 1)
             If aa<> vbOK Then Exit Sub
             GoTo100
　　　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 > 25Then  ：如果InputBox函数返回的数值小于10或者大于25，那么执行下面的语句。
8、aa = MsgBox("输入数值超出范围，请重新输入或者退出。",1)  ：如果InputBox函数返回的数值超出了范围，显示一个消息框，消息框里面的第2个参数是1，表示消息框上有两个按钮：“确定”和“取消”按钮。并把消息框返回的结果赋给变量aa。
9、If aa <> vbOK Then ExitSub  ：如果用户按了消息框上的“取消”按钮，就退出本程序。
10、GoTo100  ：如果用户按了消息框上的“确定”按钮，就转而从行号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帮助文件。