视频学习第8集中遇到的问题

cehuiyangjuntao

视频中的代码如下

'Goto语句,跳转到指定的地方
Sub t1()
  Dim x As Integer
  Dim sr
100:
  sr = Application.InputBox("请输入数字", "输入提示")
  If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100
End Sub


大家注意到了变量sr没有类型，这样运行后，当选择“取消”时，inputbox返回给sr的是false这样一个字符串，这个程序就能按照预想的思路运行了。
我想说的是如果给变量sr定义类型，我定义的是integer类型，
如果不输入数据，点“确定”后就会报错，不输入数据，点“取消”，sr的值为0，但是len（sr）的长度确实2，求解释！！

hwc2ycy

你定义ST为INTEGER的时候就要个漏洞了，如果你输入的0值就没法处理。

因为取消后返回的值也是0.

另外，可以指定INPUTBOX的最后一个参数为指定的类型的。

hwc2ycy

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 对象，如下例所示。

Visual Basic for Applications
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").Activate
Set myCell = Application.InputBox( _
    prompt:="Select a cell", Type:=8)

hwc2ycy

1. Sub t1()
   
2.   Dim x As Integer
   
3.   Dim sr As Integer
   
4. 100:
   
5.   sr = Application.InputBox("请输入数字", "输入提示", Type:=1)
   
6.   If sr = 0 Then GoTo 100
   
7.   MsgBox sr
   
8. End Sub

复制代码

这样后，0值就没法输入。