Excel에서 작동하지 않는 사용자 지정 함수 VBA

Question

어떤 이유로 사용자 지정 함수가 Excel에서 실행되고 있지 않습니다. 아래의 간단한 함수를 만들었지 만 워크 시트 함수로 사용 되든 프로 시저에서 호출되는지에 관계없이 항상 0으로 값을 반환합니다. 누구나 내가 뭘 잘못하고 있는지, 또는 어딘가에 내가 놓친 설정이 있는지 아는 사람?

Public Function Testthisout(number As Double) As Double 
    result = number * number 
    End Function 

    Public Sub TESTFUNCTION() 
    Dim number As Double 
    Dim result As Double 

    Application.Volatile (True) 

    number = 4 
    result = Testthisout(number) 
    MsgBox result 
    End Sub 

Answer 1

변경 당신은에 기능 :

Public Function Testthisout(number As Double) As Double 
    result = number * number 
    Testthisout = result 
End Function