使用工作表函数编写自定义 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】: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
【讨论】:
这正是我想要的。谢谢以上是关于使用工作表函数编写自定义 Excel 函数的问题的主要内容,如果未能解决你的问题,请参考以下文章
编写自定义函数:建立双向链表,该链表有20个结点,20个结点所需的数值由随机函数产生。 编写自定义函数: