Application.InputBox 方法 (Excel)

显示用于用户输入的对话框。 返回在对话框中输入的信息。

语法

expression.InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Prompt	必需	String	要在对话框中显示的消息。 此参数可以是字符串、数字、日期或布尔值（在消息显示前，Microsoft Excel 会自动将此值强制转换为 String ）。 最大长度为 255 个字符，否则不会出现提示，应用程序的方法将立即返回错误 2015。
Title	可选	Variant	输入框的标题。 如果省略此参数，则默认标题为“输入”。
Default	可选	Variant	指定在对话框最初显示时文本框中显示的值。 如果省略此参数，即表示将文本框留空。 此值可以是 Range 对象。
Left	可选	Variant	指定对话框相对于屏幕左上角的 X 坐标（以磅为单位）。
Top	可选	Variant	指定对话框相对于屏幕左上角的 Y 坐标（以磅为单位）。
HelpFile	可选	Variant	此输入框使用的帮助文件名。 如果有 HelpFile 和 HelpContextID 参数，对话框中会显示帮助按钮。
HelpContextID	可选	Variant	HelpFile 中帮助主题的上下文 ID 号。
Type	可选	Variant	指定返回的数据类型。 如果省略此参数，则对话框返回文本。

返回值

Variant

备注

下表列出了可以在 Type 参数中传递的值。 可以是一个值，也可以将多个值相加。 例如，对于可接受文本和数字的输入框，将 Type 设置为 1 + 2。

值	说明
0	公式
1	数字
2	文本（字符串）
4	逻辑值（True 或 False）
8	Range 对象形式的单元格引用
16	错误值，如 #N/A
64	数值数组

InputBox 可用于显示简单对话框，方便用户输入要在宏中使用的信息。 对话框中有“确认”按钮和“取消”按钮。 如果选择“确认”按钮，InputBox 返回在对话框中输入的值。 如果选择“取消”按钮，InputBox 返回 False。

如果 Type 为 0，InputBox 返回文本格式的公式（例如，=2*PI()/360）。 只要公式中有引用，就会以 A1 样式引用的形式返回。 （ConvertFormula 可用于转换引用样式。）

如果 Type 为 8，InputBox 返回 Range 对象。 必须使用 Set 语句，将结果分配给 Range 对象，如下面的示例所示。

Set myRange = Application.InputBox(prompt := "Sample", type := 8)

如果不使用 Set 语句，此变量就会被设置为区域中的值，而不是 Range 对象本身。

如果使用 InputBox 方法提示用户输入公式，必须使用 FormulaLocal 属性，将公式分配给 Range 对象。 输入公式使用用户语言。

InputBox 方法与 InputBox 函数的区别在于，前者可以对用户输入进行选择性验证，并能与 Excel 对象、错误值和公式结合使用。 请注意，Application.InputBox 调用的是 InputBox 方法；不带对象限定符的 InputBox 调用的是 InputBox 函数。

示例

此示例提示用户输入数字。

myNum = Application.InputBox("Enter a number")

此示例提示用户在 Sheet1 中选择单元格。 此示例使用 Type 参数，以确保返回值是有效的单元格引用（Range 对象）。

Worksheets("Sheet1").Activate 
Set myCell = Application.InputBox( _ 
    prompt:="Select a cell", Type:=8)

此示例使用 InputBox，允许用户选择要传递给用户定义的函数“MyFunction”的区域，这将乘以区域中的三个值并返回结果。

Sub Cbm_Value_Select()
   'Set up the variables.
   Dim rng As Range
   
   'Use the InputBox dialog to set the range for MyFunction, with some simple error handling.
   Set rng = Application.InputBox("Range:", Type:=8)
   If rng.Cells.Count <> 3 Then
     MsgBox "Length, width and height are needed -" & _
         vbLf & "please select three cells!"
      Exit Sub
   End If
   
   'Call MyFunction by value using the active cell.
   ActiveCell.Value = MyFunction(rng)
End Sub

Function MyFunction(rng As Range) As Double
   MyFunction = rng(1) * rng(2) * rng(3)
End Function

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。