<求助>单元格格式与数据类型的疑问

王小博vba

1. Sub or运算()
   
2. If Not VBA.IsNumeric([b3]) Then
   
3. MsgBox "B3不是数字"
   
4. Else
   
5. MsgBox "B3为数字或者为空"
   
6. End If
   
7. End Sub

复制代码

我将B3的单元格格式设置为文本，在B2的前面加'号，但无论是B2还是B3，IsNumeric的返回结果都是false。
改变单元格的格式是否就是改变数据类型呢？



该贴已经同步到 王小博vba的微博

ggsmart

关于IsNumeric函数，帮助里是这样介绍的：

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

语法
IsNumeric(expression)

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

说明

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

如果 expression 是日期表达式，则 IsNumeric 返回 False。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

注意我标为蓝色的字：数   数字

不是数值。

也就是说，这个函数不能判断单元格中的数据类型。

ggsmart

可以试试TypeName函数

王小博vba

谢谢版主的热心帮助。我用TypeName，知道了我传给IsNumeric 是一个对象，Range，所以表达式既不是数也不是数字。所以总是为false