대체 명령 (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.Worksheet를 사용할 수있는 함수를 호출하는 셀 참조 Application.Caller을 사용할 수 있습니다.