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()
********************************************

接下來我們用實際的代碼,來做個體驗

假設(shè)有這樣一個表格,我們要做的就是把 >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 色彩列表