如何用vba 设置单元格颜色(变化的)?

Question

sheet1.cells.（什么属性）？
或者还有什么方法?

Answer 1

cells(x,y).Interior.ColorIndex = 3 'red本回答被提问者采纳

Answer 2

以下代码示例：
Sub main()

Range("A1").Interior.Color = vbRed'将A1单元格底色设置为红色
for i=5 to 10
Range("A"&i-4).Interior.ColorIndex = i'将A2-A6单元格底色以此设置为不同颜色
next i
End Sub