Le VBA opérateur “Et” évaluer le deuxième argument lors de la première est fausse?

Function Foo(thiscell As Range) As Boolean
  Foo = thiscell.hasFormula And (InStr(1, UCase(Split(thiscell.formula, Chr(40))(0)), "bar") > 0)
End Function

Cette fonction existe pour tester la présence d'un certain sous-chaîne (bar, dans ce cas) avant le (.

Le cas, je vais avoir des ennuis avec, c'est quand la cellule est passé dans la fonction est vide, le thisCell.hasFormula est faux, mais le résultat après et est toujours en cours d'évaluation. Cela me donne un indice en dehors de la plage d'erreur lors de l'exécution.

Ne VBA effectivement continuer à évaluer le second argument de la Et, même si le premier était faux?

  • Notez que VBA And opérateur n'a pas de court-circuit, car c'est un opérateur au niveau du bit et pas logique. Voir: stackoverflow.com/questions/8042744/...
  • pas vrai - il va retourner un Booléen si ses arguments Booléens, de sorte qu'il supporte à la fois au niveau du bit et logique de l'opération. (bien sûr, vous pourriez argumenter que la logique est un cas particulier au niveau du bit à l'aide de 1-bit entiers, mais le point est que Microsoft pourrait avoir été pris en charge en court-circuit si ils ont choisi)
  • intéressant. Tout ce temps j'ai été en supposant que 'Et' était qu'un opérateur au niveau du bit, bien que la simulation des opérations logiques, parce que 'True = -1' et 'False = 0'. Mais vous avez raison " Et " est un opérateur logique si les deux expressions passé sont de type Boolean. C'est seulement au niveau du bit si l'un ou les deux opérandes sont des nombres. Mais je suppose que ça ne peut pas court-circuit, car les deux expressions doivent être évalués de toute façon, afin de s'assurer que l'un ou les deux ne sont pas des numéros et non des booléens. Donc, je pense que "bitwiseness" ne conduisent à aucun court-circuit ici.
  • Une autre chose que VBA prend en charge est de taper fort. A l'aide de Variantes est facultatif. Si les arguments en faveur d'un opérateur logique sont connus pour être de type Boolean au moment de la compilation, alors oui, il pourrait encore le support de court-circuit. Même avec des entiers, le bon argument pourrait être ignorées si la gauche l'argument de Or est la "1s" (&HFFFFFFFF, ou -1&), et de même pour la And si la gauche argument est de 0.
  • C'est tout vrai. Il pourrait être un peu déroutant à bien. Je ne suis pas au courant de court-circuiter les opérateurs sur les bits dans d'autres langues. Aussi, VBA était sans doute en essayant de maintenir une compatibilité ascendante avec les anciennes versions de BASE. Mieux que d'ajouter de nouveaux opérateurs, comme MME a finalement pour VB.NET. (La BASE de l'ascendance de VBA montre dans d'autres endroits, par exemple, un de mes favoris: stackoverflow.com/questions/1070863/hidden-features-of-vba/...)
InformationsquelleAutor James | 2011-08-10
  1. 56

    Ce que vous cherchez est appelé "évaluation de court-circuit".

    VBA ne l'a pas.

    Vous pouvez voir une approche qui est probablement adaptable à votre situation ici.

    L'approche qui a été choisie, il y impliquer à la substitution d'un Select Case pour la If. Il est aussi un exemple d'utilisation imbriquée Ifs.

    • Quand je travaille avec VBA, il commence à se sentir comme je suis en train de dessiner la joconde avec des crayons de couleur.
    • En effet. Dommage que vous ne pouvez pas utiliser le C# à la place 🙁
    InformationsquelleAutor DOK
  2. 10

    Comme DOK mentionné: Non, VBA n'a pas de court-circuit d'évaluation.

    Techniquement, il est plus efficace d'utiliser 2 If-then consolidés au lieu d'utiliser le AND de l'opérateur, mais sauf si vous faites beaucoup de fois, vous ne seriez pas l'avis de l'épargne, donc aller pour tout ce qui est plus lisible. Et si vous voulez vraiment faire de la technique, VBA gère plusieurs If-then états plus vite que Select Case que de bien.

    VBA est bizarre 🙂

    InformationsquelleAutor aevanko
  3. 2

    La réponse est oui, VBA ne pas court-circuiter l'évaluation.

    Ce n'est pas seulement une question de style; il fait une grande différence dans ce genre de situation:

    If i <= UBound(Arr, 1) And j <= UBound(Arr, 2) And Arr(i, 1) <= UBound(Arr2, 1) Then
    Arr2(Arr(i, 1), j) = Arr(i, j)
End If

    ...ce qui est incorrect. De façon plus appropriée:

    If i <= UBound(Arr, 1) And j <= UBound(Arr, 2) Then
    If Arr(i, 1) <= UBound(Arr2, 1) Then
        Arr2(Arr(i, 1), j) = Arr(i, j)
    End If
End If

    Ou si vous avez une aversion pour imbriquée fi:

    If i > UBound(Arr, 1) Or j > UBound(Arr, 2) Then
    ' Do Nothing
ElseIf Arr(i, 1) > UBound(Arr2, 1) Then
    ' Do Nothing
Else
    Arr2(Arr(i, 1), j) = Arr(i, j)
End If
    InformationsquelleAutor sopatt
  4. 2

    VBA ne avoir un court-circuit comme comportement.
    Normalement Null se propage à travers les expressions, par exemple. 3 + Null est Null, et True And Null est Null.
    Cependant:

    ? False And Null

    False

    Ça ressemble à un court-circuit comportement - ce qui se passe? Null ne se propagent pas quand l'autre argument à une conjonction (And) est False ou 0 - le résultat est tout simplement False ou 0. Il n'a pas d'importance si c'est la gauche ou la droite argument. La même chose s'applique si l'autre argument à une disjonction (Or) est True ou un entier différent de zéro (une valeur à virgule flottante sera arrondi à un nombre entier à l'aide de cette règle).

    Donc les effets secondaires et les erreurs ne peut pas être évitée dans les arguments de And et Or, mais Null de propagation peuvent être "court-circuité". Ce comportement semble être hérité de SQL.

    • Hmm, je suis perdu, pourriez-vous ajouter un exemple de comment cela fonctionne pour une condition A And B
    • deux de mes exemples d'utilisation And. Vous pourriez peut-être mieux expliquer ce que vous êtes confus au sujet?
    • Cela n'a rien à voir avec le court-circuit comportement. Les deux expressions sont évaluées, les premiers retours False et la seconde renvoie True, il n'y a pas de court-circuit ici. Puis VBA fait un peu bizarre de moulage et de façon incohérente, renvoie False ou Null
    InformationsquelleAutor Hugh Allen
  5. 0

    Je pense que c'est la meilleure pratique:

    sub my conditions()
        If Condition1=constraint1 then
         if Condition2=constraint2 then
          if condition3=constraint3 then
           ...
            ....
        end if
         end if
          end if
    else
      end if
           ....
    end if
end sub

    Ainsi vous serez à passaing dans des conditions si et seulement si la condition i est acquitta.

    • Plus de 5 ans, l'OP a été de nous demander si le and mot-clé dans une instruction conditionnelle "court-circuité" si la première condition est fausse. Êtes-vous répondre à cette question?
    • yep, je suis vraiment
    InformationsquelleAutor Moreno
  6. -1

    Considérer le code machine qui a à exécuter.
    La manière la plus rapide devrait être le long des lignes d'un mélange de code comme...

    si sfsf then goto SkipAB

    si dff then goto goneBad

    si dffdefedwf then goto MustHave

    SkipAB:
    si dsda > 4 MustHave

    GoneBad:
    fonction de sortie

    MustHave:
    ThisIS = true

    ' enregistre seulement un quelques instants lorsque le programme doit courir à travers elle
    plusieurs milliers de fois ... par exemple, la recherche de fichier d'un disque de grande taille
    ou quand un simple Booléen test est utilisée pour passer un beaucoup de temps de la fonction
    comme trouver toutes les feuilles et les noms dans un lieu fermé feuille de calcul
    [code]

         If Not wFF.UsingFileExtMatch Then GoTo SkipExt
                If Not wFF.OKFileEXTMatch Then GoTo BADFile

    SkipExt:
    Si Pas ffm.UsingFileNameMatch Then GoTo SkipFileMatch
    Si Pas ffm.OKFileNameMatch Then GoTo Fichierdéfectueux
    SkipFileMatch:
    Si Pas ffm.UsingDaysAgo Then GoTo SkipDaysAgo
    Si Pas ffm.OKDaysAgo Then GoTo Fichierdéfectueux
    SkipDaysAgo:

    [/code]

    InformationsquelleAutor Harry S