如何获得当前的Excel单元格

Question

我有一个VBA函数：

public function MyFunction(someParameters) as Double 

    ... do something ... 

    return aValue 

end function 

我有一个在我的函数是从一些细胞称为表：

A1: =MyFunction(...) 

A2: =MyFunction(...) 

A100: =MyFunction(..) 

我想返回价值（它的工作原理），也可以添加注释到单元格...

如果我使用ActiveCell然后我使用AddComment，它添加注释到最后一个单元格离开我的游标，而不是'活动单元格计算”。

怎么办？

谢谢。

Answer 1

你不能这样做使用ActiveCell。你的函数重新计算，每次它被称为ActiveCell是不同的（取决于选择）。对于通过UDF添加注释的逻辑似乎有点瑕疵，但您可以尝试这个

Public Function MyFunction() As Double 

    MyFunction = 3.141519 

    Dim cell As Range 
    Set cell = Range(Application.Caller.Address) 

    cell.AddComment (cell.Address) 

End Function 

Answer 2

您需要使用Application.Caller，不ActiveCell。

例如

Function Test() As String 
    Test = Application.Caller.Address 
End Function 

编号：http://msdn.microsoft.com/en-us/library/office/ff193687%28v=office.15%29.aspx