更改ActiveCell的字体颜色和背景颜色

请有人可以帮助我。 我有两个函数在Excel中的VBA。

一个是改变活动单元格的字体颜色，它完美的作品。 二是改变活动单元格的背景色，拒绝工作。

在stackoverflow还有另外一个类似的查询，我正在使用该方法，但这根本不会工作。 我究竟做错了什么？ 我想从Excel中引用3个具有数字值的单元格来查看颜色将在飞行中。

更改ActiveCell字体颜色 （工作）

Public Function FontColour(R, G, B) ActiveCell.Font.Color = RGB(R, G, B) End Function 

更改ActiveCell颜色 （不工作）

 Public Function CellColour(R, G, B) ActiveCell.Interior.ColorIndex = RGB(R, G, B) End Function 

Answer 1

我觉得你很困惑ColorIndex和Color？

ColorIndex可以与值1-56一起使用，并具有一组预定的颜色，其中Color允许您使用RGB值指定的任何颜色。

尝试并更新你的function

 Public Function CellColour(R, G, B) ActiveCell.Interior.Color = RGB(R, G, B) End Function 

Answer 2

删除“索引”一词，如下所示：

 ActiveCell.Interior.Color = RGB(R, G, B) 

另外，你的例程应该是Subs，而不是Functions。