excel vba 修改单元格的颜色

Cells(1, 1).Font.ColorIndex = 3 '字的颜色baidu号为zhi3 红色

Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色

Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色dao

Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色

Public Sub diandian10()
********************************************

接下来我们用实际的代码,来做个体验

假设有这样一个表格,我们要做的就是把 >11 的表格设置为红色

   For Each danyuan In Range(Range("A1"), Range("A100").End(xlUp))   
       If danyuan.Value > 11 Then
           danyuan.Interior.ColorIndex = 3
       End If
   Next
End Sub

Excel VBA Interior.ColorIndex 色彩列表

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