使用基于选定单元格的单元格中的值更改选定单元格的颜色

【问题标题】：Change colour of selected cell using values in cells based off the selected cell使用基于选定单元格的单元格中的值更改选定单元格的颜色
【发布时间】：2020-11-19 13:08:03
【问题描述】：

我有一个宏可以根据 RGB 值为单元格着色。
我有用于 RGB 值的单元格 A1、B1 和 C1。

Sub FillWithRBG()
    Range("D1").Interior.Color = RGB(Range("A1").Value, Range("B1").Value, Range("C1").Value)
End Sub

我可以选择工作表中的任何位置，运行宏，只有单元格 D1 会改变颜色。

我想选择单元格 D2，运行宏，单元格 D2 根据 A2、B2 和 C2 中的值更改颜色。

我想我需要为活动单元格设置一个引用，然后 1、2 和 3 将从所选单元格偏移。
一个额外的好处是宏只能在 D 列中运行以防止错误。

【问题讨论】：

您需要谷歌工作表更改/选择更改事件，然后使用偏移量使引用相对。

标签： excel vba rgb

【解决方案1】：

这将是一个简单的方法

代码中Me.指的是当前工作表
您必须将此代码放在工作表的模块中

VBA 中的列用数字表示（因此 A 列被称为第 1 列）

代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    
    
    ' Prevent change if changed values are no in these columns (1,2,3) numbers are equivalent to A, B, C
    If Target.Column > 3 Then Exit Sub
    
    ' Change color of D column (4 = D)
    Me.Cells(Target.Row, 4).Interior.Color = RGB(Me.Cells(Target.Row, 1).Value, Me.Cells(Target.Row, 2).Value, Me.Cells(Target.Row, 3).Value)
    
End Sub

如果您希望它仅在一次更改一个单元格时工作，请添加以下行：

  ' Prevent change when more than one cell is changed
  If Target.Cells.Count > 1 Then Exit Sub

【讨论】：