Question

请有人帮助我。我在VBA for Excel中有两个功能。

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

在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值指定的任何颜色。

尝试将您的功能更新为

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，而不是函数。

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

2 个答案: