VBAの比較について教えてください

Question

Sub test()

If Cells(1, 1).Value >= 5 Then
    MsgBox ("正しい")

Else
    MsgBox ("間違い")
End If

End Sub

お世話になっております。
A1のセルに適当にああああとか入力したとして

上記コードで、何故
Cells(1, 1).Value >= 5　とかでも
正しいになってしまうのでしょうか。
よろしくお願いいたします。

Answer 1

おそらくValueの型がVariantのため、勝手にいいように解釈してくれているのだと思います。
つまり今回の場合は、セルの値が文字列なので"あああ" >= "5"と解釈されているのでしょう。
試しに次のようにするとエラーになります。

Dim s As String
s = "あああ"
If s >= 5 Then

しかし型をVariantに変えると大丈夫です。

Dim s As Variant
s = "あああ"
If s >= 5 Then

Comments

[papinianus]

https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/comparison-operators
この辺をみると、string Variantと数値の比較で、string Variantが数値と評価できないときはType Mismatchだって言ってるのに、実際はstring Variantとnumeric Variantの比較みたいな結果になるってことなんですね

[jawa]

今回の比較は右辺が数値型、左辺がvariant型です。
papinianusさんコメントにあるリファレンスにも記載されていますが、Variant型の値が数値として認識できるか(⇒IsNumeric)も判断材料に含まれているようです。

ですので、ttyp03さんのサンプルコードでS="４"のような全角数値文字列を指定した場合、`If S >= 5 Then`の判断結果は文字列"5"との比較ではなく数値5との比較となり、Falseが返されます。

S="ああああ"で比較した場合、右辺数値を100桁(1E+100)くらい大きくしても左辺の方が大きいと判断され、結果Trueとなるようです。

この結果から実際の判定は、`Type Mismatch`となる比較の場合は「文字列の方が大きい」と判断される、ということが推測されます。

Answer 2

よくこんなの見つけましたねぇ。自分もなんでか全然わからなかったので、ちょっとGoogleで

「excel text cell if compare to value」

で検索してみたところ、海外の技術系掲示板 stackoverflowでとりあえずの原因について言及されているのを見つけました（下記リンク）。

• Excel IF statement Comparing text with number

For the Excel compare operators (e.g. <, =, >), number values are less than text values which are less than logical values.

なんでも「文字と数値を比較した場合、文字の方が大きくなる」とのこと。だから、書かれたソースの「>= 5」を「0」にしても「-40」にしても「100」にしても、結果はすべてTrueになりました。

このExcelの比較におけるルールの根本的な理由については詳しい方の登場を待ちましょう（少し調べたけれど見つけられず……）。