2017-10-12 29 views
0

因此,这是代码,它仅适用于整数我写了一个VBA代码输入数据,但它并不适用于小数

Dim CoupRate As Double 
    Do 
     CoupRate = InputBox("enter coupon rate in percent without % sign. It must be between 0.00% and 25.00%") 
     If CoupRate < 0 Or CoupRate > 25 Then 
      MsgBox ("CoupRate must be between 0% and 25%") 
     Else 
      Exit Do 
     End If 
    Loop 
+0

它应该怎么做?预期的行为是什么,这与你所观察到的有何不同? – QHarr

+0

使用逗号代替点 –

+0

@QHarr我需要此代码才能使用优惠券率= 5.25,但它仅适用于优惠券率= 5 –

回答

1

请用逗号,,而不是点.

0

工作我也可以在输出中得到小数。你能否更具体些?

CoupRate = InputBox("enter coupon rate in percent without % sign. It must be between 0.00% and 25.00%") 
    If CoupRate < 0 Or CoupRate > 25 Then 
     MsgBox ("CoupRate must be between 0% and 25%") 
    Else 
     'Exit Do 
     MsgBox CoupRate & "%" 
    End If 
+0

感谢您的考虑)其实它并不适用于我,因为我用点而不是昏迷) –

+0

你可以试试这个'格式(CoupRate,“0.00”)' –

相关问题