VBAで変数に代入された値の比較について

Question

VBAでIF文を使用し、変数に代入された値を比較しようとしているのですが、何故か上手くいきません。

Dim D As Variant
If J42.Value = X41.Value Then
  D = 0
Else
  D = 1
End If

J42、X41にはそれぞれ別ブックから取得した値が代入されているのですが、確認しても想定どおりの値が入っており、値は等しいのに実行するとElseの方が実行されてしまいます。

デバッグで確認したJ42、X41の値は画像の通りです。

何故この処理はElseに飛んでしまうのでしょうか？
また、どうすればD = 0を実行してくれる様になるのでしょうか？

お手数ですが、どなたかお解りになる方、ご教授いただけますと助かります。

追記
J42、X41はそれぞれ結果は同じですが違う計算式が記入されているセルの値を取得しています。
（例：J42には「＝A1+A2」、X41には「＝B1+B2」といった状態です。）
計算式が違うからElseに飛ぶのかと思い上記ではJ42.Value、X41.Valueとしているのですが、結果はValueを付けても付けなくても同じでした。

Answer 1

誤差だと思います。

Sub Test_Sample_Miniature()
    '-----------------------------------
    If (0.1 + 0.2) = 0.3 Then
        MsgBox "⇒ 一致"
    Else
        MsgBox "⇒ 不一致"
    End If
    '-----------------------------------
    Dim varA As Range
    Dim varB As Range

    Set varA = Range("A1")
    Set varB = Range("B1")
    varA = 0.3
    varB = 0.1 + 0.2

    '計算差額のチェック
    If varA.Value = varB.Value Then
        MsgBox "一致"
    Else
        MsgBox "不一致 ⇒ " & varA & " - " & varB
    End If
    '-----------------------------------
    MsgBox (26.26 - 26)
End Sub

Comments

[退会済みユーザー]

ご回答いただきありがとうございます。
どうやらご指摘の通りだった様で、元々設定していたJ42、X41の変数型をRangeからLongに変更したら想定どおりの動きをしてくれました。
本当にありがとうございました。

Answer 2

J42.ValueとX41.Valueが数値なら、厳密な型で比較した方が安全です。
例えば、どちらもIntegerであるならば、

If CInt(J42.Value) = CInt(X41.Value) Then

のようにするか、J42.ValueやX41.ValueをIntegerの変数に格納したものを比較します。

Answer 3

J42、X41にはそれぞれ別ブックから取得した値が代入されている

ここで言うJ42とX41はセルのことを指していますか？
変数のことを指していますか？

前者であるなら、そもそも構文が違います。
次のように書いてみてください。

If Range("J42").Value = Range("X41").Value Then

後者であるなら、定義箇所を提示してもらいたいところですが、おそらく次のように書けば済むはずです。

If J42 = X41 Then

Comments

[ttyp03]

質問内容を勘違いしていたみたいなので、この回答はスルーしてください。