使用工作表函数编写自定义 Excel 函数的问题答案

【问题标题】：Issues with writing custom Excel function using Worksheet functions使用工作表函数编写自定义 Excel 函数的问题
【发布时间】：2014-03-26 06:45:22
【问题描述】：

我对 excel-vba 编程非常陌生，我正在学习如何使用工作表函数编写自定义 vba 函数。

如果我转到一个单元格并输入以下公式，我将得到单元格名称。

=ADDRESS(ROW(), COLUMN(), 4)

例如，如果我们在单元格“A6”中输入上述公式，单元格将返回值 = A6

现在我正在尝试编写一个 vba 函数来执行与以下完全相同的操作：

Function GetThisCellName() As String
    GetThisCellName= WorksheetFunction.Address(WorksheetFunction.Row(), WorksheetFunction.Column(), 4)       
End Function

但是，当我尝试在单元格中使用此功能时，如下所示：

=GetThisCellName()

单元格将返回#VALUE!。我的代码可能有什么问题？

【问题讨论】：

标签： excel vba

【解决方案1】：

Address、Row 和 Column 不是 WorksheetFunction object 的成员。您可以使用此语法来获取单元格的地址：

Function GetThisCellName() As String
    GetThisCellName = ActiveCell.Address(False, False, xlA1)
End Function

另见Range.Address property

【讨论】：

【解决方案2】：

如果你想返回单元格的地址，从哪个公式被调用，使用Application.ThisCell：

Function GetThisCellName() As String
    GetThisCellName = Application.ThisCell.Address(False, False)
End Function

【讨论】：

这正是我想要的。谢谢