替代命令 (ActiveSheet)

Question

存在用户定义函数 (UDF)，位于工作簿的所有工作表上。

如何引用函数所在的工作表？

我正在使用ThisWorkbook.ActiveSheet，但结果在不断变化。

Function äëÿñèò(Diapozon As Range) As Long
      'äëÿ ñèòóàöèè
    Application.Volatile
    Dim n As Long
    Dim C As Range
    Dim m As Long

    m = -1
    n = 0
    For Each C In Diapozon.Rows

    If C.Value = 1 Then
     m = m + 1
    If ThisWorkbook.ActiveSheet.Cells(101, 42 + (m * 21)).Value = 1 Then
    n = n + 1
    End If
    End If
    Next C

    äëÿñèò = n
End Function

Answer 1

您可以使用 Application.Caller 来引用调用该函数的单元格，因此您可以使用 Application.Caller.Worksheet 来引用该单元格的工作表。