如何在 VBA 中获取函数参数的源范围或单元格地址？

Question

对于我的一个项目，我需要获取用户选择作为我的函数参数来源的单元格的单元格地址：

Public Function ItemNumber(AnyValueFromAnyCell) As String
End Sub

如果用户在使用该函数时选择单元格 F6 作为“AnyValueFromAnyCell”的源，我还需要它的地址来操作该单元格。

这个想法是，如果有人使用我的新函数，该函数也会更改源单元格的填充颜色。

我希望这已经足够清楚了。

Answer 1

我会将 arg 的数据类型声明为 Range，然后您可以访问值和地址

Public Function ItemNumber(val As Range) As String
Dim addressOfCell
Dim valueOfCell
    addressOfCell = val.Address 'address of cell
    valueOfCell = val.Value   'value in the cell
End Function

Answer 2

稍微扩展Sorceri's answer above 以允许从单元格公式或作为代码中的助手使用该函数，并显示主要问题中要求的代码的其他部分：

Public Function ItemNumber(arg As Variant) As String
Dim addressOfCell, valueOfCell
Dim rnSource As Range, rnCaller As Range

 On Error Resume Next

 valueOfCell = arg
 set rnSource = IIf(TypeName(arg) = "Range", arg, Nothing)
 addressOfCell = vbNullString
 If Not (rnSource Is Nothing) Then  addressOfCell = rnSource.Address

 Set rnCaller = Application.Caller
 If Not (rnCaller Is Nothing) then
     ' queue task here to change the interior color of the cell calling the function to be executed, as per the following solution:
     ' Source: https://stackoverflow.com/questions/8520732/i-dont-want-my-excel-add-in-to-return-an-array-instead-i-need-a-udf-to-change/8711582#8711582
 End If
End Function

Answer 3

Dim sAdd as String, val as Variant

sAdd = Selection.Address
val = Selection.Value

Dim sReturn as String
sReturn = ItemNumber(sAdd, val)

然后在你的函数中添加一个参数以返回接受地址作为字符串。

Function ItemNumber(sAddress as String, Value) As String
End Function