分享

Excel 关于用inputbox选择单元格区域的时候点击"取消"的奇怪问题

 书馆之书 2012-01-15
善用系统自带帮助,非常有用

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 此输入框使用的帮助文件名。如果存在 HelpFileHelpContextID 参数,对话框中将出现一个帮助按钮。
HelpContextID 可选 Variant HelpFile 中帮助主题的上下文 ID 号。
Type 可选 Variant 指定返回的数据类型。如果省略该参数,对话框将返回文本。

返回值
Variant
说明

下表列出了可以在 Type 参数中传递的值。可以为下列值之一或其中几个值的和。例如,对于一个可接受文本和数字的输入框,将 Type 设置为 1 + 2。
含义
0 公式
1 数字
2 文本(字符串)
4 逻辑值(TrueFalse
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 函数。

示例

本示例提示用户输入数字。
Visual Basic for Applications
myNum = Application.InputBox("Enter a number")

本示例提示用户在 Sheet1 中选取一个单元格。示例使用 Type 参数证实返回值是有效的单元格引用 (一个 Range 对象)。
Visual Basic for Applications
Worksheets("Sheet1").ActivateSet myCell = Application.InputBox( _    prompt:="Select a cell", Type:=8)

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多