Question

我是excel-vba编程的新手，我正在学习如何使用工作表函数编写自定义vba函数。

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

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

例如，如果我们在单元格＆＃34; A6＆＃34;中输入上述公式，则单元格将返回值= A6

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

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

但是，当我尝试在单元格内使用此函数时，如下所示：

=GetThisCellName()

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

Answer 1

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

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

另见Range.Address property

Answer 2

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

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

使用Worksheet函数编写自定义Excel函数的问题

2 个答案: