[已解决]vba.isnumeric()

adan_bai

   Sub s2()
    Debug.Print VBA.IsNumeric(Range("a1"))
    Debug.Print Application.WorksheetFunction.IsNumber(Range("A1"))
   End Sub

a1是空的什么都没放，但是第一句的结果为true 这是为什么？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-7 09:55

但这里，如果你的A1里是字符串的时候，肯定就会FALSE了。如果用VAL来的话，还是会返回0.
有个VARTYPE函数也不错的，能判断数据的类型。

跳转到最佳答案楼层

hwc2ycy

F1，在立即窗口试试。

hwc2ycy

返回 Boolean 值，指出表达式的运算结果是否为数。

语法

IsNumeric(expression)

必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。

说明

如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。

adan_bai

hwc2ycy 发表于 2013-1-6 09:59
返回 Boolean 值，指出表达式的运算结果是否为数。

语法

但是在空值的情况下，为什么这两句的结果不一样呢？都是判断是否为数字类型。第一句为true；第二句为false
Debug.Print VBA.IsNumeric(Range("a1"))
Debug.Print Application.WorksheetFunction.IsNumber(Range("A1"))
请老师指点

hwc2ycy

adan_bai 发表于 2013-1-6 21:48
但是在空值的情况下，为什么这两句的结果不一样呢？都是判断是否为数字类型。第一句为true；第二句为fal ...

后面的是工作表函数。
假设A1是空白，你在B1里输入公式=A1，显示的是0吧。

adan_bai

hwc2ycy 发表于 2013-1-6 23:08
后面的是工作表函数。
假设A1是空白，你在B1里输入公式=A1，显示的是0吧。

按照您的说法，工作表函数application.的结果才应该是true啊 对吧？结果不是这样的啊

hwc2ycy

adan_bai 发表于 2013-1-7 09:29
按照您的说法，工作表函数application.的结果才应该是true啊 对吧？结果不是这样的啊

搞糊了，也搞错了。
直接引用空单元格的话，工作表函数ISNUMBER返回是FALSE，
如果间接引用空单元格的话，工作表函数ISNUMBER返回的是TRUE，就像我上面所说的。

在VBA里，你可以这样测
dim a
a=range("A1")
stop
运行后，你会发现a是empty

然后再用debug.print vba.isnumeric(a)会发现结果为TRUE
我想这里应该是内部在判断时做了转化，就像定义变量时定义了类型一样，初始化后为0。
用val(a)后，值也是0，所以再进行判断时，就返回TRUE。

hwc2ycy

但这里，如果你的A1里是字符串的时候，肯定就会FALSE了。如果用VAL来的话，还是会返回0.
有个VARTYPE函数也不错的，能判断数据的类型。

adan_bai

hwc2ycy 发表于 2013-1-7 09:55
但这里，如果你的A1里是字符串的时候，肯定就会FALSE了。如果用VAL来的话，还是会返回0.
有个VARTYPE函数也 ...

嗯 虽然我这个疑问还是没有解决，但是还是由衷感谢老师的细心解答