Come restituire un risultato da una funzione VBA

Come posso restituire un risultato da una funzione?

Per esempio:

Public Function test() As Integer
    return 1
End Function

Questo dà un errore di compilazione.

Come faccio a rendere questa funzione restituire un numero intero?

Per i tipi di ritorno non oggetto, devi assegnare il valore al nome della tua funzione, in questo modo:

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

Esempio di utilizzo:

Dim i As Integer
i = test()

Se la funzione restituisce un tipo di oggetto, è necessario utilizzare la Setparola chiave in questo modo:

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

Esempio di utilizzo:

Dim r As Range
Set r = testRange()

Si noti che l'assegnazione di un valore restituito al nome della funzione non termina l'esecuzione della funzione. Se vuoi uscire dalla funzione, devi dire esplicitamente Exit Function. Per esempio:

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

Documentazione: http://msdn.microsoft.com/en-us/library/office/gg264233%28v=office.14%29.aspx