Comment faire pour retourner un résultat à partir d'une fonction VBA

Comment puis-je retourner un résultat à partir d'une fonction?

Par exemple:

Public Function test() As Integer
    return 1
End Function

Cela donne une erreur de compilation.

Comment puis-je faire de cette fonction retourne un entier?

Documentation: msdn.microsoft.com/en-us/library/office/...

InformationsquelleAutor Mike | 2010-05-06

385

Pour les non-objet les types de retour, vous devez affecter la valeur pour le nom de votre fonction, comme ceci:
```
Public Function test() As Integer
    test = 1
End Function
```
Exemple d'utilisation:
```
Dim i As Integer
i = test()
```
Si la fonction renvoie un Objet de type, vous devez utiliser le Set mot-clé comme ceci:
```
Public Function testRange() As Range
    Set testRange = Range("A1")
End Function
```
Exemple d'utilisation:
```
Dim r As Range
Set r = testRange()
```
Noter que l'attribution d'une valeur de retour pour le nom de la fonction ne met pas fin à l'exécution de votre fonction. Si vous voulez sortir de la fonction, alors vous devez explicitement dire Exit Function. Par exemple:
```
Function test(ByVal justReturnOne As Boolean) As Integer
    If justReturnOne Then
        test = 1
        Exit Function
    End If
    'more code...
    test = 2
End Function
```
Documentation: http://msdn.microsoft.com/en-us/library/office/gg264233%28v=office.14%29.aspx
- Pour être complet, il convient de noter que lorsque vous êtes de retour d'un objet (comme un Range par exemple), vous devez utiliser Set comme vous le feriez si l'établissement d'une variable d'objet dans une méthode régulière. Donc, si, par exemple, de "tester" une fonction qui a retourné une Plage de l'instruction de retour devrait ressembler à ceci set test = Range("A1").
- Pourquoi est-ce que @JayCarr?
- Tout simplement parce que c'est la façon dont vous définissez une variable d'objet en général, et de le faire sans set peut conduire à des problèmes. J'ai eu des problèmes à le faire sans, mais si j'utilise set je n'en ai pas :).
- Peut-être que c'est parce que si vous venez de donner à une variable une valeur comme une chaîne ou un entier aso si vous êtes juste en ajoutant de la valeur à la variable. Au lieu d'un objet contenant beaucoup plus d'informations et si par exemple vous donner une plage alors que la gamme est renommé après votre variable dans votre code. Ainsi, plutôt que d'ajouter de la valeur à la variable, vous donnez la plage de valeurs d'un nouveau nom. Cela pourrait-il être juste?
- Exit Sub pour quitter un Sous.
- Je pense qu'il est également intéressant de mentionner que le comportement de la fonction diffère lorsque vous appelez à partir d'une feuille de calcul, par rapport à l'appeler à partir d'une autre fonction VBA ou Sub.
- Lorsqu'il est appelé dans VBA la fonction renvoie un objet range, mais lorsqu'il est appelé à partir d'une feuille de calcul, il sera de retour juste la valeur, de sorte set test = Range("A1") est exactement équivalente à test = Range("A1").Value, où "test" est défini comme une Variante, plutôt que d'une Plage.
InformationsquelleAutor Dan
82

Fonctions VBA traiter le nom de la fonction elle-même comme une sorte de variable. Donc, au lieu d'utiliser un "return" déclaration, vous dirais simplement:
```
test = 1
```
Avis, cependant, que cela ne veut pas sortir de la fonction. Le code après cette déclaration sera également exécutée. Ainsi, vous pouvez avoir beaucoup d'instructions d'affectation qui affecter des valeurs différentes à test, et quelle que soit la valeur lorsque vous atteignez la fin de la fonction sera la valeur retournée.
- En fait, vous avez répondu à la question plus clairement avec des informations supplémentaires (ce qui pourrait potentiellement conduire à une autre question de VBA guy). Maintenir le bon travail
- Désolé, Il semble que vous venez d'y répondre la même chose que ma réponse, que j'avais d'abord, mais juste en ajoutant le fait qu'il ne veut pas sortir de la fonction. C'est un petit plus, j'ai juste pensé qu'il serait plus approprié qu'un commentaire. Je ne suis pas sûr de ce que la bonne étiquette est, je suppose que c'était un peu bizarre de downvote pour cela, parce que c'est une bonne réponse, mais il ne me laisse pas le défaire.
InformationsquelleAutor froadie
34

