WENN " UND " und "ODER" - Anweisungen

Mein code ist wie folgt: 

If (InStr(1, "ALL", Itype) Or InStr(1, Uvar.Device, Itype)  _
And (InStr(1, "ALL", Isec) Or InStr(1, Uvar.Sec, Isec)) _
And (InStr(1, "ALL", Idev) Or InStr(1, Uvar.Model, Idev)) Then Useline = "TRUE"

Erweitern diese ein wenig:

Itype ist eine lange Zeichenfolge, z.B. -

  • Itype = All, Apple, Pear, Orange
  • Isec = dog, cat, duck
  • Idev = tree, flower, plant

Jeder UVar.x ist ein einzelnes Wort, z.B. -

  • UVar.Device = Apple
  • UVar.Sec = Cat
  • UVar.Model = tree

So, wenn Itype enthält den string "All" - und es enthält den Wert von UVar.Gerät
und Isec enthält auch die Zeichenfolge "All", oder es enthält den Wert von UVar.Sec
und IDev enthält auch die Zeichenfolge "All", oder es enthält den Wert von UVar.Modell

dann möchte ich die if statement = true.

Mein code oben scheint, um true zurückzugeben, was auch immer Werte verwendet werden, solange mindestens ein Wert den Kriterien entspricht.

So, tun die Saiten IType, Idev und Isec enthalten jeweils entweder den Wert "alle" oder einen bestimmten Benutzer angegebenen Wert?

InformationsquelleAutor DevilWAH | 2011-11-29
  1. 2

    Nun, für eine Sache, dein code kann nicht kompiliert werden - Sie müssen entweder entfernen Sie die öffnende Klammer nach dem IF oder fügen Sie eine schließende Klammer ein.

    Was jedoch noch wichtiger ist, Sie haben die Reihenfolge der Instr () - Parameter Durcheinander. Zuerst ist der string zu suchen IN, der zweite Zeichenfolge zu suchen FÜR. Das sollte es lösen.

    PS: Während Brettdj Antwort wahr ist, VBA interpretiert die position 0 als falsch und alle anderen als true, also ist das nicht unbedingt das Problem.

    • Upps Ihr Recht, ich habe das extra in Klammern meine actuly code haben muss, ging es während des Kopie Prozesses. Ich glaube ich habe gt confuised mit =Finden die Arbeitsblatt-Funktion, das ist die string zu suchen, gefolgt von string zu sehen. Jubel für die Ideen ich werde check it out
    • Yep, das war die eine! Casue es lief, ich war der Annahme, es war meine "wenn", "Und" und "Oder" in den falschen Ort, sondern tauschen es rundum perfekt funktioniert. Herzliche Grüße und vielen Dank
    • Es ist wahr, dass VBA interpretiert wird jeder Wert ungleich null als wahr. Allerdings, imo, eine solche Praxis ist mehr ein hack als eine gute Codierung der Praxis. Vergleicht man die position auf den Wert 0 für uns einfacher ist, Menschen zu verstehen. Ich nehme an, dass eine Diskussion von syntax versus Semantik.
    • Ich Stimme vollständig zu - ich würde auch lieber sehen, die explizit überprüfen, aber es funktioniert, ohne es.
    • Zwar hatte ich angesprochen, die Klammern hatte ich verpasst, dass die Bestellung falsch war, es war fummelig zu testen. Ich weiß auch nicht wie die Grobheit der workaround, während Sie, wie Sie sagen, es funktioniert, es ist nicht offensichtlich und workarounds wie dieser nicht überleben können zukünftige software-Versionen.
    • Mit VBA ist die "logische" Operatoren auf zahlen ist nach ärger. Siehe stackoverflow.com/a/8047021/58845

    InformationsquelleAutor Tom Juergens
  2. 1

    (Aktualisiert: Zu beheben, um sowie die Rückgabe eines True-Boolean-variable)

    InStr gibt eine position, nicht True oder False. So könnte man hinzufügen, beide tests zusammen, um test für >0, da dann zumindest einer der beiden gekoppelten Bedingungen erfüllt ist. Dann testen Sie alle 3-Paare, dh

    Dim bVar As Boolean
bVar = (InStr(Itype, "ALL") + InStr(Itype, Uvar.Device)) > 0 _
       And (InStr(Isec, "ALL") + InStr(Isec, Uvar.Sec)) > 0 _
       And (InStr(Idev, "ALL") + InStr(Idev, Uvar.Model)) > 0
    InformationsquelleAutor brettdj
Schreibe einen Kommentar