为Interior.Color赋值失败报#VALUE错误，Font.Color却正常的问题求助

问题本质 #

Excel的自定义工作表函数（UDF）有严格的执行限制：UDF只能返回值到公式所在的单元格，不允许修改其他单元格的格式、内容或属性。

你遇到的现象：

• 修改Interior.Color时触发限制，直接返回#VALUE!错误，目标单元格无变化。
• 修改Font.Color时看似成功，属于Excel的未定义行为（可理解为偶然的bug），不同版本或重启后大概率失效，并非合规操作。

可行解决方案 #

1. 使用工作表事件自动触发 #

通过监听单元格变化，自动修改目标单元格填充色。示例代码（粘贴到对应工作表的模块中）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设A1填目标单元格地址（如I8），B1填R值，C1填G值，D1填B值
    If Not Intersect(Target, Range("A1:D1")) Is Nothing Then
        On Error Resume Next
        Dim targetCell As Range
        Set targetCell = Me.Range(Me.Range("A1").Value)
        targetCell.Interior.Color = RGB(Me.Range("B1").Value, Me.Range("C1").Value, Me.Range("D1").Value)
        On Error GoTo 0
    End If
End Sub

修改A1-D1的任意值，目标单元格就会自动更新填充色。

2. 用VBA子过程（Sub）手动触发 #

写一个普通宏，通过按钮或快捷键执行，直接修改单元格颜色：

Sub SetCellFillColor()
    Dim targetRange As Range
    Dim r As Integer, g As Integer, b As Integer
    
    ' 可根据需求修改参数
    Set targetRange = Range("I8")
    r = 0
    g = 0
    b = 255
    
    targetRange.Interior.Color = RGB(r, g, b)
End Sub

添加一个表单按钮，关联这个宏，点击即可执行。

3. 利用Excel4宏函数（兼容性有限） #

可以在UDF中调用Excel4宏修改颜色，但需要启用宏，且仅在部分版本可用，示例：

Function colorCells(cellsToPaint As Range, rInt As Integer, gInt As Integer, bInt As Integer)
    ' 调用Excel4宏修改填充色
    ExecuteExcel4Macro "SET.NAME(""target"",!" & cellsToPaint.Address & ")"
    ExecuteExcel4Macro "FORMULA(""=RGB(" & rInt & "," & gInt & "," & bInt & ")"" ,target.INTERIOR.COLOR)"
    colorCells = ""
End Function

注意：此方法不推荐，兼容性差，且Excel后续版本可能移除支持。

内容的提问来源于stack exchange，提问作者Justin