Excel中通过宏来设定单元格内特定条件字体颜色的方法
如图所示,希望通过宏来设定Below和Over后面数字的颜色,如果是Below则后面的数字为红色,如果是Over则后面的数字是绿色,不知道是否可以通过宏的属性代码来设置,...
如图所示,希望通过宏来设定 Below 和 Over 后面数字的颜色,如果是 Below 则后面的数字为红色,如果是 Over 则后面的数字是绿色,不知道是否可以通过宏的属性代码来设置,忘大侠不吝赐教,谢谢
展开
2个回答
展开全部
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
我一直都用的英文,没用数字。可能写错了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询