如何在Excel UDF函數中返回值？

我在VBA中的某個函數中寫了一些代碼，但是我一直在如何返回if - else語句中的輸出值areaAnswer1 & areaAnswer2。我還是這個新手。非常感謝任何幫助&建議。如何在Excel UDF函數中返回值？

Function dateArea(inputDate1 As Date, t1 As Date, t2 As Date, duration As Integer, output As Integer) As Integer 
    endOfYear = Workbook.Date(Year(inputDate1), 12, 31) 
    inputDate2 = Workbook.Date(Year(inputDate1) + 1, Month(inputDate1), Day(inputDate1)) 
    endOfDate1 = Workbook.Date(Year(inputDate1) + duration, Month(inputDate1), Day(inputDate1)) 
    endOfDate2 = Workbook.Date(Year(inputDate2) + duration, Month(inputDate2), Day(inputDate2)) 
    areaBase1 = endOfYear - inputDate1 
    areaBase2 = inputDate2 - endOfYear 
    totalArea1 = areaBase1 * 365 
    totalArea2 = areaBase2 * 365 
    triangleBase1 = endOfDate1 - inputDate1 
    triangleHypo1 = Workbook.Sqrt((365 * 365) + (triangleBase1 * triangleBase1)) 
    triangleBase2 = t1 - inputDate2 
    triangleHypo2 = triangleHypo1 * triangleBase2/triangleBase1 
    triangleHeight2 = Workbook.Sqrt((triangleHypo2 * triangleHypo2) - (triangleBase2 * triangleBase2)) 
    triangleArea2 = (triangleBase2 * triangleHeight2)/2 
    triangleBase3 = (inputDate2 - endOfYear) + (t1 - inputDate2) 
    triangleHypo3 = triangleBase3 * triangleHypo2/(t1 - inputDate2) 
    triangleHeight3 = Workbook.Sqrt((triangleHypo3 * triangleHypo3) - (triangleBase3 * triangleBase3)) 
    triangleArea3 = (triangleBase3 * triangleBaseHeight3)/2 
    areaDiffBot2 = triangleArea3 - triangleArea2 
    triangleBase4 = 365 + (t1 - inputDate2) 
    triangleHypo4 = triangleBase4 * triangleHeight2/(t1 - inputDate2) 
    triangleHeight4 = Workbook.Sqrt((triangleHypo4 * triangleHypo4) - (triangleBase4 * triangleBase4)) 
    triangleArea4 = (triangleBase4 * triangleHeight4)/2 
    areaDiffBot1 = triangleArea4 - triangleArea3 
    triangleHeight5 = 365 * (endOfDate1 - t2)/triangleBase1 
    triangleHypo5 = Workbook.Sqrt((triangleHeight5 * triangleHeight5) + ((endOfDate1 - t2) * (endOfDate1 - t2))) 
    triangleArea5 = (endOfDate1 - t2) * triangleHeight5/2 
    triangleBase6 = (endOfDate1 - t2) + areaBase1 
    triangleHeight6 = (triangleBase6) * 365/(endOfDate1 - t2) 
    triangleHypo6 = Workbook.Sqrt((triangleBase6 * triangleBase6) + (triangleHeight6 * triangleHeight6)) 
    triangleArea6 = (triangleBase6 * triangleHeight6)/2 
    areaDiffTop1 = triangleArea6 - triangleArea5 
    triangleBase7 = triangleBase6 + areaBase2 
    triangleHeight7 = triangleBase7 * triangleHeight6/triangleBase6 
    triangleHypo7 = Workbook.Sqrt((triangleBase7 * triangleBase7) + (triangleHeight7 * triangleHeight7)) 
    triangleArea7 = (triangleBase7 * triangleHeight7)/2 
    areaDiffTop2 = triangleArea7 - triangleArea6 
    totalUsedArea1 = areaDiffTop1 + areaDiffBot1 
    totalUsedArea2 = areaDiffTop2 + areaDiffBot2 
    areaAnswer1 = totalArea1 - totalUsedArea1 
    areaAnswer2 = totalArea2 - totalUsedArea2 
    If output = 1 Then 

    ElseIf output = 2 Then 

    ElseIf output = 3 Then 

    Else 

    End If 
End Function

來源

2016-07-02 Ian Clement Fosgate

哦，是的。對不起，我會解決這個問題。 –

在VBA您可以通過將其分配給這樣的功能設置的返回值：

areaAnswer1 = totalArea1 - totalUsedArea1 
areaAnswer2 = totalArea2 - totalUsedArea2 
If output = 1 Then 
    dateArea = areaAnswer1 
ElseIf output = 2 Then 
    dateArea = areaAnswer2 
ElseIf output = 3 Then 
    ' ...etc

注意，分配給功能不退出功能。在這種情況下，你不需要立即退出，因爲你已經在結束了。但在某些情況下，你會希望儘快您已經分配的返回值退出功能：

Exit Function

來源

2016-07-02 09:39:38 trincot

就具有的功能等於輸入值或在最後的變量之一。

select case output 
    case 1 
     dateArea = totalUsedArea1 
    case 2 
     dateArea = totalUsedArea2 
    case 3 
     dateArea = totalUsedArea3 
    case else 
     'do something or nothing 
end select

注意，您必須指定返回不能包含小數點和必須小於32667的整數（或有abouts）。

來源

2016-07-02 09:40:35 Jeeped

16位整數 - > 2^16 = 32768。 – user1016274

如何在Excel UDF函數中返回值？

回答

相關問題