如何判断单元格中的数字是字符型还是数值型

向前650809

各位网友好，在VBA中，如何判断一单元格的数字是数值型的还是字符型，请给写一下代码，谢谢

小我

自己去查资料了

向前650809

我要能查到，还上网问吗

无聊的疯子

    If IsNumeric(Sheet1.Range("A1")) Then
        MsgBox "数字"
    Else
        MsgBox "非数字"
    End If

yuhe0008

无聊的疯子 发表于 2011-4-24 11:56
If IsNumeric(Sheet1.Range("A1")) Then
        MsgBox "数字"
    Else

如果A1的内容是 ="1" ，ISNUMBER函数的判断结果是错误的。

建议用VarType来进行判断。

无聊的疯子

回复 yuhe0008 的帖子

第一次看到这个,值得学习!!谢谢了

xdwy81129

回复 yuhe0008 的帖子

学习了，查得帮助是：
VarType 函数

返回一个 Integer，指出变量的子类型。

语法
VarType(varname)

必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。

返回值

常数		值		描述
vbEmpty	0		Empty（未初始化）
vbNull	1		Null（无有效数据）
vbInteger	2		整数
vbLong	3		长整数
vbSingle	4		单精度浮点数
vbDouble	5		双精度浮点数
vbCurrency	6		货币值
vbDate	7		日期
vbString	8		字符串
vbObject	9		对象
vbError	10		错误值
vbBoolean	11		Boolean 值
vbVariant	12		Variant（只与变体中的数组一起使用）
vbDataObject	13		数据访问对象
vbDecimal	14		十进制值
vbByte	17		位值
vbUserDefinedType	36		包含用户定义类型的变量
vbArray	8192		数组

即 8就是字符串

个蛋猪

是啊  好像excel中的函数中也是的  不是数字型的 还要加上--跟* 不懂

405185923

无聊的疯子 发表于 2011-4-24 11:56
If IsNumeric(Sheet1.Range("A1")) Then
        MsgBox "数字"
    Else

学习了