设值单元格字体和背景色的颜色-实例

Sub main()
   Dim i,n As Integer
   Dim d, e As String
   Dim c As String 
   For i = 1 To 10
     'get cell's value in 输入sheet. 
       d = Trim(Range("D" & i).Value)
       e = Trim(Range("E" & i).Value)
     'set cell'value
        For n = 5 To 20000 
         c = Trim(Sheets("更新sheet").Range("C" & n).Value)
        'd is 输入key's value
         If c <> "" And c = d Then 
           Sheets("更新sheet").Range("D" & n).Value = e 
           Sheets("更新sheet").Range("D" & n).Interior.ColorIndex = 3  'set color to red
           Sheets("更新sheet").Range("D" & n).Font.ColorIndex = 2     'set fond to white   
         End If 
       Next
   Next
End Sub

Sheets("更新sheet").Range("D" & n).Value

这里的"D" & n是一个动态的cell,即为更新sheet的单元格值.

cells.Interior.ColorIndex = 3   '设值cell的背景色；

cells(1,1).Interior.Color = RGB(0,255,0) '设置为绿色

cells.Font.ColorIndex = 2      '设值cell的字体颜色；

cells(1,1).Font.Color = RGB(0,0,255) '设置为绿色