Excel中通过宏来设定单元格内特定条件字体颜色的方法

Question

如图所示，希望通过宏来设定 Below 和 Over 后面数字的颜色，如果是 Below 则后面的数字为红色，如果是 Over 则后面的数字是绿色，不知道是否可以通过宏的属性代码来设置，忘大侠不吝赐教，谢谢

Answer 1

Sub a()
For Each rng In UsedRange
    If InStr(1, LCase(rng), "over", 3) > 0 Then
       i = InStr(1, LCase(rng), "over", 3) + 4
       For j = i To Len(rng)
           If Mid(rng, j, 1) Like "[0-9]" Or Mid(rng, j, 1) = " " Then
              rng.Characters(Start:=j, Length:=1).Font.ColorIndex = 3
           Else
              Exit For
           End If
       Next j
    End If
    If InStr(1, LCase(rng), "belw", 3) > 0 Then
       i = InStr(1, LCase(rng), "belw", 3) + 4
       For j = i To Len(rng)
           If Mid(rng, j, 1) Like "[0-9]" Or Mid(rng, j, 1) = " " Then
              rng.Characters(Start:=j, Length:=1).Font.ColorIndex = 4
           Else
              Exit For
           End If
       Next j
    End If
Next
End Sub

可以的。稍晚给你写。

追问

麻烦再咨询一下，InStr(1, LCase(rng), "over", 3) 里面的3表示什么意思，我网上查下看到有-1,0,1,2这几种含义，但没看到3

追答

3改为vbtextcompare
我一直都用的英文，没用数字。可能写错了。

Answer 2

可以使用VBA来现实