excel - 如何在Excel VBA中引用使用函数的工作簿？

Question

我创建了一个名为 SheetAtIndex 的用户定义函数，它返回工作簿中指定索引处的工作表名称。

首先我使用ActiveWorkbook.Sheets(Index).Name来获取工作表的名称。每当我切换到另一个打开的工作簿时，结果都会变得困惑。 这并不奇怪。

ThisWorkbook.Sheets(Index).Name 工作了一段时间，直到我意识到我必须在每个需要 UDF 的工作簿中复制代码。此外，每个需要该功能的文件都必须保存为启用宏的工作簿

最终决定:将该函数放入我个人的宏书中。

问题:如何引用调用函数的工作簿/工作表？

Answer 1

UDF 可以获取对使用 Application.ThisCell 调用它的单元格的引用

获得对调用单元格的引用后，您可以从那里获取工作表 (.WorkSheet) 和工作簿 (.WorkSheet.Parent)

Function SheetAtIndex(Index As Variant) As String
    SheetAtIndex = Application.ThisCell.Worksheet.Parent.Worksheets(Index).Name
End Function

或者，获取对工作表的引用

Function SheetAtIndex(Index As Variant) As Worksheet
    Set SheetAtIndex = Application.ThisCell.Worksheet.Parent.Worksheets(Index)
End Function