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
VBA:设置单元格是否填充单元格颜色
最新推荐文章于 2025-05-17 17:07:22 发布