如何在Excel UDF Function中返回值？

Question

我在VBA中的函數中編寫了一些代碼，但是我對如何在if-else語句中返回輸出值areaAnswer1和areaAnswer2感到困惑。 我還是這個新手。 任何幫助和建議都非常感謝。

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

Answer 1

在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

Answer 2

只需讓函數等於類型值或最后的變量之一即可。

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

請注意，您已指定返回一個整數，該整數不能包含小數，並且必須小於32667（或大約32）。