[求助]Application.InputBox问题

andysky

Sub 任意()
   Dim indexx
   indexx = Application.InputBox("请输入欲加着重号之单元格区域,也可以鼠标选择", "定位", "a1", Type:=8)
   MsgBox "你选择了:" & indexx
End Sub
返回A1的值,假设只想要返回字符"A1"该如何?

找到办法了.

[此贴子已经被作者于2007-6-1 23:08:17编辑过]

northwolves

Sub 任意()
   Dim indexx
   indexx = Application.InputBox("请输入欲加着重号之单元格区域,也可以鼠标选择", "定位", "a1", Type:=2)
   MsgBox "你选择了:" & indexx
End Sub

northwolves

Excel 开发人员参考

Application.InputBox 方法 全部显示 全部隐藏

显示一个接收用户输入的对话框。返回此对话框中输入的信息。

语法

表达式.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

表达式   一个代表 Application 对象的变量。

参数

名称	必选/可选	数据类型	描述
Prompt	必选	String	要在对话框中显示的消息。可为字符串、数字、日期、或布尔值（在显示之前，Microsoft Excel 自动将其值强制转换为 String）。
Title	可选	Variant	输入框的标题。如果省略该参数，默认标题将为“Input”。
Default	可选	Variant	指定一个初始值，该值在对话框最初显示时出现在文本框中。如果省略该参数，文本框将为空。该值可以是 Range 对象。
Left	可选	Variant	指定对话框相对于屏幕左上角的 X 坐标（以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位）。
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 函数的区别在于：它可以对用户的输入进行选择性验证，也可用于 Microsoft Excel 对象、误差值、和公式的输入。注意，Application.InputBox 调用的是 InputBox 方法，不带对象识别符的 InputBox 调用的是 InputBox 函数。

northwolves

Excel 开发人员参考

Application.InputBox 方法 全部显示 全部隐藏

显示一个接收用户输入的对话框。返回此对话框中输入的信息。

语法

表达式.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)

表达式   一个代表 Application 对象的变量。

参数

名称	必选/可选	数据类型	描述
Prompt	必选	String	要在对话框中显示的消息。可为字符串、数字、日期、或布尔值（在显示之前，Microsoft Excel 自动将其值强制转换为 String）。
Title	可选	Variant	输入框的标题。如果省略该参数，默认标题将为“Input”。
Default	可选	Variant	指定一个初始值，该值在对话框最初显示时出现在文本框中。如果省略该参数，文本框将为空。该值可以是 Range 对象。
Left	可选	Variant	指定对话框相对于屏幕左上角的 X 坐标（以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位）。
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 函数的区别在于：它可以对用户的输入进行选择性验证，也可用于 Microsoft Excel 对象、误差值、和公式的输入。注意，Application.InputBox 调用的是 InputBox 方法，不带对象识别符的 InputBox 调用的是 InputBox 函数。

andysky

QUOTE:

以下是引用northwolves在2007-6-2 10:14:45的发言：
Sub 任意()
   Dim indexx
   indexx = Application.InputBox("请输入欲加着重号之单元格区域,也可以鼠标选择", "定位", "a1", Type:=2)
   MsgBox "你选择了:" & indexx
End Sub

显然不行.

返回的是单元格中的值,而非地址.     要A2,而不是A2中的文本"乙".

andysky

Sub 任意()
   Dim indexx As Range
   Set indexx = Application.InputBox("请输入欲加着重号之单元格区域,也可以鼠标选择", "定位", "a1", Type:=8)
   MsgBox "你选择了:" & indexx.Address
End Sub
这样就行了.

stx100

这样？

Sub 任意()
   Dim rg As Range
   Set rg = Application.InputBox("请输入欲加着重号之单元格区域,也可以鼠标选择", "定位", "a1", Type:=8)
   MsgBox "你选择了:" & rg.Address(0, 0)
End Sub

stx100

晚了一步！

hhzjxss

看了几天，就找到了这个答案，谢谢。

InputBox 方法与 InputBox 函数的区别在于：它可以对用户的输入进行选择性验证，也可用于 Microsoft Excel 对象、误差值、和公式的输入。注意，Application.InputBox 调用的是 InputBox 方法，不带对象识别符的 InputBox 调用的是 InputBox 函数。

minjiwei

谢谢了，很实用