Как вернуть результат из функции VBA - PullRequest
Новая
       27

Как вернуть результат из функции VBA

247 голосов
/ 06 мая 2010

Как мне вернуть результат из функции?

Например: 

Public Function test() As Integer
    return 1
End Function

Это дает ошибку компиляции.

Как сделать так, чтобы эта функция возвращалацелое число?

Ответы [ 4 ]

385 голосов
/ 06 мая 2010

Для необъектных возвращаемых типов вы должны присвоить значение имени вашей функции, например: 

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

Пример использования: 

Dim i As Integer
i = test()

Если функция возвращает тип объекта, вы должны использовать ключевое слово 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

Документация: http://msdn.microsoft.com/en-us/library/office/gg264233%28v=office.14%29.aspx

83 голосов
/ 06 мая 2010

Функции VBA обрабатывают само имя функции как своего рода переменную. Поэтому вместо использования оператора "return" вы просто скажете: 

test = 1

Заметьте, однако, что это не выходит из функции. Любой код после этого оператора также будет выполнен. Таким образом, вы можете иметь много операторов присваивания, которые присваивают различные значения test, и какое бы значение ни было, когда вы достигнете конца функции, будет возвращаемое значение.

34 голосов
/ 12 июня 2014

Просто установка возвращаемого значения для имени функции все еще не , точно , то же самое, что оператор 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

Поскольку это так, также приятно знать, что вы можете использовать возвращаемую переменную, как и любую другую переменную в методе.Например: 

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

Или крайний пример того, как работает возвращаемая переменная (но это не обязательно хороший пример того, как на самом деле вы должны кодировать) -тот, который будет держать тебя ночью: 

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
0 голосов
/ 25 марта 2017

Приведенный ниже код сохраняет возвращаемое значение в переменной retVal, а затем MsgBox может использоваться для отображения значения: 

Dim retVal As Integer
retVal = test()
Msgbox retVal
...