Juste réglage de la valeur de retour de la fonction nom n'est pas encore exactement le même que le Java (ou autre) return déclaration, parce qu'en java, return quitte la fonction, comme ceci:
```
public int test(int x) {
    if (x == 1) {
        return 1; //exits immediately
    }

    //still here? return 0 as default.
    return 0;
}
```
En VB, les exacte équivalent prend deux lignes si vous n'êtes pas le réglage de la valeur de retour à la fin de votre fonction. Donc, en VB exact corollaire devrait ressembler à ceci:
```
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 
```
Puisque c'est le cas, il est également bon de savoir que vous pouvez utiliser la variable de retour comme toute autre variable dans la méthode. Comme ceci:
```
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 
```
Ou, à l'extrême exemple de la façon dont la variable de retour œuvres (mais pas forcément un bon exemple de la façon dont vous devriez réellement code)—celui qui va vous tenir éveillé la nuit:
```
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
```
- "il est aussi bon de savoir que vous pouvez utiliser la variable de retour comme toute autre variable dans la méthode" surtout true -- mais par exemple, si le type de retour est Variant et votre but est de retourner un tableau alors quelque chose comme ReDim test(1 to 100) va déclencher une erreur. Aussi, même si elle est possible de traiter le type de base comme Integers comme ça, c'est considéré comme quelque peu unidiomatic. Elle rend le code plus difficile à lire. VBA programmeurs d'analyse pour les lignes qui attribuer le nom de la fonction à comprendre ce qu'est une fonction n'. En utilisant le nom de la fonction comme une variable inutilement obscurcit ce.
- tout à fait d'accord sur ces deux points. Rien ne permet de le dernier exemple sera une de méthodologie recommandée. Mais, la question le sujet est sur la Façon de retourner une variable, et donc, c'est juste une tentative d'explication complète de VB de retour de ce résultat, et, par extension, la façon dont ils travaillent. Certainement le dernier cas n'est pas une recommandation. (Je n'aurais certainement pas le code qui comme bien plus qu'un exemple.) Ainsi, vos points sont bien prises, et de bons ajouts. Je vous remercie.
- est utile pour smallish fonctions, et c'est quelque chose que tout programmeur VBA devriez savoir au sujet, j'ai donc eu aucun problème avec vous le mentionner. Je pensais juste qu'un avertissement doit être inclus.
- Merci d'expliquer comment Exit Function concerne return
- Évidemment, vous ne pouvez pas ReDim test(1 to 100) sans déclencher d'erreur tout simplement parce que "test" n'est pas déclaré comme un tableau! et pour aucune autre raison à tous! Vous ne pouvez pas déclarer une fonction dans un tableau. Déclarer comme une Variant, puis il suffit de construire votre tableau de sortie (il peut être Dynamique ou Statique) à l'intérieur de cette fonction test puis assigner ("=") ce tableau à test comme une valeur de retour. Afin de mieux manipuler, comme ReDiming, vous devez attribuer la valeur renvoyée à une variable, par exemple Dim x as Variant et appel x = test, après quoi x est ce que vous avez fait le test à être!
- Je ne suis pas. Il n'est pas nécessaire de déclarer une variable comme un tableau à ReDim il. Dim test As Variant suivie par ReDim test(1 to 100) ne pose aucun problème. Que vous vous ne pouvez pas le faire avec le nom de la variante de la fonction dans le corps de la fonction montre que ce n'est pas vrai que vous pouvez utiliser la variable de retour comme toute autre variable dans le corps de la fonction, ce qui est exactement le point que je faisais. Par ailleurs, votre utilisation de points d'exclamation semble over-the-top. Dans un contexte d'internet, il semble vaguement troll-comme, bien qu'il n'y a rien de troll comme sujet de votre commentaire.
- Coleman; La Dim test As Variant suivie par ReDim test(1 to 100) ne pose aucun problème car VBA re-interpretes l'instruction redim demande "ah, tu veux dire que test Variante devrait être un "tableau" sous-types". La fonction elle-même ne peut pas être déclaré comme un tableau, VBA ne le permettent pas (ne pas avoir un moyen de le faire). Vous devez utiliser un Variant et de "trucs" sur le retour avec un tableau si c'est ce que vous voulez que la fonction de retour. Ce sera un tableau de Variant, pas une Chaîne de tableau, ou un tableau, etc.
InformationsquelleAutor LimaNightHawk
-3

Le code ci-dessous les magasins de la valeur de retour dans la variable retVal et puis MsgBox peut être utilisé pour afficher la valeur:
```
Dim retVal As Integer
retVal = test()
Msgbox retVal
```
InformationsquelleAutor Biju John

Vous devez vous connecter pour publier un commentaire.