从文本框中比较数字时出错

时间:2017-08-14 03:40:57

标签: excel vba excel-vba

我有2个文本框,用户输入2个值,并将第一个值与第二个值进行比较。如果第一个值小于第二个值,它将进入用户必须再次输入值的循环。

我得到的问题是如果我在文本框中输入10和9.9,它进入循环并说10小于9.9。这种情况只发生在10,100和1000.请帮助。

我甚至尝试为两个整数定义Long类型变量并分配它们并进行比较,excel只是挂起。请帮忙

以下是代码。

    If Mean < LSLValue Then
            MsgBox "Please enter a numeric value greater than LSL as Nominal Value"
            Me.DimnTxt.Value = InputBox("Enter the Nominal")
            Me.LSLTxt.Value = InputBox("Enter the LSL")
            Mean = Me.DimnTxt.Value
            LSLValue = Me.LSLTxt.Value
End If
Loop Until Mean >= LSLValue

1 个答案:

答案 0 :(得分:0)

可能是因为您正在比较文字而不是数字。 尝试转换为数字然后比较。 EG:

if CDbl(Textbox1.value) < CDbl(Textbox2.value)  then
'....
end if