更改呼叫单元内部颜色

Question

我正在尝试在 Excel 中创建一个非常简单的 VBA 函数，该函数计算特定值（基于另一个单元格内容）并设置调用单元格的值和内部颜色。我对值计算很好，但内部颜色让我陷入了循环。

我可以做以下设置文字和字体颜色：

Function Test()
    Application.Caller.Font.ColorIndex = 3
    Test = "Hello"
End Function

但我宁愿设置单元格内部颜色。我已经尝试了下面代码的几个不同的迭代，但这总是在调用单元格中给我一个值错误。

Function Test()
    Application.Caller.Interior.ColorIndex = 3
    Test = "Hello"
End Function

无论如何，我已经看到其他一些 SO 帖子讨论了类似的变化（例如 here），但他们的解决方案似乎对我不起作用。我宁愿不使用条件格式来执行此操作，因为我想要可以在不同 Excel 文件之间轻松传输的内容。

Answer 1

将这两个都放在常规模块中：

Sub ChangeIt(c1 As Range)
    c1.Interior.ColorIndex = 3
End Sub

Function Test()

    With Application.Caller        
        .Parent.Evaluate "Changeit(" & .Address(False, False) & ")"
    End With
    Test = "Hello" 

End Function

见：Using a UDF in Excel to update the worksheet