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

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'.

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 kombinaci dvou podmínek (1 = 1) A (5 = 0). Pokud je splněna některá z podmínek, provede se kód nad klíčovým slovem Else. Pokud jsou obě podmínky nepravdivé, provede se kód pod klíčovým slovem Else.

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. Pokud jsou podmínky splněny, spustí se kód pod klíčovým slovem 'Else'. Pokud je podmínka pravdivá, provede se kód nad klíčovým slovem Else.

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