VBA Logical Operators: AND, OR, NOT, IF NOT v Excel VBA

Tři výše uvedené popisy se snáze zapamatují jako jedna mřížka vstupů a výsledků.

Pravdivostní tabulka pro logické operace VBA Operatorů

Pravdivostní tabulka uvádí všechny kombinace vstupů a výsledek, který každý operátor vrací. Jedno přečtení odstraní nutnost dohadů z jakékoli podmínky, kterou později zapíšete.

Stojí za to si zapamatovat dva vzorce. A AUTOMATIZACI Vrátí hodnotu True pouze na jednom řádku ze čtyř, takže výběr zúží. OR Vygeneruje hodnotu False pouze na jednom řádku, takže jeden řádek rozšíří. NENÍ bere jednu podmínku místo dvou, a proto má jeden vlastní sloupec.

VBA Logical OperaPříklad zdroje Code

Pro jednoduchost budeme porovnávat pevně zakódovaná čísla.

Přidejte tlačítka ActiveX na list z možnosti „Vložit“.

Nastavte vlastnosti, jak je znázorněno na obrázku níže

V následující tabulce jsou uvedeny vlastnosti, které je třeba změnit, a hodnoty, které je také třeba aktualizovat.

Přidejte následující kód do btnAND_Click

Private Sub btnAND_Click()
If (1 = 1) And (0 = 0) Then
    MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
Else
    MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
End If
End Sub

VBA Pokud AND OperaTor

• „Pokud (1 = 1) a (0 = 0), tak“ příkaz if používá logický operátor AND ke kombinaci dvou podmínek (1 = 1) A (0 = 0). Pokud jsou splněny obě podmínky, provede se kód nad klíčovým slovem „Else“. Pokud nejsou splněny obě podmínky, provede se kód pod klíčovým slovem 'Else'.

Obě podmínky jsou zde pravdivé, takže po kliknutí na tlačítko se zobrazí „A vyhodnoceno jako PRAVDA“.

Přidejte následující kód do btnOR_Click

Private Sub btnOR_Click()
If (1 = 1) Or (5 = 0) Then
    MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
Else
    MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
End If
End Sub

VBA Pokud OR OperaTor

• „Pokud (1 = 1) Nebo (5 = 0), tak“ Příkaz if používá logický operátor OR ke spojení dvou podmínek (1 = 1) nebo (5 = 0). Pokud je některá z podmínek pravdivá, provede se kód uvedený výše za klíčovým slovem Else. Pokud jsou obě podmínky nepravdivé, provede se kód uvedený níže za klíčovým slovem Else.

První podmínka je pravdivá a druhá nepravdivá, takže OR stále vrací true a zpráva zní „OR vyhodnoceno jako TRUE“.

Přidejte následující kód do btnNOT_Click

Private Sub btnNOT_Click()
If Not (0 = 0) Then
    MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
Else
    MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
End If
End Sub

VBA Pokud NE OperaTor

• „Pokud ne (0 = 0), tak“ Funkce VBA If Not používá logický operátor NOT k negaci výsledku podmínky příkazu if. Vnitřní podmínka (0 = 0) je pravdivá, takže Not ji převede na nepravdivou a provede se kód pod klíčovým slovem 'Else'. Pokud by vnitřní podmínka byla nepravdivá, Not by ji převedl na nepravdivou a spustil by se kód nad klíčovým slovem 'Else'.

Tato tři tlačítka testují pevnou hodnotu. Reálné podmínky se čtou z pracovního listu a kombinují obě rodiny operátorů.

Jak kombinovat logické a srovnávací výpočty Operatorů

Produkční makro jen zřídka testuje pevně zakódované číslo. Přečte hodnotu, porovná ji a spojí několik těchto porovnání do jednoho rozhodnutí. Níže uvedené makro schválí objednávku pouze tehdy, když produkt existuje, množství je dostatečné a zákaznický účet není pozastaven.

Sub ApproveOrder()
    Dim QtyOnHand As Long
    Dim QtyOrdered As Long
    Dim OnHold As Boolean

    QtyOnHand = Sheet1.Range("B2").Value
    QtyOrdered = Sheet1.Range("B3").Value
    OnHold = Sheet1.Range("B4").Value

    ' All three parts must hold for the order to pass
    If (QtyOrdered > 0) And (QtyOnHand >= QtyOrdered) And Not OnHold Then
        Sheet1.Range("B5").Value = "Approved"
    Else
        Sheet1.Range("B5").Value = "On hold"
    End If
End Sub

Tři pravidla udržují kombinovanou podmínku čitelnou a správnou.

• Zaškrtněte každé srovnání: VBA vyhodnocuje porovnávací operátory před logickými, ale závorky dělají skupinuping zřejmé a zabránit chybě, když se stav později zhorší.
• Dbejte na prioritu operace And před operací Or: A Nebo B A C se čte jako A Nebo (B a C)Pokud jsi myslel/a (A nebo B) a C, závorky jsou povinné.
• Aplikuje se Ne na booleovskou hodnotu, ne na číslo: Není pozastaveno čte se přirozeně. Vyhněte se Ne 5, protože Not provádí bitové operace s čísly a vrací -6 místo False.

Warning️ Varování: VBA nezkratuje. V Pokud (ws není nic) nebo (ws.Name = „Data“) pak, druhá část stále běží, i když je první pravdivá, což vyvolá chybu za běhu 91. Rozdělte takové ochranné prvky do vnořených příkazů If.

Xor, Eqv a Imp Operatorů ve VBA

Operatory AND, OR a NOT pokrývají téměř každou každodenní podmínku, ale VBA nabízí tři další logické operátory, které občas vyjadřují pravidlo mnohem jasněji než sada příkazů If.

Xor je z těchto tří nejpraktičtější. Vyhovuje pravidlu typu „sleva se vztahuje na zaměstnance nebo člena věrnostního programu, ale ne na někoho, kdo je obojím“. Eqv a Imp se objevují hlavně ve starším kódu a v logických cvičeních, takže jejich rozpoznání je důležitější než jejich napsání.

Stáhněte si Excel obsahující výše uvedený kód

Nejčastější dotazy