【Excel VBA】「0以外はTrue」の罠を回避せよ！バグをゼロにする明示的評価の極意
こんにちは！今日もExcel VBAの世界へようこそ。
マクロの自動記録を卒業し、自分の手でコードを書き始めると、必ず一度はぶつかる「謎の不具合」があります。
「コードは間違っていないはずなのに、なぜか条件分岐を通り抜けてしまう…」
「昨日まで動いていたのに、データによって挙動が変わる…」
その原因、実はVBA内部における「Boolean型（論理型）の評価仕様」にあるかもしれません。
VBAには「0はFalse、0以外はすべてTrueとして扱う」という、一見便利で少し危険な暗黙のルールが存在します。この仕様を正しく理解し、明示的な比較をする書き方をマスターすれば、あなたの書くVBAコードの堅牢性（壊れにくさ）は劇的に跳ね上がります。
ここをクリアすれば、Excel VBAの基本はバッチリですよ！一緒に本質を紐解いていきましょう。
—
1. VBAにおける「True」と「False」の正体
まず、VBAが内部で「True」と「False」をどう扱っているのか、その裏側に迫ってみましょう。
人間にとって `True` は「正しい」、`False` は「間違い」という概念ですが、コンピュータ（メモリ）にとっては単なる「数値」です。
【VBA内部での値の保持】
False ＝ 0
True ＝ -1 （※すべてのビットが1の状態）
ここからが重要なポイントです。
VBAの `If` 文などの条件式は、評価結果が `0` であれば `False` とみなし、`0` 以外のすべての数値（1, 2, -100など）を `True` とみなすという強力な型変換ロジックを持っています。
視覚イメージ：VBAの「ガバガバな判定フィルター」
[ 入力される数値 ] —> [ VBAの条件判定 ] —> [ 内部的な判定結果 ]
0 —> 0 ですか？ —> False
1 —> 0 以外ですか？ —> True
-1 —> 0 以外ですか？ —> True
100 —> 0 以外ですか？ —> True
この「0以外はぜんぶTrue」という仕様が、時にプログラマーの意図しない恐ろしいバグを引き起こすのです。
—
2. なぜ危険なのか？陥りがちな「3つの罠」
「0以外がTrueになるなら、何か値が入っていればTrueになるから便利じゃない？」と思うかもしれません。しかし、これにはプロでもハマる罠が存在します。
罠①：`If val` と `If val = True` の挙動の不一致
ここに整数型変数 `myVal` があり、値として `1` が入っているとします。
Dim myVal As Long
myVal = 1
‘ パターンA：暗黙の評価
If myVal Then
‘ myVal(1) は「0以外」なので True とみなされ、ここを通る！
End If
‘ パターンB：Trueとの明示的比較（一見正しそうに見えるが…）
If myVal = True Then
‘ 1 = -1 の比較になるため False になり、ここを通らない！！
End If
ここが最大のパズルであり、バグの温床です！
パターンAでは `1` は「0以外だからTrue」と扱われたのに、パターンBで `= True` と比較した瞬間に、VBAは `1 = -1` という数値比較を行ってしまうため `False` になります。
同じ変数・同じ値なのに、書き方によって結果が逆転してしまうのです。
罠②：APIや外部関数との連携時の不一致
Windows APIやC言語系のDLL、外部ライブラリでは、「成功＝1」「失敗＝0」とする仕様が一般的です。
しかし、VBAの `True` は `-1` です。
外部関数から戻り値 `1` が返ってきたときに、VBA側で `If retVal = True` と書くと、「成功しているのにFalseと判定される」という悪夢のようなバグが発生します。
罠③：数値検索関数（InStrなど）の勘違い
文字列の中に特定の文字があるか探す `InStr` 関数は、見つかった「文字の位置（1以上）」を返し、見つからない場合は「0」を返します。
- 危険な書き方：`If InStr(1, text, “A”) Then`
- 確かに入力があれば「0以外＝True」で動きますが、「数値の位置」を「論理値」として扱うのは可読性を著しく下げます。
—
3. 実践コードで見る「デンジャラスなコード」vs「プロの堅牢コード」
それでは、具体的なコード例を見てみましょう。
セル内の文字数をチェックして処理を行うマクロを例にします。
❌ 悪い例：暗黙の型変換に頼ったコード
Sub BadExample_ImplicitEvaluation()
Dim charCount As Long
charCount = Len(Range(“A1”).Value)
‘ 危険！数値(Long)をそのままIf文の条件に突っ込んでいる
‘ 「0以外はTrue」という仕様に依存しており、意図が伝わりにくい
If charCount Then
MsgBox “A1セルには文字が入っています（文字数: ” & charCount & “）”, vbInformation
Else
MsgBox “A1セルは空欄です”, vbExclamation
End If
End Sub
このコードは動きます。動きますが、「なぜ数値型変数がIf直後に置かれているのか」が直感的にわかりにくく、後からコードを読む人が混乱します。
⭕ 良い例：明示的な比較演算子を使った堅牢なコード
Sub GoodExample_ExplicitComparison()
‘ 1. 変数の役割を明確にする
Dim targetText As String
Dim charCount As Long
targetText = Trim(Range(“A1”).Value)
charCount = Len(targetText)
‘ 2. 条件を「明示的な比較式（0より大きいか）」にする
‘ 誰が見ても「文字数が0より大きい（＝文字が存在する）」ことが一目瞭然！
If charCount > 0 Then
MsgBox “A1セルには文字が入っています（文字数: ” & charCount & “）”, vbInformation
Else
MsgBox “A1セルは空欄です”, vbExclamation
End If
End Sub
—
4. プロの現場で徹底されている「Boolean評価の3大鉄則」
バグをゼロにし、誰が見ても美しいVBAコードを書くための3つの鉄則をお伝えします。
┌─────────────────────────────────────────────────────────┐
│ 【鉄則1】 数値型をそのまま If の条件式に放り込まない │
│ 【鉄則2】 「> 0」や「<> 0」などの比較演算子を必ず書く │
│ 【鉄則3】 Boolean型変数に = True を書かない │
└─────────────────────────────────────────────────────────┘
特に【鉄則3】は非常に大切です！
Boolean型の変数（`isSuccess` など）に対して、わざわざ `If isSuccess = True Then` と書く必要はありません。
Dim isSuccess As Boolean
isSuccess = CheckSomething()
‘ ⭕ 正しい書き方（Boolean型変数はそれ自体が判定式）
If isSuccess Then
‘ 成功処理
End If
‘ ❌ 不要な書き方（冗長であり、型の不一致事故を招く可能性がある）
If isSuccess = True Then
‘ 処理
End If
「Boolean型変数はそのまま `If isVar Then` で評価し、数値型変数は `If count > 0 Then` のように明示的に比較する」
この使い分けができるようになれば、あなたのVBA力は脱初心者レベルを完全に超えています！
—
5. まとめ：明示的なコードが未来の自分を救う
今回のポイントを復習しましょう。
1. VBAの内部仕様：`False` は `0`、`True` は `-1`。
2. 暗黙の評価：`If` 条件式に数値を置くと「0以外はすべてTrue」になる。
3. 潜む危険：`1 = True` は `1 = -1` と評価されて `False` になるというパラドックス。
4. 解決策：数値の判定には必ず `> 0` や `<> 0` などの比較演算子を明示する。
プログラミングにおいて、「短く書けること」よりも「誤解なく安全に読めること」の方が100倍価値があります。
「0以外はTrue」という仕様に甘えず、常に自分の意図をコードに明示する。
この小さな意識の積み重ねが、何年経っても崩れない堅牢な自動化システムを作り上げるのです。
ここをマスターしたあなたなら、もう不気味な判定バグに怯える必要はありません。自信を持って、美しく堅牢なVBAコードを書いていってくださいね！応援しています！
