VBA问题： 我用录制宏的办法搞了一段设置单元格颜色的代码，改了一下，变成设置A1颜色的代码，

2010和2007已经不一样了.它已经多了一套设置底色的办法.
就是这些代码:
Range(A1).Interior.Parent = xlSolid
Range(A1).Interior.PatternColorIndex = xlAutomatic 返回或设置内部图案的颜色，表示为当前调色板中的颜色编号或下列 XlColorIndex 常量之一：xlColorIndexAutomatic 或 xlColorIndexNone。Long 类型，可读写。
Range(A1).Interior.ThemeColor = xlThemeColorAccent5 '返回或设置 Interior 对象的主题颜色图案。可读/写 Variant 类型
Range(A1).Interior.TintAndShade = 0.399975585192419 '返回或设置一个 Single，使颜色变深或变浅。
Range(A1).Interior.PatternTintAndShade = 0 '返回或设置 Interior 对象的淡色和底纹图案。可读/写 Variant 类型。

还有一种办法就是:
With Worksheets("Sheet1").Rectangles(1).Interior
.Pattern = xlGrid '返回或设置一个包含 xlPattern 常量的 Variant 值，它代表内部图案。xlgrid代表网格
.PatternColor = RGB(255,0,0) '以 RGB 值返回或设置内部图案的颜色。Variant 类型，可读写。
End With

[A1].Interior.colorIndex = 6 '这是调色板上的颜色序号
[A1].Interior.Color = RGB(120, 120, 255) '这是真正的颜色，16进制
MsgBox Hex([A1].Interior.Color) '查看颜色的16进制值，可以用这个作为对比，并进行判断