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

Posted

技术标签:

【中文标题】使用工作表函数编写自定义 Excel 函数的问题【英文标题】:Issues with writing custom Excel function using Worksheet functions 【发布时间】: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!。我的代码可能有什么问题?

【问题讨论】:

【参考方案1】:

AddressRowColumn 不是 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

【讨论】:

这正是我想要的。谢谢

以上是关于使用工作表函数编写自定义 Excel 函数的问题的主要内容,如果未能解决你的问题,请参考以下文章

Excel 自定义函数

用PowerBI自定义函数批量处理复杂表格

编写自定义函数:建立双向链表,该链表有20个结点,20个结点所需的数值由随机函数产生。 编写自定义函数:

Excel 开始支持使用 JavaScript 编写自定义函数

Excel 自定义函数错误更新

EXCEL宏如何让自定义函数返回错误代码?