如何从一个VBA函数返回一个结果

如何从函数返回结果?

例如:

Public Function test() As Integer
    return 1
End Function

这会产生编译错误。

我如何使这个函数返回一个整数?

当前回答

只是将返回值设置为函数名仍然与Java(或其他)return语句不完全相同，因为在Java中，return退出函数，如下所示:

public int test(int x) {
    if (x == 1) {
        return 1; // exits immediately
    }

    // still here? return 0 as default.
    return 0;
}

在VB中，如果你没有在函数的末尾设置返回值，完全等价的语句需要两行。所以，在VB中，准确的推论是这样的:

Public Function test(ByVal x As Integer) As Integer
    If x = 1 Then
        test = 1 ' does not exit immediately. You must manually terminate...
        Exit Function ' to exit
    End If

    ' Still here? return 0 as default.
    test = 0
    ' no need for an Exit Function because we're about to exit anyway.
End Function

既然是这种情况，知道可以像使用方法中的任何其他变量一样使用return变量也是很好的。是这样的:

Public Function test(ByVal x As Integer) As Integer

    test = x ' <-- set the return value

    If test <> 1 Then ' Test the currently set return value
        test = 0 ' Reset the return value to a *new* value
    End If

End Function

或者，return变量如何工作的极端例子(但不一定是你应该如何编码的好例子)——一个会让你夜不能寐的例子:

Public Function test(ByVal x As Integer) As Integer

    test = x ' <-- set the return value

    If test > 0 Then

        ' RECURSIVE CALL...WITH THE RETURN VALUE AS AN ARGUMENT,
        ' AND THE RESULT RESETTING THE RETURN VALUE.
        test = test(test - 1)

    End If

End Function

2014-06-11 20:31:04

其他回答

对于非对象返回类型，必须将值赋给函数名，如下所示:

Public Function test() As Integer
    test = 1
End Function

使用示例:

Dim i As Integer
i = test()

如果函数返回Object类型，那么你必须像这样使用Set关键字:

Public Function testRange() As Range
    Set testRange = Range("A1")
End Function

使用示例:

Dim r As Range
Set r = testRange()

注意，将返回值赋给函数名并不会终止函数的执行。如果你想退出函数，那么你需要显式地说exit function。例如:

Function test(ByVal justReturnOne As Boolean) As Integer
    If justReturnOne Then
        test = 1
        Exit Function
    End If
    'more code...
    test = 2
End Function

文档:功能说明

2010-05-06 14:13:40

VBA函数将函数名本身视为一种变量。所以不用return语句，你只需说:

test = 1

但是请注意，这并没有跳出函数。在此语句之后的任何代码也将被执行。因此，您可以有许多赋值语句，将不同的值赋给test，当您到达函数末尾时，无论值是什么，都将返回值。

2010-05-06 14:14:08