1、InputBox 函数

在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。

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

Prompt：必需的。对话框中要显示的提示信息，最多 1024 个字符。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。

Title：可选。对话框标题栏中要显示的信息。如果省略title，则把应用程序名放入标题栏中。

Default：可选。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略default，则文本框为空。

Xpos：可选。指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。

Ypos：可选。指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

Helpfile：可选。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。

Context：可选。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。

说明

如果用户单击OK或按下ENTER ，则InputBox函数返回文本框中的内容。如果用户单击Cancel，则此函数返回一个长度为零的字符串 ("")。

注意如果还要指定第一个命名参数以外的参数，则必须在表达式中使用InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。

示例：

本示例说明使用InputBox函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量MyValue保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。

Sub InputBox示例 ()

        Dim Message, Title, Default, MyValue

        Message = "Enter a value between 1 and 3"    '设置提示信息。

        Title = "InputBox 示例"    '设置标题。

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

              '显示信息、标题及缺省值。

        MyValue = InputBox(Message, Title, Default) 

              '使用帮助文件及上下文。“帮助”按钮便会自动出现。

        MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

              '在100, 100的位置显示对话框。

        MyValue = InputBox(Message, Title, Default, 100, 100)

End Sub

运行结果如下：

不包含帮助 包含帮助

欢迎关注微信公众号：VBA入门与提高