単純な掛け算なのにわけのわからない小数点が、、、

表題のとおりですが、EXCEL VBAでシートと複合させて計算したところ次のような結果が出ました。

マクロは以下のとおりです。
Private Sub CommandButton1_Click()
　Dim i As Integer
Dim n As Integer
Dim x As Integer
Dim y As Single
　Dim d1 As Single
Dim d2 As Single

　n = Range("L4").Value 'L4には現在399が入力されています。
y = Range("L2").Value 'L2には現在0.048が入力されています。
　d1 = Range("D11").Value
d2 = Range("E11").Value

If n = 0 Then Exit Sub
For i = 0 To n
x = i + 6
Cells(x, 13) = i
Cells(x, 14) = Cells(x, 13) * y
Cells(x, 15) = Cells(x, 14) + d1
Cells(x, 16) = d2 - Cells(x, 14)
　　　　x = x + 1
Next i
End Sub

こうするとCells(7, 14)に0.0480000004172325という数字が入り始め、
続きも同じように小数点の小さい桁にわけの分からない数字が出て来ます。いったい何が原因か分かりません。
よろしくお願いします。

No.1 ベストアンサー 回答者： nobby-frog 回答日時： 2007/09/20 18:55

これ、マクロが悪いのではなく、エクセルの仕様です。

http://pc.nikkeibp.co.jp/pc21/special/gosa/eg1.s …

この回答へのお礼

了解です。ヘナヘナ、、、

お礼日時：2007/09/20 19:03