1. はじめに

多くのプログラミング言語では、

となっています。

Python や JavaScript でも、
真偽値を数値として扱う場合は基本的に 1 / 0 になります。
そもそも数値として扱わせない言語もあります。

そのため、 VBAでも同じだろうと無意識に思ってしまいがちです。

ここに、Excel VBA 特有の落とし穴があります。

2. VBAの Boolean は 1 / 0 ではない

VBAでは、Boolean 型は次のように扱われます。

VBA

Debug.Print True    ' -1
Debug.Print False   ' 0

つまり VBA では、 True は 1 ではない

この違いは、
条件分岐だけを書いているうちは問題になりません。

VBA

If flg Then
    ' 処理
End If

しかし、Boolean を 数値として扱おうとすると失敗します

VBA

Dim flg As Boolean
flg = True

Debug.Print flg + 1   ' 結果は 0

「True = 1」だと思っていると、完全に予想外の結果になります。

このように　VBAくらいでしか見られない仕様が意外と多いです。