2个数字，用公式比较“相同”，用VBA比较“不同”？奇怪了！

诚信740

2个数字，用公式比较“相同”，用VBA比较“不同”？奇怪了！
哪位老师帮忙看看，到底怎么回事？谢谢！

附件.rar (11.5 KB, 下载次数: 10)

2021-9-18 10:26 上传

点击文件名下载附件

猴子下山了

转换一下就行了

zjdh

说明公式的运算精度与VBA的运算精度是不一样的。
你分别用以下2句语句运行一下就明白啦。
If Round(Range("A1"), 17) = Round(Range("B1"), 17) Then Range("D1") = "相同" Else Range("d1") = "不同"

If Round(Range("A1"), 16) = Round(Range("B1"), 16) Then Range("D1") = "相同" Else Range("d1") = "不同"

诚信740

zjdh 发表于 2021-9-18 10:54
说明公式的运算精度与VBA的运算精度是不一样的。
你分别用以下2句语句运行一下就明白啦。
If Round(Range ...

谢谢你！还是没有搞明白？Range("A1")和Range("B1")看上去一模一样，难道VBA对这2个单元格的运算精度还不一样？

诚信740

难道这2个数字有一大一小？ 哪个大，哪个小？

cui26896

诚信740 发表于 2021-9-18 11:07
谢谢你！还是没有搞明白？Range("A1")和Range("B1")看上去一模一样，难道VBA对这2个单元格的运算精度还不 ...

小数点后的数字不一定一样，就是这样了。

诚信740

cui26896 发表于 2021-9-18 12:38
小数点后的数字不一定一样，就是这样了。

我仔细看过，单元格格式一样，小数点后的数字一模一样。谢谢你！

AmoKat

诚信740 发表于 2021-9-18 12:43
我仔细看过，单元格格式一样，小数点后的数字一模一样。谢谢你！

實數顯示的數字(excel只顯示前15位數)不見的是全部數字
決解方式上面老師已經說明過
下列程式利用不同精度定義的變數(Long、Single、Double)做比較，有不同比較結果
Sub abcd()
    Dim La As Long, Lb As Long     'E+18
    Dim Da As Double, Db As Double 'E+308
    Dim Sa As Single, Sb As Single 'E+38
    Dim xR As Range
    Set xR = [D1]

    If [A1] = [B1] Then xR = "相同" Else xR = "不同"
    xR(1, 2) = "[A1]=[B1]"

    La = [A1]: Lb = [B1]: Set xR = xR.Offset(1)
    If La = Lb Then xR = "相同" Else xR = "不同"
    xR(1, 2) = "Long，E+18"

    Sa = [A1]: Sb = [B1]: Set xR = xR.Offset(1)
    If La = Lb Then xR = "相同" Else xR = "不同"
    xR(1, 2) = "Single，E+38"

    Da = [A1]: Db = [B1]: Set xR = xR.Offset(1)
    If Da = Db Then xR = "相同" Else xR = "不同"
    xR(1, 2) = "Double，E+308"

    A = [A1]: B = [B1]: Set xR = xR.Offset(1)
    If A = B Then xR = "相同" Else xR = "不同"
    xR(1, 2) = "Variant"

End Sub

AmoKat

http://www.excelpx.com/forum.php?mod=attachment&aid=NDQ4NTg4fGY1OGYzYWE3ODIzMThmZTdjZWU2NDU2ZTdhODRlNzI3fDE3MTQxMjQ0NjI%3D&request=yes&_f=.jpg

cui26896

不知道你是什么情况，我这里下载附件运行后是正确的，没有“不同”的错误！
附件.zip (13.32 KB, 下载次数: 1)

2021-9-19 18:37 上传

点击文件名下载附件