vba数字类型错误

我对以下子项有一个简单的问题：

对于“表1”上的A1=0.01和A2=0.34值，运行以下程序：

         Sub test()
            tmp = Sheets("sheet1").Range("A1")
         If tmp < 10 Then
            MsgBox ("O")
         End If

         tmp1 = Sheets("sheet1").Range("A2")
         If tmp1 < 10 Then
           MsgBox ("P")
         End If

         End Sub

子测试（）
tmp=板材（“板材1”）。范围（“A1”）
如果tmp<10，则
MsgBox（“O”）
如果结束
tmp1=板材（“板材1”）。范围（“A2”）
如果tmp1<10，则
MsgBox（“P”）
如果结束
端接头

问题在于，当值=0.01（请不要使用点而不是逗号）时，条件为真，但当值=0.34时，则为假，这不是预期的结果

格式不对吗

---

提前谢谢。

尝试强制将A1值转换为

浮点类型

例如：

tmp = Cdbl(Sheets("sheet1").Range("A1").value)

我无法重现您的问题，您需要添加更多详细信息。简说：请提供更多信息。一个完整的
子
，我们可以复制/粘贴以进行测试，这将非常有用。我已经尽了最大努力给出了一个很好的示例您的区域设置是什么？单元格文本或数字中的值是什么？谢谢您的回答，但没有区别。我得到了相同的结果