vba：格式字体font，颜色，ClearFormats 方法，Interior 对象

 

'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

案例

 给你点颜色看看

	1
	2
	3
	4
	5
	6
	7
	8
	9
	10
	11
	12
	13
	14
	15
	16
	17
	18
	19
	20
	21
	22
	23
	24
	25
	26
	27
	28
	29
	30
	31
	32
	33
	34
	35
	36
	37
	38
	39
	40
	41
	42
	43
	44
	45
	46
	47
	48
	49
	50
	51
	52
	53
	54
	55
	56

'Interior 对象
'代表一个对象的内部

'针对interior对象，我们用得最多的是它的颜色，下面就来讨论一下。

Sub 索引颜色值()
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next i
End Sub

Sub 早期颜色值()
For i = 0 To 15
Cells(i + 1, 1).Interior.Color = QBColor(i)
Cells(i + 1, 2) = i
Next i
End Sub

Sub 三原色颜色值()
Cells(2, 4).Interior.Color = RGB([a1], [b1], [c1])
End Sub

Sub 直接颜色值() '此颜色有255^3种颜色
Cells(1, 1).Interior.Color = [b1]
End Sub