vba - 替代命令 (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 来引用该单元格的工作表。