excel - 如何编写使用写入单元作为引用的 UDF

Question

我想编写一个 UDF，它返回写入它的单元格的背景颜色的 RGB 值。如何在不指定单元格的情况下引用写入 UDF 的单元格？

我希望我的函数能够像 =COLUMN() 工作表函数一样工作。

提供 ActiveCell 不起作用...因为当工作表重新计算完成后，activecell 会出现其他情况。

Function BackgroundAsRGB(Optional rng As Range)
On Error GoTo Hell
    If rng Is Nothing Then
        Set rng = ActiveCell 'It isn't active cell...
    End If
    BackgroundAsRGB = ColorLongToRGB(rng.Resize(1, 1).Interior.Color)
Hell:
End Function

Answer 1

尝试:

    Function BackgroundAsRGB(Optional rng As Range)
Dim MyTarget As Range

If rng Is Nothing Then
    Set MyTarget = Application.Caller
Else
   Set MyTarget = rng
End If

BackgroundAsRGB = ColorLongToRGB(MyTarget.Resize(1, 1).Interior.Color)

End Function

Application.Caller 返回调用 UDF 的对象，因此它返回执行此 UDF 的范围。更多信息:

Application.Caller property (Excel)

另外，请检查:

Application.ThisCell property (Excel)