VBA の演算子（論理演算子：And、Eqv、Imp、Not、Or、Xor）

論理演算子

Not 演算子

And 演算子・Or 演算子・Xor 演算子・Eqv 演算子・Imp 演算子

VBA 論理演算子の使用例

項目の説明

項目の説明

サンプルVBAソース

2015/04/14 2015/08/26

論理演算を行うときに使用する演算子で、以下の 6 種類があります。
And（アンド）演算子、Eqv（イーキューブイ）演算子、Imp（アイエムピー）演算子、Not（ノット）演算子、Or（オア）演算子、Xor（エックスオア）演算子

【書式】

result = Not expression

expression ・・・任意の式を指定します
result ・・・任意の数値変数を指定します。

Not 演算子の演算結果：

*式（expression）*	*結果（result）*
True	False
False	True

Not 演算子の演算結果（ビット演算）：
（※ Not 演算子は、変数に対してビット単位の反転も行います）

*式（expression）*	*結果（result）*
0	1
1	0

【書式】

＜ And 演算子＞
result = exp1 And exp2

＜ Or 演算子＞
result = exp1 Or exp2

＜ Xor 演算子＞
result = exp1 Xor exp2

＜ Eqv 演算子＞
result = exp1 Eqv exp2

＜ Imp 演算子＞
result = exp1 Imp exp2

exp1、exp2 ・・・任意の式を指定します
result ・・・任意の数値変数を指定します。

各演算子の演算結果：

*式（exp1）*	*式（exp2）*	And	Or	Xor	Eqv	Imp
True	True	True	True	False	True	True
True	False	False	True	True	False	False
True	Null 値	Null 値	True	Null 値	Null 値	Null 値
False	True	False	True	True	False	True
False	False	False	False	False	True	True
False	Null 値	False	Null 値	Null 値	Null 値	True
Null 値	True	Null 値	True	Null 値	Null 値	True
Null 値	False	False	Null 値	Null 値	Null 値	Null 値
Null 値	Null 値	Null 値	Null 値	Null 値	Null 値	Null 値

各演算子の演算結果（ビット演算）：

式（exp1）

式（exp2）

　
Sub Sample_LogicalOperator()
    
    Dim x, y, z, n
    x = 25: y = 11: z = 7: n = Null

    'Not 演算子（論理否定）
    
    Debug.Print Not (x > y)         'False
    Debug.Print Not (y < x)         'False
    Debug.Print Not (x < n)         'Null
    Debug.Print Not z               '-8

    'And 演算子（論理積）

    Debug.Print x > y And y > z     'True
    Debug.Print x = n And y > z     'Null
    Debug.Print y And z             '3

    'Or 演算子（論理和）

    Debug.Print x > y Or y > z      'True
    Debug.Print x = n Or y = z      'Null
    Debug.Print y Or z              '15

    'xor 演算子（排他的論理和）

    Debug.Print x > y Xor y > z     'False
    Debug.Print x > n Or y < z      'Null
    Debug.Print y Xor z             '12

    'Eqv 演算子（論理等価）

    Debug.Print x > y Eqv y > z     'True
    Debug.Print x > n Eqv y < z     'Null
    Debug.Print y Eqv z             '-13

    'Imp 演算子（論理包含）

    Debug.Print x > y Imp y > z     'True
    Debug.Print x > n Imp y < z     'Null
    Debug.Print y Imp z             '-9

End Sub