VBA - InputBox

VBA InputBox - 从简单和简单的步骤学习VBA，从基本到高级概念，包括概述，宏，术语，变量，常量，运算符，决策，循环，错误处理，注释，字符串，日期，事件，数组，函数，子，输入框，消息框，范围对象，应用程序对象，工作表对象，工作簿对象，ActiveX控件，文本文件，图表和用户表单，日期和时间，子过程，Excel对象，编程图表。

InputBox功能提示用户输入值.输入值后，如果用户单击确定按钮或按键盘上的ENTER，则InputBox函数将返回文本框中的文本.如果用户单击取消按钮，该函数将返回一个空字符串("").

语法

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

参数描述

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

示例

让我们计算一下矩形区域，通过两个输入框(一个用于长度，一个用于宽度)从运行时获取用户的值.

Function findArea()    Dim Length As Double    Dim Width As Double       Length = InputBox("Enter Length ", "Enter a Number")    Width = InputBox("Enter Width", "Enter a Number")    findArea = Length * Width End Function

输出

第1步 : 要执行相同的操作，请使用函数名称调用并按Enter键，如以下屏幕截图所示.

输入框演示

第2步 : 执行时，显示第一个输入框(长度).在输入框中输入一个值.

输入框演示

第3步 : 输入第一个值后，将显示第二个输入框(宽度).

输入框演示

第4步 : 输入第二个号码后，单击"确定"按钮.该区域显示如下面的屏幕截图所示.

输入框演示