关于INPUTBOX点击取消的问题！

xuchunyang

不好意思。后来才看见8楼的答案！
经测试，8楼的程序在点击取消后，仍然出现"只能在1到12之间"

谢谢！

ctp_119

zhaogang1960 发表于 2012-5-26 18:04
5楼函数可行，函数只能返回字符串，取消返回空字符串
经测试Application.InputBox 方法(Type:=1)取消不会 ...

哦，谢谢赵老师指正，如果这样，以此类推，inputbox方法只要设置type类型，返回的就是那种类型。。。如果设置了range类型，应该返回的是nothing。题外话：range型为nothing时，不能=号表示（set rng=nothing），而要用set rng is nothing。而其他对象则可以，如：set cnn=nothing（cnn为打开数据库连接对象），为什么会这样？难道是range对象的特殊性？请赵老师解惑！！！

wangxf9209

测试了一下，添加两句，
Months = Months & ""
If Months = "False" Then Exit Sub
即如果点的是取消， Months 返回"FALSE",输入0则返回"0"。
疑惑的是，文本不是应该大于任何数值吗？为什么"0"（应该是文本型）可以判断为小于1（数值型），"1"--"12"会判断为不大于12呢？

wpxxsyzx

不太明白，可以set rng=nothing啊。

ctp_119

wpxxsyzx 发表于 2012-5-27 10:07
不太明白，可以set rng=nothing啊。

如果你用range的FIND方法时，来判断是否找到时，你用rng=nothing试试，我都是用rng is nothing来判断的。

zhaogang1960

ctp_119 发表于 2012-5-27 10:15
如果你用range的FIND方法时，来判断是否找到时，你用rng=nothing试试，我都是用rng is nothing来判断的。

赋值时使用Set语句，判断时使用Is 运算符
请看下面例子：
Sub Macro1()
    Dim rng As Range
    On Error Resume Next '防止用户选择取消出错
    Set rng = Application.InputBox("请选择源区域", "请选择", , , , , , 8)
    If rng Is Nothing Then Exit Sub
    MsgBox "你选择的区域是：" & rng.Address
    Set rng = Nothing '赋值
    If Not rng Is Nothing Then MsgBox "你选择的区域是：" & rng.Address '判断
End Sub

ctp_119

zhaogang1960 发表于 2012-5-27 10:45
赋值时使用Set语句，判断时使用Is 运算符
请看下面例子：
Sub Macro1()

嗯，经过赵老师的指点，我豁然开朗！！！谢谢！！！

wpxxsyzx

ctp_119 发表于 2012-5-27 10:15
如果你用range的FIND方法时，来判断是否找到时，你用rng=nothing试试，我都是用rng is nothing来判断的。

用等号判断，等号两边的要是同样数据类型，rng和nothing就不是一路人，肯定报错，同样的，if a=null then
if a=empty then 都会报错

ctp_119

嗯，，，谢谢！！！

香川群子

呵呵，这个讨论有意义。