不能在Excel中工作的自定義函數VBA

Question

由於某些原因，自定義函數似乎無法在Excel中運行。我創建了下面的簡單函數，但它始終返回零作爲值，無論它用作工作表函數還是從過程調用。任何人都知道我做錯了什麼，或者是否有我失蹤的地方？

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