Question

vba怎样用IF语句判断单元格内数字是否为五位，怎样判断单元格内是数字型？

Answer 1

If int(range("A1").Value)=range("A1").Value AND range("A1").Value>=10000 Then
前一个条件判断是否整数，后一个判断是否大于10000，也就是是否五位数。

追问

然后怎样判断是数字型的呢，还有，怎样判断是否是文本型的

追答

你所说的数字型、文本型，是指本身单元格设置的格式属性呢，还是指数据的属性呢？如果是后者，那要对文本型作一个定义，因为所有的数字型也可以看作文本型。

追问

是数据的属性，有文字，有数字，还有日期，分别怎样判断

追答

这样的话，恐怕就要用正则表达式了。

Answer 2

If IsNumeric([a1]) Then
If Len([a1]) = 5 Then
MsgBox "5位数字"
End If
End If