[已解决]关于typename函数的问题

雄鹰2013

详见附件

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-12-21 07:57

1. Sub c()
   
2. Dim c As Range, b As String
   
3. For Each c In [A1:E6]
   
4. b = TypeName(c.Value)
   
5.     If b = "Double" Then
   
6.         c.Font.ColorIndex = 3
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

上面的代码只是把所有的数值(含小数)标注为红色；
如果仅仅将整数标注为红色，可以用下面的代码：

1. Sub JustInteger()
   
2. Dim c As Range, b As String
   
3. For Each c In [A1:E6]
   
4. b = TypeName(c.Value)
   
5.     If b = "Double" Then
   
6.         If Int(c.Value) = c.Value Then c.Font.ColorIndex = 3
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

第二段代码只能将数值型整数标注为红色，如果要把所有的整数(包含数值型整数和文本型整数)标注为红色，请用下面的代码：

1. Sub JustInteger02()
   
2. Dim c As Range
   
3. On Error GoTo 100
   
4. For Each c In [A1:E6]
   
5.     If Int(Val(c.Value)) = c.Value Then c.Font.ColorIndex = 3
   
6. 100
   
7. Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

qq1194660920

Sub c()
Dim c As Range, b As String
For Each c In [A1:E6]
    If IsNumeric(c.Value) Then
        If c.Value - c.Value = 0 Then
            c.Font.ColorIndex = 3
        End If
    End If
Next
End Sub
这样试试

dongqing1998

1. Sub c()
   
2. Dim c As Range, b As String
   
3. For Each c In [A1:E6]
   
4. b = TypeName(c.Value)
   
5.     If b = "Double" Then
   
6.         c.Font.ColorIndex = 3
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

上面的代码只是把所有的数值(含小数)标注为红色；
如果仅仅将整数标注为红色，可以用下面的代码：

1. Sub JustInteger()
   
2. Dim c As Range, b As String
   
3. For Each c In [A1:E6]
   
4. b = TypeName(c.Value)
   
5.     If b = "Double" Then
   
6.         If Int(c.Value) = c.Value Then c.Font.ColorIndex = 3
   
7.     End If
   
8. Next
   
9. End Sub

复制代码

第二段代码只能将数值型整数标注为红色，如果要把所有的整数(包含数值型整数和文本型整数)标注为红色，请用下面的代码：

1. Sub JustInteger02()
   
2. Dim c As Range
   
3. On Error GoTo 100
   
4. For Each c In [A1:E6]
   
5.     If Int(Val(c.Value)) = c.Value Then c.Font.ColorIndex = 3
   
6. 100
   
7. Next
   
8. End Sub

复制代码