Cells(1, 1).Font.ColorIndex = 3 '字的顏色baidu號(hào)為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) '背景的顏色藍(lán)色

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

接下來(lái)我們用實(shí)際的代碼,來(lái)做個(gè)體驗(yàn)

假設(shè)有這樣一個(gè)表格,我們要做的就是把 >11 的表格設(shè)置為紅色

   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 色彩列表