如何将不能计算的汉字和文本型数字标为红色字？

sblisb · 发表于 2020-2-26 17:24

本帖最后由 sblisb 于 2020-2-28 15:05 编辑

求教？
以下可以将汉字等标出，但文本型数字不能标红。如何改呢

Sub test()
With Worksheets("查找非纯数字的单元格")
For Each Rng In .UsedRange
If Not IsNumeric(Rng.Value) Then
Rng.Font.ColorIndex = 3
End If
Next
End With
End Sub

1.zip (7.25 KB, 下载次数: 75)

山菊花 · 发表于 2020-2-26 18:55

首先，设置单元格格式为文本后，应重复编辑单元格数据才有效。
其次，将IsNumeric()函数改为TypeName()，或者使用工作表函数IsNumber()：

Sub test()
With Worksheets("查找非纯数字的单元格")
      .UsedRange.Font.ColorIndex = 0
      For Each Rng In .UsedRange
         'If TypeName(Rng.Value) = "String" Then
         If Not WorksheetFunction.IsNumber(Rng.Value) Then
            Rng.Font.ColorIndex = 3
         End If
      Next
End With
End Sub

sblisb · 发表于 2020-2-27 09:42

本帖最后由 sblisb 于 2020-2-28 15:10 编辑

山菊花发表于 2020-2-26 18:55
首先，设置单元格格式为文本后，应重复编辑单元格数据才有效。
其次，将IsNumeric()函数改为TypeName()， ...

谢谢，没注意到设置单元格格式为文本后，应重复编辑单元格数据才有效。
只对当前已选中单元格代码如下
Sub test()
For Each c In Selection.Cells

         If Not WorksheetFunction.IsNumber(c.Value) Then '?????д???=ISNUMBER(A5)???ж??????
            c.Font.ColorIndex = 3
         End If

Next
End Sub
怎么提示“要求对象”？

		自动登录	找回密码
密码			免费注册

[已解决] 如何将不能计算的汉字和文本型数字标为红色字？

最新热点 /1