AndAlso/OrElse en VBA

Je vais essayer d'obtenir une évaluation différée " Et " dans ma macro Excel en procédant comme suit:

If Not myObject Is Nothing *And* myObject.test() Then
    'do something'
Else
    'do something else'
End If

Je sais évaluation différée existe dans VB.NET comme AndAlso et OrElse mais ne peut pas trouver quelque chose de semblable dans VBA. Si l'évaluation différée n'existe pas en VBA, quelle est la meilleure façon de structurer le code de sorte qu'il permettra d'évaluer la façon dont je m'attendre?

VBA comme la plaine de VB6 ne pas avoir de court-circuit de l'évaluation
Merci, j'ai résolu mon problème sans trouver de solution à cela, mais je suis toujours curieux de savoir quoi faire de cette situation. Je ne serais pas surpris si je suis absent quelque chose de vraiment évident, mais je ne peux pas trouver un bon moyen de le faire sans avoir à réécrire le code, c'est à dire le même code dans deux autre cas.

InformationsquelleAutor Luis | 2010-07-14

vb.net vba

Le seul court-circuit (une sorte de) est dans Case l'évaluation de l'expression, donc la suite déhanchée déclaration n'est, je pense, ce que vous demandez;

Select Case True
    Case (myObject Is Nothing), Not myObject.test()
        MsgBox "no instance or test == false"
    Case Else
        MsgBox "got instance & test == true"
    End Select
End Sub

InformationsquelleAutor Alex K.

11

C'est une vieille question, mais cette question est encore bien vivant. Une solution de contournement que j'ai utilisé:
```
Dim success As Boolean       ' False by default.

If myObj Is Nothing Then     ' Object is nothing, success = False already, do nothing.
ElseIf Not myObj.test() Then ' Test failed, success = False already, do nothing.
Else: success = True         ' Object is not nothing and test passed.
End If

If success Then
    ' Do stuff...
Else
    ' Do other stuff...
End If
```
En fait cela inverse la logique dans la question d'origine, mais vous obtenez le même résultat. Je pense que c'est une solution plus propre que les autres ici qui utilisent uniquement If consolidés. La solution à l'aide d'un Select déclaration est intelligent, mais si vous voulez une alternative à l'aide de seulement If déclarations, je pense que c'est le seul à utiliser.

InformationsquelleAutor neizan
3

Ou vous pouvez créer une fonction qui prend votre objet en tant que paramètre et retourne un booléen pour les deux cas. C'est ce que j'ai l'habitude d'.

c'est à dire
```
if Proceed(objMyAwesomeObject) then
       'do some really neat stuff here
else
       'do something else, eh
end if
...
end sub

private function Proceed(objMyAwesomeObject as Object)
     if not objMyAweseomeObject is nothing then
            Proceed = true
     elseif objMyAwesomeObject.SomeProperty = SomeValue then
            Proceed = true
     else
            Proceed = false
     endif
end function
```
- Je ne pense pas que cela va fonctionner. Si Not objMyAwesomeObject Is Nothing évalue à True, puis la première ElseIf déclaration ne sera jamais exécuter. Toutefois, si Not objMyAwesomeObject Is Nothing = False (objMyAwesomeObject Is Nothing = True), alors la première ElseIf instruction est exécutée et déclenche une erreur parce que vous essayez d'accéder à une propriété sur objMyAwesomeObject qui Is Nothing.
InformationsquelleAutor William
2

Depuis la syntaxe suivante œuvres
```
If myObject.test() Then do something
```
Ensuite, une doublure de syntaxe peut être utilisée pour de court-circuit de l'évaluation. Ci-dessous, la première If instruction s'assure que myObject est quelque chose. Sinon, il n'essaye même pas d'évaluer le second If.
```
If Not myObject Is Nothing Then If myObject.test() Then
    'do something'
Else
    'do something else'
End If
```
Bien sûr, si vous voulez "faire quelque chose d'autre" si monobjet Est Rien, alors cela peut ne pas fonctionner.
- Je vois que vous avez utilisé deux Ifs ici, un pour Not myObject Is Nothing, et la seconde pour myObject.test(). Mais, comme la première If déclaration est dans le une doublure format, le contenu de la première If (qui est la deuxième If) ne peut pas s'étendre à plus d'une ligne.
- J'ai supprimé le premier extrait de code, parce qu'il témoigne d'un one-liner If déclaration. Je l'ai expliqué dans mon commentaire précédent que one-liner Ifs ne peut pas s'étendre sur plusieurs lignes! 😀
- Merci pour la suggestion de modifier, mais la syntaxe de la réponse a été délibéré. J'ai mis à jour ma réponse afin de mieux refléter.
InformationsquelleAutor Cohan
0
```
If Not myObject Is Nothing Then
    If myObject.test() Then
        'do something'
    End If
Else
   'do something else'
End If
```
Je pense que c'est la façon dont vous avez à faire.

Modifier

Peut-être comme ce
```
Dim bTestsFailed as Boolean
bTestsFailed = False

If Not myObject Is Nothing Then
    If myObject.test() Then
        'do something'
    Else
        bTestsFailed = True
    End If
Else
   bTestsFailed = True
End If

If bTestsFailed Then
    'do something else
End If
```
N'est pas VBA grande?
- Je pense qu'il veut, à la condition else également exécuter si monobjet Est Rien, ce qui signifie que vous devez dupliquer l' Else 'do something else'.
- J'ai pris la liberté de modifier la réponse (je crois) le code est correct. Je suis d'accord avec BenV
- Je pense qu'il veut aussi something else de se produire si myObject n'est pas Rien, mais myObject.test() renvoie la valeur False.
- Merci à tous, vous avez raison, j'ai besoin du code à exécuter si l'une est fausse. Cela fonctionne, mais c'est un peu moche je pense; j'aime le "Select case" solution à la place de la propreté.
- Ouais, j'aime Sélectionnez Cas trop. Je n'ai jamais pensé à faire de cette façon, mais c'est beaucoup plus propre.
InformationsquelleAutor Dick Kusleika
0

Améliorer cette réponse à une question sur le même problème de base, voici ce que j'ai choisi de faire:
```
dim conditionsValid as boolean

conditionsValid = myObject Is Nothing
if conditionsValid then conditionsValid = myObject.test()
if conditionsValid then conditionsValid = myObject.anotherTest() 

if conditionsValid then
   'do something'
else
   'do something else'
end if
```
Je pense que ce code est plus clair que les autres réponses qui ont été proposés, et vous (en général) n'ont pas besoin d'une variable différente pour chaque validation, qui est l'amélioration par rapport à l'original de la réponse à l'autre question. Par la façon dont, à chaque nouvelle condition, vous devez ajoute simplement une ligne de code.

InformationsquelleAutor carlossierra

Un truc autour de valeurs manquantes peut aider:

Dim passed, wrongMaxPercent, wrongPercent, rightMinPercent, rightPercent
wrongPercent = 33
rightPercent = 55

'rightMinPercent = 56
wrongMaxPercent = 40

passed = (Len(wrongMaxPercent) = 0 Or wrongPercent < wrongMaxPercent) And _
         (Len(rightMinPercent) = 0 Or rightPercent >= rightMinPercent)

Je crois que votre code est la partie d'un autre programme... pourriez-vous généraliser votre code? (qui est, pour en faire une forme qui peut s'appliquer à toute situation)

InformationsquelleAutor W. Nema

Vous devez vous connecter pour publier un commentaire.