VBA：设置单元格是否填充单元格颜色

版权声明：本文为博主原创文章，未经博主允许不得转载。 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