excel vba 如何判断单元格中是否含有小数点?

有没有人在啊,想请讲解下,excel vba 如何判断单元格中是否含有小数点??

If IsNumeric(Cells(i, col)) Then
If Len(Cells(i, col)) = 10 Or Len(Cells(i, col)) = 11 Or Len(Cells(i, col)) = 12 Then
Else
Cells(i, col).Interior.Color = 255
End If
Else
Cells(i, col).Interior.Color = 255
End If
用IsNumeric函数判断单元格内是否位数字。
单元格出现任何非数字的符号,都将被标红。
但是,如果数字内含有小数点,将不会被标示出来。
怎样标示带有小数点的数字?
最新回答
远山浅

2024-11-03 00:48:28

VBA中Like

运算符
用于判断给定的
字符串
是否与指定的模式相匹配,其语法为:

结果=<字符串> Like <模式>,用

通配符
星号“*”来代替任意值,

代码如下:

Sub tst()
If Range("a1") Like "*.*" Then
MsgBox ("A1含有小数点")
Else: MsgBox ("A1  不  含有小数点")
End If
End Sub
不觉素颜

2024-11-03 00:55:45

有小数的数字取整后将不等于自身。虽然我不熟悉语法但是你可以用这个方式判断

If INT(Cells(i, col)) <>(Cells(i, col))
Then
Cells(i, col).Interior.Color = 255
End If
山城夏秋

2024-11-03 01:45:02

cells(i,col)<>int(cells(i,col)) '说明含有小数点,前提是单元格内是数字