Question

请查看我的以下VBA代码。

Private Function NBFCYield(ByRef NOD As Variant, ByRef Total_Interest As Variant, ByRef Average_Loan As Variant)

    Yield = Total_Interest * 365
    Yield = Yield / NOD
    Yield = Yield / 100

    If Yield <> 0 Then
        NBFCYield = Yield / Average_Loan
    Else 
        NBFCYield = 0
    End If

End Function


Sub macro1()
   Cells(8, 2).ClearContents
End Sub

在我的上面的Sub Macro1中，我没有被提及或调用或指示使用功能NBFCYield 的任何内容，但该功能仍由Sub macro1触发。请帮帮我。

Answer 1

使用此代码 - 它应该阻止触发UDF：

Select Case TypeName(Application.Caller) 
Case "Range" 
v = Application.Caller.Address 
Case "String" 
v = Application.Caller
end select
msgbox v

如果您正在尝试确定调用该函数的内容，可以尝试在函数中使用以下内容：

Row

宏子调用函数没有任何指令

1 个答案: