excel - 根据其他单元格中存储的 RGB 值动态更改单元格的背景颜色

Question

我正在尝试在 Excel 中编写一个函数，该函数将根据其他三个单元格中存储的值设置事件单元格的背景颜色(这三个单元格中的每一个都存储一个从 0 到 255 的数值，具体取决于颜色 R、G 或 B)。

因此，A1 单元格为 150，B1 单元格为 220，C1 单元格为 90(即 RGB(150, 220, 90))。我需要 D1 单元格的颜色是之前声明的 RGB(某种绿色)，而且，如果我将函数放在 D2 中，它将选择存储在 A2、B2 和 C2 中的 RGB，依此类推...

这能实现吗？

Answer 1

UDF版本:

Function myRGB(r, g, b)

    Dim clr As Long, src As Range, sht As String, f, v

    If IsEmpty(r) Or IsEmpty(g) Or IsEmpty(b) Then
        clr = vbWhite
    Else
        clr = RGB(r, g, b)
    End If

    Set src = Application.ThisCell
    sht = src.Parent.Name

    f = "Changeit(""" & sht & """,""" & _
                  src.Address(False, False) & """," & clr & ")"
    src.Parent.Evaluate f
    myRGB = ""
End Function

Sub ChangeIt(sht, c, clr As Long)
    ThisWorkbook.Sheets(sht).Range(c).Interior.Color = clr
End Sub

用法(在 D1 中输入):

=myRGB(A1,B1,C1)