InputBox函数提示用户输入值。
当输入值后，如果用户单击确定 按钮或按下键盘上的ENTER 键，函数将返回文本框中的文本。
如果用户单击“取消” 按钮，该函数将返回一个空字符串("")。
语法
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
参数说明
- Prompt - 必需的参数。 在对话框中显示为消息的字符串。提示的最大长度大约为
1024个字符。 如果消息扩展为多行，则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。
- title - 一个可选参数。显示在对话框的标题栏中的字符串表达式。如果标题留空，应用程序名称将被放置在标题栏中。
- default - 一个可选参数。用户希望显示的文本框中的默认文本。
- xpos - 一个可选参数。
X轴的位置表示水平从屏幕左侧的提示距离。 如果留空，则输入框水平居中。
- ypos - 一个可选参数。
Y轴的位置表示竖直方向从屏幕左侧的提示距离。如果留空，则输入框垂直居中。
- helpfile - 一个可选参数。一个字符串表达式，标识用于为对话框提供上下文相关帮助的帮助文件。
- context - 一个可选参数。一个数字表达式，用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文，则还必须提供
helpfile。
我们用实例来进行一下演示
现有一个excel表，先把多个sheets表中的sheet6指定为当前活动工作表，再使用inputbox函数弹窗口让用户录入内容，并把录入的内容填写到A2单元格中。
Sub 对象练习()
'Debug.Print Worksheets.Count
'Debug.Print Workbooks.Count
'Debug.Print Workbooks(4).Worksheets.Count
'Debug.Print Sheets.Row
Sheet6.Activate
a = InputBox("输入的内容会显示到A2单元格")
Range("a2") = a
End Sub |
把用户录入的内容先赋值给A，最后使用a的值填写到A2单元格中。
|
