VBA学习笔记之单元格式之字体

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

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

'常见font对象的属性

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

重点来了：

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

效果图：大于条件分数的设置为别的格式

 

转载于:https://www.cnblogs.com/gilgamesh-hjb/p/7464023.html