エクセルのマクロでの積分

関数　f(x)=0.2x3-0.15x2-0.005x+2.0　について，0<=x<=10の範囲における積分を求めるプログラムを作りたいのですが。

Sub レポート8()
Dim Area As Double, i As Integer, j As Integer, number As Integer, dx As Integer

Cells(1, 1) = number

If number <= 0 Then
MsgBox "error"

Else

dx = 10 / number

Area = 0
For i = 1 To number
xi = dx * (i - 1)
xj = dx * i
fxi = 0.2 * xi * xi * xi - 0.15 * xi * xi - 0.005 * xi + 2
fxj = 0.2 * xj * xj * xj - 0.15 * xj * xj - 0.005 * xj + 2
tmp = dx * (fxi + fxj) / 2
Area = Area + tmp

Next i

End If

Cells(1, 2) = Area


End Sub


というソースコードではCells（１，１）にどんな数字を入れても０に変換されてerrorとなります。
どこが間違っているのでしょうか？

No.1 回答者： Qchan1962 回答日時： 2020/07/28 01:15

こんばんは、

Cells(1, 1) = number
右辺と左辺が逆なのでは？

この回答へのお礼

こんばんは。
教えていただいた通りでした！
こんな質問に答えていただきありがとうございます。

お礼日時：2020/07/28 02:15