VBA函数精选之二十一（IsNumeric 函数）

蓝桥玄霜

第1.21例 IsNumeric函数
一、题目：
要求编写一段代码，运用IsNumeric 函数，返回一个变量是否为一个数值。
二、代码：
Sub 示例_1_21()
     Dim bl,bl1
     bl = 530.25   
     MsgBox "变量 bl  是否为数值： " &  IsNumeric(bl)   
     bl1 = "4500 Cm"   
     MsgBox "变量bl1  是否为数值： " &  IsNumeric(bl1)   
End Sub
三、代码详解
1、Sub 示例_1_21()：宏程序的开始语句。宏名为示例_1_21。
2、Dim bl , bl1    ：声明变量bl，bl1为可变型变量。
3、bl = 530.25 ：把数值530.25赋给变量bl。
4、MsgBox  "变量 bl  是否为数值： " &  IsNumeric(bl)   ：用消息框显示IsNumeric函数判断的变量bl是否为数值

，返回True。
5、bl1 = "4500 Cm" ：把字符串“4500 Cm”赋给变量bl1。
4、MsgBox  "变量 bl1  是否为数值： " &  IsNumeric(bl1)   ：用消息框显示IsNumeric函数判断的变量bl1是否为

数值，返回False。

IsNumeric 函数
返回 Boolean 值，返回变量是否为一个数值。

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

VBA函数精选之二十（IsArray 函数）：http://club.excelhome.net/thread-374860-1-1.html

dsp5000

多谢分享，不过要能放到1个帖子里就更好了。

nothing4050

比较适合初学者
希望作者最好再连接上其它所有的精选函数的链接
那就perfect了
呵呵额

蓝桥玄霜

这是献给VBA初学者的帖子，打算写满40个函数以后再汇成一帖。
希望一个一个推出，一下子推出多了对于学习不利哦。

龙城飞将III

赞蓝神，第21个函数学习完毕，mark一下！

每天都不累

给蓝桥老师点赞

twtthduu

虽然来的晚了一点，但是一定给老师点个赞。

和乐隐士

给蓝桥老师点赞

李水碾人

谢谢蓝桥老师

gwjkkkkk

谢谢分享。。。