2017-10-12 50 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」)' –

相關問題