条件格式VBA

nnsea

'Font 对象
'包含对象的字体属性（字体名称、字号、颜色等等）。

'Range.ClearFormats 方法
'清除对象的格式设置

'常见font对象的属性
Sub font对象属性()
With [a2:a6].Font
    .Name = "微软雅黑" '字体
    .Size = 8 '字号
    .Bold = True '加粗
    .Color = RGB(255, 0, 255) '颜色
End With
End Sub

Sub 大于90分的颜色设置为红色()
Set i = Cells(Rows.Count, 3).End(xlUp)
Range([b2], i).ClearFormats
For Each Rng In Range([b2], i)
    If Rng.Value >= [f1] Then
    With Rng.Font
        .Name = "华文琥珀"
        .Size = 20
        .Bold = True
        .Color = RGB(255, 0, 0)
    End With
    End If
Next Rng
End Sub