版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/youngmiffy/article/details/53811413
Sub lsy()
Range("f9:f10").Font.ColorIndex = 2
Range("g9").Font.ColorIndex = 2
If Range("g10") < 0# Then
Range("g10").Font.ColorIndex = 3
Else
Range("g10").Font.ColorIndex = 2
End If
End Sub