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

Question

我在VBA中的函数中编写了一些代码，但我仍然坚持如何返回输出值areaAnswer1＆amp; if - else语句中的areaAnswer2。我还是新手。任何帮助＆amp;建议非常感谢。

"Theme.AppCompat.Light.NoActionBar"

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（或大约有）的整数。